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PRÓLOGO 



Hace ya más de veinte años desde que se publicó por primera vez "The 
Finite Element Method in Structural and Continuum Mechantes". Este libro, 
que fue el primero en tratar el método de los elementos finitos, sirvió de base 
para muchos desarrollos posteriores. La expansión de la investigación y el 
campo de aplicación de los elementos finitos llevó a la segunda edición en 
1971 y a la tercera en 1977. El tamaño de cada uno de estos volúmenes 
creció geométricamente (de 272 páginas en 1967, 521 páginas en 1971, a 
787 páginas en 1977). Esto fue necesario para hacerle justicia a un campo 
de aplicación profesional e investigación en rápida expansión. Aún así, fue 
preciso filtrar los contenidos de la tercera edición para mantenerla dentro de 
límites razonables. 

Como, en esencia, los temas publicados en la tercera edición son todavía 
válidos hoy, y esto constituye un libro de texto y de referencia útil y 
ampliamente utilizando, hemos decidido publicar una versión extendida en 
dos volúmenes. Estos mantienen en la medida de lo posible los contenidos 
de la tercera edición y añaden o reinterpretan temas que han adquirido hoy 
una importancia adicional. 

La división de los contenidos entre los dos volúmenes sigue los fines 
pedagógicos para los que puede utilizarse el libro, bien para estudio personal, 
tal como pensamos que será ampliamente empleado por los ingenieros, o 
bien en cursos universitarios para ingenieros y físicos. Por tanto, el primer 
volumen se dedica a los conceptos básicos de aproximación por elementos 
finitos y a cálculos sencillos, lineales y estáticos, que incluso hoy constituyen 
la mayor parte del uso de los elementos finitos. 

Hemos relegado al segundo volumen todos los problemas de dinámica, 
de técnicas de solución no-lineales, y ciertamente, los problemas lineales de 
placas y láminas que introducen dificultades especiales y donde todavía se 
debaten las técnicas óptimas. 

Los contenidos del primer volumen están ligeramente reordenados 
respecto a los de la tercera edición, y los primeros ocho capítulos tratan 
problemas de elasticidad lineal que para muchos son aún la esencia de la 
aplicación del método de los elementos finitos. El Capítulo 9 generaliza los 
conceptos y muestra el método y su aplicación a la solución de problemas 
gobernados por ecuaciones diferenciales. En los primeros capítulos hay pocos 
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cambios respecto a la tercera edición, pero el texto se ve ampliado por la 
adición de las funciones de forma jerárquicas (Capítulo 7), de los elementos 
infinitos (Capítulo 8), y la notación tensorial para aquéllos que la prefieren 
(Capítulo 6). 

El Capítulo 10 muestra las aplicaciones a varios problemas de campo y 
también se presenta con mínimos cambios. Sin embargo, los Capítulos lia 
14 introducen nueva materia que hoy es objeto de creciente actividad. 

En el Capítulo 11 se amplía sobre el "test de la parcela" al que sólo se 
hacía breve referencia en ediciones anteriores. Se demuestra cómo se puede 
utilizar el test para combrobar, y de hecho diseñar, nuevos elementos. 

Los Capítulos 12 y 13 presentan la esencia de las "formulaciones mixtas" 
y muestran cómo tales formulaciones se pueden usar de forma eficiente en 
muchos problemas. En particular, se discuten en detalle temas tales como la 
imposición de la condición de incompresibilidad, de gran interés en problemas 
de mecánica estructural y de fluidos. 

El Capítulo 14 introduce al lector en la nueva área de la estimación de 
error y la adaptabilidad, que surgió después de la aparición de la tercera 
edición y que Aoy es cíe vitai importancia para asegurar ia precisión efe ios 
cálculos. 

La aplicación del método de los elementos finitos depende del uso 
habilidoso de los ordenadores y de técnicas eficientes de programación. El 
capítulo que concluye el libro, Capítulo 15, incluye mucha de la experiencia 
en programación de la Universidad de California en Berkeley, y el Instituto 
de Métodos Numéricos en Ingeniería de Universidad de Gales, en Swansea. 
El programa que se presenta no es sólo útil para educación, sino que puede 
ser eficientemente empleado para la solución de problemas reales en varios 
sistemas de ordenadores y microordenadores.! 

Aunque muchos de los desarrollos presentados en este libro han sido 
hechos por matemáticos, hemos tratado de presentar los temas en un 
lenguaje y forma accesible para los ingenieros, aunque intentando mantener 
el necesario rigor en todos los casos. 

OCZ y RLT 



f Se pueden obtener diskette» y cintas con el listado completo del programa pidiéndolo a R.L . Taylor, 
Department of Civil Engineering, University of California, Berkeley CA 94720, USA. 
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LISTA DE SÍMBOLOS 



Como referencia, se ofrece a continuación una lista de los símbolos principales 
utilizados en este libro, aunque todos se definen en el texto a medida que 
aparecen. En muchas ocasiones se han de utilizar otros adicionales para 
operaciones secundarias y puede que se repita el mismo símbolo. Se espera 
que la explicación correspondiente en el texto evitará cualquier confusión. 
Los símbolos se listan aproximadamente según el orden de su aparición a 
través de los capítulos. 

Las matrices y las columnas se expresan por letras negritas, por ejemplo 
K, a; K T indica la traspuesta de K. Los puntos se utilizan para indicar 
diferenciación respecto de una variable, por ej., ^ = á, etc. 
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PRELIMINARES: LOS SISTEMAS 
DISCRETOS EN GENERAL 



1.1 Introducción 

Las limitaciones de la mente humana son tales que no puede captar el 
comportamiento del complejo mundo que la rodea en una sola operación 
global. Por ello, una forma natural de proceder de ingenieros, científicos, e 
incluso economistas, consiste en separar los sistemas en sus componentes 
individuales, o "elementos", cuyo comportamiento pueda conocerse sin 
dificultad, y a continuación reconstruir el sistema original para estudiarlo 
a partir de dichos componentes. 

En muchos casos se obtiene un modelo adecuado utilizando un número 
finito de componentes bien definidos. A tales problemas los denominaremos 
discretos. En otros, la subdivisión prosigue indefinidamente y el problema 
sólo puede definirse haciendo uso de la ficción matemática de infinitésimo. 
Ello nos conduce a ecuaciones diferenciales o expresiones equivalentes con un 
número infinito de elementos implicados. A tales sistemas los llamaremos 
continuos . 

Con la llegada de las computadoras digitales, los problemas discretos 
pueden resolverse generalmente sin dificultad, aún cuando el número de 
elementos sea muy elevado. Como la capacidad de las computadoras 
es finita, los problemas continuos sólo se pueden resolver de forma 
exacta mediante manipulaciones matemáticas. En este aspecto, las 
técnicas matemáticas disponibles suelen limitar las posibilidades a casos 
extremadamente simplificados. 

Para vencer la dificultad que presenta la solución de problemas continuos 
reales, ingenieros y matemáticos han ido proponiendo a través de los años 
diversos métodos de discretización . La aplicación de estos métodos hace 
necesario efectuar alguna aproximación de tal manera que quepa esperar que 
la misma se acerque, tan estrechamente como se quiera, a la solución continua 
verdadera a medida que crezca el número de variables discretas. 

La discretización de problemas continuos ha sido abordada de manera 
diferente por matemáticos e ingenieros. Los primeros han desarrollado 
técnicas generales aplicables directamente a las ecuaciones diferenciales que 
rigen el problema, tales como aproximaciones por diferencias finitas, 1,2 
diferentes métodos de residuos ponderados, 3,4 o técnicas aproximadas, 
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para determinar puntos estacionarios de "funcionales" definidos en forma 
apropiada. Los ingenieros, por otra parte, suelen enfrentarse al problema 
más intuitivamente creando una analogía entre elementos discretos reales y 
porciones finitas de un dominio continuo. Por ejemplo, en el campo de la 
mecánica de los sólidos, McHenry 5 , Hrenikofí 6 y Newmark 7 demostraron, 
al comienzo de la década de 1940, que pueden obtenerse soluciones 
razonablemente buenas de un problema continuo sustituyendo pequeñas 
porciones del continuo por una distribución de barras elásticas simples. Más 
tarde y en el mismo contexto, Argyris 8 , Turner y otros 9 demostraron que 
se pueden sustituir las propiedades del continuo de un modo más directo, 
y no menos intuitivo, suponiendo que las pequeñas porciones del mismo, o 
"elementos", se comportan de una cierta forma simplificada. 

Fue de la posición de "analogía directa", adoptada por los ingenieros, 
de donde nació la expresión "elemento finito". Parece que fue Clough 10 el 
primero en usar este nombre que supone el uso preciso de la metodología 
general aplicable a los sistemas discretos. Esto, tanto desde el punto de 
vista conceptual como del numérico, es de la mayor importancia. El primero 
permite una mejor comprensión del problema; el segundo, el uso de un 
criterio unificado para abordar una gran variedad de problemas y desarrollar 
procedimientos generales de cálculo. 

Mucho se ha avanzado desde el principio de la década de 1960 y hoy 
día, las dos vertientes, la meramente matemática y la "analógica", están en 
completo acuerdo. Es objeto de este texto presentar un panorama del método 
de los elementos finitos como procedimiento general de discretización de los 
problemas continuos planteados por expresiones definidas matemáticamente. 

Con el transcurso de los años se han ido desarrollando métodos 
generales para analizar problemas de naturaleza discreta. El ingeniero 
civil, que trabaja con estructuras, calcula primero las relaciones entre 
fuerzas y desplazamiento para cada miembro de la estructura y después 
procede al ensamblaje del conjunto siguiendo un procedimiento bien definido 
que consiste en establecer el equilibrio local en cada "nudo" o punto 
de unión de la estructura. A partir de tales ecuaciones se pueden 
obtener los desplazamientos desconocidos. Análogamente, el ingeniero 
hidráulico o eléctrico, que trabaja con conducciones hidráulicas o con redes 
de componentes eléctricos, (resistencias, condensadores, etc.), establece 
primeramente una relación entre corrientes (flujos) y potenciales para cada 
elemento aislado y después procede a unir el conjunto imponiendo la 
continuidad de los flujos. 

Todos estos análisis siguen un patrón general que puede adaptarse 
umversalmente a todos los sistemas discretos. Es por tanto posible definir un 
sistema discreto tipo. Este capítulo se ocupa fundamentalmente de establecer 
los procedimientos aplicables a dichos sistemas. Mucho de lo que aquí se 
presenta es conocido por cualquier ingeniero, pero es aconsejable en esta 
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parte reiterar algunos conceptos. Dado que el estudio de las estructuras 
elásticas ha sido el campo en el que se ha desarrollado mayor actividad, 
presentaremos su estudio en primer lugar y seguidamente diversos ejemplos 
de otros campos, antes de que intentemos presentar el problema de manera 
general. 

La existencia de una manera única para abordar los problemas discretos 
tipo nos lleva a la primera definición del método de los elementos finitos como 
procedimiento de aproximación de problemas continuos, de tal forma que: 

a) el continuo se divide en un número finito de partes (elementos), cuyo 
comportamiento se especifica mediante un número finito de parámetros, y 

b) la solución del sistema completo como ensamblaje de los elementos 
sigue precisamente las mismas reglas que se aplican a los problemas 
discretos tipo. 

Se encontrará que numerosos métodos matemáticos clásicos de 
aproximación se incluyen en esta categoría, así como también varios métodos 
de aproximaciones de naturaleza técnica. Es difícil, por tanto, hablar de los 
orígenes del método de los elementos finitos y del preciso momento de su 
invención. 

En la Tabla 1.1 presentamos el proceso de evolución que condujo a los 
conceptos actuales del análisis mediante elementos finitos. En el Capítulo 9 se 
presentarán con más detalle las bases matemáticas cuya evolución se remonta 
a épocas más clásicas. 11-20 

1.2 Elementos y sistemas estructurales 

Para presentar al lector el concepto general de sistema discreto, 
consideraremos en primer lugar un ejemplo mecánico estructural del tipo 
de elasticidad lineal. 

Sea la Figura 1.1 una estructura plana formada por distintos elementos 
enlazados entre sí en los nudos, numerados del 1 al n. Los enlaces en los nudos 
son, en este caso, articulaciones de manera que no transmiten momentos. 

Para empezar se supondrá que mediante cálculos efectuados aparte, o 
mediante resultados experimentales, conocemos exactamente las propiedades 
de cada elemento. Así pues, si examinamos un miembro representativo como 
el (1) asociado a los nudos 1, 2 y 3, las fuerzas que actúan en los nudos 
están unívocamente definidas por los desplazamientos de tales nudos, la carga 
distribuida que actúa sobre el elemento (/>), y su deformación inicial. Esta 
última puede ser debida a la temperatura, a la retracción, o simplemente a 
un desajuste inicial. Las fuerzas y los correspondientes desplazamientos se 
definen mediante las componentes apropiadas (t/, V y u, v) en un sistema 
de coordenadas cartesianas. 
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Elemento típico (1) 
Figura 1.1 Estructura típica formada por elementos interconectados. 

Expresemos en forma matricial f las fuerzas que actúan en todos los nudos 
(3 en este caso) del elemento (1), tenemos 




y para los correspondientes desplazamientos nodales 




t En todo este libro se supondrá que el lector posee ciertos conocimientos de álgebra 
matricial. Esto se hace necesario para mantener un texto lo más conciso posible. 
Para lectores que no están familiarizados con ese tema se incluye un breve apéndice 
(Apéndice 1) donde se dan los suficientes principios de álgebra matricial para poder 
seguir con conocimiento de causa el desarrollo del texto. Las matrices (y vectores) se 
distinguirán a lo largo del texto por letras negritas. 
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Suponiendo que el elemento presenta un comportamiento elástico lineal, la 
relación característica será siempre de la forma 

q 1 = KV + f¿ + f¡ Q (1.3) 

en donde represéntalas fuerzas nodales necesarias para equilibrar cualquier 
carga distribuida que actúe sobre el elemento y f* 0 las fuerzas nodales 
necesarias para equilibrar cualquier deformación inicial, como la que puede 
ocasionar un cambio de temperatura si los nudos tienen impedido todo 
desplazamiento. El primer término representa las fuerzas inducidas por los 
desplazamientos de los nudos. 

Similarmente, mediante un análisis o experimento preliminar se pueden 
definir unívocamente las tensiones o reacciones internas en cualquier punto 
o puntos especificados del elemento, en función de los desplazamientos de 
los nudos. Definiendo esas tensiones mediante la matriz a 1 se obtiene una 
relación de la forma 

<7 l = S 1 a 1 +^ + <rí 0 (1.4) 

donde los dos últimos términos son simplemente las tensiones originadas por 
las cargas distribuidas que actúan sobre el elemento o por tensiones iniciales 
cuando se restringe el desplazamiento en los nudos. 

La matriz K e se conoce como matriz de rigidez del elemento y la matriz 
S e como matriz de tensiones del elemento (e). 

Se han ilustrado las relaciones (1.3) y (1.4) utilizando el ejemplo de un 
elemento de tres nudos y puntos de interconexión capaces de transmitir 
sólo dos componentes de fuerza. Obviamente, los mismos argumentos 
y las mismas definiciones se pueden aplicar con carácter general. Un 
elemento como el (2) de una estructura hipotética tendrá sólo dos puntos de 
interconexión; otros pueden tener un número muy superior. Análogamente, 
si los puntos de enlace se consideran rígidos han de tenerse en cuenta tres 
componentes de fuerzas generalizadas y tres componentes de desplazamientos 
generalizados, correspondiendo el tercero de ellos a un momento y a una 
rotación, respectivamente. Para una estructura tridimensional rígidamente 
articulada, el número de componentes por nudo será seis. Así pues, en 
general: 




poseyendo cada q¿ y a¿ el mismo número de componentes o grados de libertad. 
Estas cantidades son conjugadas una de la otra. 
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Figura 1.2 Barra articulada en los extremos. 



Las matrices de rigidez de los elementos serán, por tanto, siempre 
cuadradas y de la forma 



K e = 



im 



"■mm 



(1.6) 



donde K^, etc., son submatrices también cuadradas de dimensiones / x /, 
siendo / el número de componentes de fuerza a considerar en los nudos. 

Como ejemplo, el lector puede considerar la barra articulada plana de 
sección uniforme A y módulo de elasticidad E que se representa en la 
Figura 1.2. La barra está sometida a una carga lateral uniforme p y a una 
deformación uniforme debida a la temperatura 



£ 0 = aT 

Si los extremos de la barra están definidos por las coordenadas a:¿, y¿ y a; n , 
y n su longitud puede calcularse mediante la fórmula 



L = V[(x n - x,) 2 + (y n - Vi) 2 } 
y su ángulo de inclinación respecto a la horizontal por 

n , -1 Vn - Vi 

p = tan — - 
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Solamente hay que considerar dos componentes de fuerzas y de 
desplazamientos en cada nudo. 

Las fuerzas nodales debidas a la carga lateral son, evidentemente 



n = 




sen/3 ) 
eos ¡3 
sen/? 
eos/? 



pL 
2 



y representan las componentes adecuadas de las reacciones de una viga 
simplemente apoyada, pL/2. Similarmente, para impedir la expansión 
térmica £q se necesita una fuerza axial (EaTA), lo que da unas componentes 



— cos/3 

— sen/? 
eos ¡3 

c o ( sen/? 
Finalmente, los desplazamientos del elemento 




(EaTA) 




originarán un alargamiento (u n — u¿) eos (3+(v n — V{) sen /?. Al mutiplicar éste 
por EA/L obtendremos la fuerza axial cuyas componentes pueden calcularse. 
Tras ordenar las ecuaciones obtenemos la expresión general 



K e a c = 




EA 
L 



eos 3 /? sen/? eos ¡3 

sen/3 eos j3 sen 2 /? 



-eos 2 /? -sen/? eos/? 
-sen/? eos/? -sen 2 /? 



eos 2 (3 -sen/? eos/? 
sen/? eos/? -sen 2 /? 



eos 2 ¡3 sen/? eos (3 

sen/3 eos /3 sen 2 /? 



Así pues, hemos obtenido las componentes de la ecuación general (1.3) 
para el caso elemental estudiado. Es, asimismo, muy sencillo establecer las 
tensiones en cualquier sección del elemento en la forma establecida por la 
Ec. (1.4). Por ejemplo, si se considera la sección media C de la viga, puede 
demostrarse que las tensiones en la fibra extrema, calculadas a partir de la 
tensión axial del elemento y del momento flector, son 
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{8}„-f[ 



£ [ - eos/?, -sen/?, eos/?, sen (3 
eos/?, -sen (3, eos/?, sen/? 



{ 



en la cual d es el semiespesor de la sección e J su momento de inercia. Por 
tanto, todos los términos que aparecían en la Ec. (1.4) son ya fácilmente 
reconocibles. 

Para elementos más complicados se requieren procedimientos de análisis 
más elaborados, pero los resultados tienen la misma forma. El ingeniero 
reconocerá enseguida que las relaciones entre desplazamientos y rotaciones 
que se usan en el análisis de entramados rígidos son solamente un caso 
particular de las relaciones generales. 

Quizás deba destacarse, de paso, que la matriz de rigidez obtenida para 
el elemento aislado sometido a tracción resulta ser simétrica (como también 
ocurre con algunas submatrices). Esto no es en absoluto un hecho fortuito, 
sino que es consecuencia del principio de la conservación de la energía y de 
su corolario, el conocido teorema de reciprocidad de Maxwell-Betti. 

Se ha supuesto que las propiedades del elemento cumplen relaciones 
lineales sencillas. En principio, se podrían establecer relaciones similares para 
materiales no lineales, pero por el momento aplazaremos para más adelante 
el estudio de los problemas de esta naturaleza. 

1.3 Ensamblaje y análisis de una estructura 

Consideremos de nuevo la estructura hipotética de la Figura 1.1. Para 
obtener la solución completa se han de satisfacer en toda ella las dos 
condiciones de: 

a) compatibilidad de los desplazamientos, y 

b) equilibrio. 

Todos los sistemas de desplazamientos nodales a: 



{2} 



(1.7) 



representando ahora a la totalidad de la estructura y donde participan todos 
los elementos de la misma, satisfacen automáticamente la primera condición. 

Como las condiciones generales de equilibrio ya son satisfechas dentro de 
cada elemento, sólo nos queda por establecer las condiciones de equilibrio 
en los nudos de la estructura. Las ecuaciones que resulten contendrán los 
desplazamientos como incógnitas y una vez calculados éstos el problema 
quedará completamente resuelto. Las fuerzas internas, o tensiones, que 
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actúan dentro de cada elemento puíden hallarse fácilmente utilizando las 
características establecidas a priori para cada elemento por la Ec. (1.4). 

Consideremos la estructura sometida a un sistema de fuerzas externas r 
aplicadas en los nudos: 

(1.8) 

además de las cargas distribuidas aplicadas a cada elemento individual. 
Como antes, cada una de las fuerzas r¿ deberá tener el mismo número de 
componentes que las reacciones consideradas en cada elemento. En el ejemplo 
en cuestión 

(1.9) 

ya que se ha supuesto que las uniones son articulaciones, pero ahora, a efectos 
de generalizar, supongamos que el número de componentes es arbitrario. 

Si establecemos ahora el equilibrio en un nudo cualquiera, i, cada 
componente de r¿ tiene que ser igual, a su vez, a la suma de las componentes 
de las fuerzas que aportan los elementos que se reúnen en dicho nudo. Así 
pues, considerando todas esas componentes 

m 

r t = £ qf = qj+q? + '-- (M0) 
e=l 

en donde qj es la fuerza que el elemento 1 aporta al nudo i, q? la fuerza que 
aporta el elemento 2, etc. Claramente, sólo los elementos que contengan al 
punto i contribuirán con fuerzas no nulas, pero para mayor claridad se han 
incluido todos los elementos en el sumatorio. 

Al sustituir las fuerzas aportadas al nudo i por sus expresiones dadas por 
la definición (1.3), resulta que las variables nodales a¿ son comunes (y por 
ello, omitiendo el supraíndice e), tendremos 

m m m 

'« = (£ k?iK + (E *&)■» + •■■ + £*? f 1 - 11 ) 

e=l e-l e=l 

donde 

? = % + 

Como antes, el sumatorio sólo afecta a los elementos que contienen al 
nudo i. Reuniendo todas esas ecuaciones obtenemos simplemente 





Ka = r - f 



(1.12) 
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en la cual las submatrices son 

m 

K ij = ^2 K ij 

»' (!■») 

fi = £íf 

e=l 

con sumatorios que comprenden a todos los elementos. Esta regla tan 
sencilla para ensamblar los elementos es muy útil, pues tan pronto como 
se conozca un coeficiente para un elemento particular se puede almacenar 
inmediatamente en la "posición" adecuada del computador. Este proceso 
general de ensamblaje constituye la característica fundamental y común a 
todos los cálculos por elementos finitos y debe ser bien comprendido por el 
lector. 

Si utilizamos diferentes tipos de elementos estructurales y éstos han de 
acoplarse, se ha de recordar que la regla para la suma de matrices sólo 
permite ésta si las matrices son de idénticas dimensiones. Por consiguiente, 
las submatrices individuales que hayan de ensamblarse deben formarse con 
el mismo número de componentes de fuerzas o de desplazamientos. Así, por 
ejemplo, si un miembro capaz de transmitir momentos a un nudo tiene que 
unirse en ese nudo a otro miembro que esté articulado, es necesario completar 
la matriz de rigidez de este último insertando convenientemente ceros en las 
posiciones correspondientes a las rotaciones y en las de los momentos. 

1.4 Condiciones de contorno 

El sistema de ecuaciones que resulta de la Ec. (1.12) puede resolverse una 
vez sustituidos los desplazamientos impuestos en los apoyos. En el ejemplo 
de la Figura 1.1, donde son nulas ambas componentes de los desplazamientos 
de los nudos 1 y 6, habría que sustituir 

a 1= a 6 = {0} 

lo que equivale a reducir el número de ecuaciones de equilibrio (en este caso 
doce) anulando las dos primeras y las dos últimas, y reduciéndose así el 
número total de incógnitas a ocho. Es conveniente, sin embargo, ensamblar 
las ecuaciones de la forma expresada en la Ec. (1.12) para incluir todos los 
nudos. 

Es obvio que sin sustituir un número mínimo de desplazamientos, 
obligados para impedir que la estructura se mueva como un sólido rígido, 
sería imposible resolver el sistema pues los desplazamientos no pueden quedar 
unívocamente determinados por las fuerzas y habría infinitas soluciones 
para un sistema de fuerzas dado. Este hecho, físicamente evidente, debe 
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interpretarse matemáticamente en razón de que la matriz K, al ser singular, 
carece de inversa. Estableciendo los desplazamientos adecuados tras la fase 
del ensamblaje, podrá obtenerse una solución única prescindiendo de las filas 
y las columnas adecuadas de las distintas matrices. 

La forma del sistema de ecuaciones una vez ensambladas, es como sigue 

Kna! + Ki2a 2 H = ri — fi 

K 2 ia! + K 22 a 2 + • • • = r 2 - f 2 (1.14) 
etc. 

Se apreciará que si imponemos un desplazamiento cualquiera, tal como 
ai = ai , la "fuerza" exterior ri no puede ser impuesta y permanecerá como 
incógnita. Podemos, pues, prescindir de la primera ecuación y sustituir ai 
por un valor conocido en las restantes ecuaciones. Este procedimiento implica 
un proceso de cálculo engorroso, pudiéndose alcanzar el mismo objetivo 
añadiendo al coeficiente Kn un número grande, al, y reemplazando el 
segundo miembro de la ecuación, ri — fi, por ai a. Si a es mucho mayor que 
cualquier otro coeficiente de rigidez, esta alteración equivale a reemplazar la 
primera ecuación por 

aai = aa"i (1*15) 

es decir, la condición necesaria impuesta, pero se conserva la simetría 
del sistema y sólo se necesitan unos cambios mínimos en el orden del 
cálculo. De haber más desplazamientos impuestos, seguiríamos el mismo 
procedimiento. Este artificio fue introducido por Payne e Irons. 21 En 
el Capítulo 15 se presentará un procedimiento alternativo que evita el 
ensamblaje de ecuaciones correspondientes a nudos con valores de contorno 
impuestos. 

Una vez introducidas todas las condiciones de contorno podemos resolver 
el sistema de ecuaciones y obtener los desplazamientos incógnita junto con 
las tensiones y fuerzas internas de cada elemento. 

1.5 Redes hidráulicas y eléctricas 

En muchos campos no pertenecientes al análisis de estructuras se aplican 
los mismos principios para deducir las características de los elementos y 
de su ensamblaje. Consideremos, por ejemplo, un conjunto de resistencias 
eléctricas como el representado en la Figura 1.3. 

Si aislamos una resistencia cualquiera, ij, del resto del sistema, según 
la ley de Ohm podemos escribir las relaciones siguientes entre las corrientes 
que entran en el elemento por cada uno de sus extremos y las diferencias de 
potencial entre éstos 
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*l = " Vi) 

o en forma matricial 

{3}-M-:iK¡o 

que con nuestra notación es simplemente 

je = K eye ( 1>16 ) 

Esta ecuación corresponde claramente a la relación de rigidez (1.3), pues 
si además se suministrasen corrientes exteriores a lo largo del elemento, se 
podrían calcular también términos equivalentes a las "fuerzas". 

Para ensamblar toda la red suponemos la continuidad del potencial en 
cada nudo e imponemos en éstos el equilibrio de las corrientes concurrentes. 
Si P{ representa ahora la entrada de una corriente externa en el nudo i se 
habrá de verificar, de forma completamente análoga a la Ec. (1.11), 



(1.17) 
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donde el segundo sumatorio incluye a todos los "elementos" , y de nuevo para 
todos los nudos 

P = KV (1.18) 

en la cual 

m 

€=1 

Se ha prescindido en las fórmulas anteriores de la notación matricial, ya que 
las magnitudes como tensión y corriente son escalares, y por consiguiente 
también lo son los coeficientes de la matriz "de rigidez" . 

Si las resistencias se reemplazaran por tuberías por las que discurriera un 
fluido en régimen laminar, obtendríamos de nuevo fórmulas similares siendo 
ahora V la caída dé presión y J el flujo. 

Sin embargo, para las redes de tuberías habitualmente empleadas en la 
práctica, las leyes lineales no son en general válidas. La relación típica entre 
flujo y diferencia de presión es de la forma 

j i = c(v i -v j y (i.i9) 

en la cual el exponente 7 varía entre 0.5 y 0.7. Aún así, seguiría siendo 
posible escribir ecuaciones de la forma (1.16) advirtiendo, no obstante, que 
las matrices K e no están ya formadas por constantes, sino por funciones 
conocidas de V. Las ecuaciones finales pueden nuevamente ensamblarse, 
pero presentan formas no lineales y en general para su solución necesitaremos 
hacer uso de métodos iterativos. 

Finalmente, quizás sea interesante hacer mención a la expresión más 
general de una red eléctrica atravesada por una corriente alterna. Es corriente 
escribir en forma compleja las relaciones entre corrientes y tensiones, 
reemplazando las resistencias por impedancias complejas. De nuevo se 
obtendrán relaciones generales como las (1.16) a (1.18), pero con cada 
cantidad dividida en sus partes real e imaginaria. 

Para encontrar la solución se pueden seguir los mismos procedimientos, 
considerando en cada paso la igualdad de las partes real e imaginaria, y lo 
cierto es que los modernos ordenadores posibilitan el empleo de programas 
generales que hacen uso de la capacidad de tales ordenadores para tratar 
números complejos. Más adelante, al tratar de los problemas de vibraciones, 
se hará referencia a algunos problemas de esta clase. 

1.6 El proceso general 

Para afianzar los conceptos expuestos en este capítulo presentaremos 
un ejemplo. Éste se muestra en la Figura 1.4(a), donde se interconectan 
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Figura 1.4 El proceso general. 



cinco elementos discretos, que pueden ser de tipo estructural, eléctrico o de 
cualquier otra naturaleza lineal. En la solución: 

El primer paso es determinar las propiedades de cada elemento a partir 
de la geometría del problema, de los datos de carga y de la naturaleza 
del material. Se determina la matriz de rigidez para cada elemento así 
como las correspondientes "cargas nodales" en la forma expresada por la 
Ec. (1.3). Cada elemento tiene su propio número de identificación y sus 
conexiones nodales especificadas. Por ejemplo: 



elemento 



conexión 



Suponiendo que las propiedades se hayan establecido en las mismas 
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coordenadas, podemos alojar cada componente de "rigidez" o de "fuerza" 
en la matriz global como se muestra en la Figura 1.4(6). Cada cuadrado 
sombreado representa un coeficiente individual, o una submatriz del 
tipo K¿j si consideramos más de una cantidad en los nudos. En este 
caso, para cada elemento se muestra su contribución individual y el 
lector puede comprobar la posición de los coeficientes. Adviértase que 
aunque hemos considerado en este ejemplo "elementos" de varios tipos, 
no representa ninguna dificultad su especificación. (Todas las 'fuerzas', 
incluyendo las nodales, se han asociado aquí con elementos por razones 
de simplificación). 

El segundo paso es el ensamblaje de las ecuaciones finales del tipo de la 
Ec. (1.12). Esto se puede realizar simplemente siguiendo la regla dada 
en la Ec. (1.13), es decir, mediante simple adición de todos los números 
en el lugar correspondiente de la matriz global. El resultado se muestra 
en la Figura 1.4(c) donde se han sombreado los coeficientes no nulos. 
Como las matrices son simétricas, en realidad solamente tenemos que 
calcular la mitad superior de la diagonal. 

Todos los coeficientes no nulos están confinados dentro de una banda o 
contorno cuyo ancho puede calcularse a priori a partir de la posición 
de las conexiones nodales. Así pues, en los programas de ordenador 
solamente es preciso almacenar los elementos que caen dentro de la mitad 
superior del ancho de banda, como se muestra en la Figura 1.4(c). 

El tercer paso es introducir las condiciones de contorno en la matriz final 
ya ensamblada, tal como se dijo en la Sección 1.3. A esto le sigue: 

El paso final de resolución del sistema de ecuaciones resultantes. Para 
ello se pueden seguir muchos métodos, algunos de los cuales se expondrán 
en el Capítulo 15. Evidentemente el problema de la resolución de las 
ecuaciones, aunque es extremadamente importante, cae en general fuera 
del alcance de esta obra. 

Al paso final seguirá la sustitución para obtener tensiones, corrientes u 
otras cantidades de salida cuyo conocimiento se desee. 

Vemos, pues, que todas las operaciones que precisa el análisis de 
estructuras, o cualquier otro análisis de redes, son extremadamente sencillas 
y repetitivas. 

Podemos ya definir el sistema discreto general como aquél en el que 
prevalecen dichas condiciones. 

1.7 El sistema discreto general 

En el sistema discreto general, ya sea estructural o de cualquier otra 
clase, encontramos que: 

1. Se define un conjunto de parámetros discretos, tales como a¿, de manera 
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que describan el comportamiento de cada elemento, e, y también el 
comportamiento del sistema conjunto. Les llamaremos parámetros del 
sistema. 

2. Se expresa para cada elemento un conjunto de cantidades q¿ en función 
de los parámetros del sistema a¿. La relación general puede ser no lineal 

ll = «tf(a) (1-20) 
pero en muchos casos será lineal 

q? = K; i a 1 + K£,a 3 + --. + ? (1.21) 

3. Las ecuaciones del sistema se obtienen mediante simple adición 

m 

'i = £ q¿ (i-22) 

e=l 

donde r; son cantidades del sistema (a menudo se les asigna el valor cero). 
Si el problema es lineal, el resultado será un sistema de ecuaciones 

Ka + f = r (1.23) 

tal que 

m m 
Ky = £ K'j ti = £ f? (1.24) 

e=l e=l 
a partir de la cuales pueden determinarse las variables a del sistema. 

El lector observará que en esta definición se incluyen los ejemplos 
estructurales y eléctricos ya expuestos. Sin embargo, dicha definición es 
mucho más amplia. En general no tiene por qué haber linealidad ni ser 
las matrices simétricas, aunque en muchos problemas encontraremos ambas 
cosas. Más aún, la simplicidad de las interconexiones existentes en los 
elementos habituales no es esencial. 

A pesar de que se podrían dar muchos más detalles sobre este punto 
(referimos al lector a libros especializados si desea realizar un estudio más 
completo en el campo de las estructuras 22-24 ), creemos que la exposición 
general presentada aquí basta para proseguir el estudio de este libro. 

Solamente mencionaremos un punto más con relación al cambio de los 
parámetros discretos. El proceso conocido comúnmente como transformación 
de coordenadas es vital en muchos aspectos y debe comprenderse en su 
totalidad. 
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1.8 Transformación de coordenadas 

Suele ser conveniente establecer las características de un elemento 
determinado en un sistema de coordenadas diferentes del que se miden 
las fuerzas exteriores y los desplazamientos de la estructura, o el sistema 
ensamblado. En realidad, para facilitar los cálculos, puede utilizarse un 
sistema de coordenadas diferente para cada elemento. Transformar las 
componentes de las fuerzas y de los desplazamientos que aparecen en 
la Ec. (1.3) a cualquier otro sistema de coordenadas es labor sencilla. 
Obviamente, será preciso hacerlo antes de iniciar el ensamblaje de la 
estructura. 

Diferenciemos al sistema de coordenadas locales en donde calculamos 
las propiedades del elemento con un índice prima y dejemos sin notación 
especial al sistema global de coordenadas necesarias para el ensamblaje. 
Las componentes de los desplazamientos podrán transformarse mediante la 
matriz L de cosenos directores adecuada 



a' = La (1.25) 

Como las componentes correspondientes de las fuerzas deben realizar la 
misma cantidad de trabajo en ambos sistemas f 

q T a = q' T a' (1.26) 

y según (1.25), tendremos 

q r a = q' T La 



q = L r q' (1.27) 

El conjunto de transformaciones dado por (1.25) y (1.27) recibe el nombre 
de contravariante . 

Para transformar "rigideces" que pueden venir dadas en coordenadas 
locales a las globales, escribimos 

q' = K'a' (1.28) 
y según (1.27), (1.28) y (1.25), tendremos 

q = L r K'La 

o sea, en coordenadas globales 



f ( ) T indica matriz traspuesta. 
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K = L t K'L (1.29) 

El lector puede verificar la utilidad de las transformaciones anteriores 
volviendo a resolver el ejemplo anterior de la barra articulada en sus 
extremos. En muchos problemas complicados se pueden dar limitaciones 
externas de alguna clase que obliguen a que la expresión (1.25) tenga 
diferentes grados de libertad en a y en a'. Incluso en tales casos siguen 
siendo válidas las relaciones (1.26) y (1.27). 

En muchos otros casos de análisis discreto puede seguirse un método 
diferente y más general. Nuestro objetivo es reemplazar un conjunto de 
parámetros a, que son las variables de las ecuaciones del sistema, por otro 
relacionado con él mediante una matriz de transformación de coordenadas T 
tal que 

a=Tb (1.30) 
En los casos lineales las ecuaciones del sistema son de la forma 



y tras sustituir tenemos 



Ka=r-f 
KTb = r - f 



(T T KT)b - T r r - T T f 



(1.31) 
(1.32) 
(1.33) 



Este nuevo sistema puede multiplicarse por la izquierda por T , dando 



con lo que se mantiene la simetría de las ecuaciones si la matriz K es 
simétrica. Sin embargo, a veces la matriz T no es cuadrada y la expresión 
(1.30) representa en realidad una aproximación en la que hemos fijado un 
mayor número de parámetros a. Es claro que el sistema de la Ec. (1.32) 
proporciona más parámetros b, y la expresión final (1.33) representa un 
sistema reducido que de alguna manera se aproxima al sistema original. 

Hemos presentado pues el concepto básico de aproximación, que será el 
tema de los capítulos siguientes en donde conjuntos infinitos de cantidades 
se reducirán a conjuntos finitos. 
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Capítulo 2 



ELEMENTOS FINITOS DE UN 
CONTINUO ELÁSTICO, MÉTODO 
DE LOS DESPLAZAMIENTOS 



2.1 Introducción 

El proceso de aproximar el comportamiento de un continuo mediante 
"elementos finitos" que se comportan de una forma similar a los elementos 
reales, "discretos", descritos en el capítulo anterior, se puede introducir 
mediante aplicaciones físicas específicas o como un concepto matemático 
general. Se ha escogido aquí seguir el primer camino, limitando la perspectiva 
a un conjunto de problemas asociados a la mecánica estructural, que 
históricamente fueron los primeros a los que se aplicó el método de los 
elementos finitos. En el Capítulo 9 se generalizarán los conceptos y se 
mostrará que las ideas básicas son ampliamente aplicables. 

Son muchas las facetas de la ingeniería en las que se precisa determinar 
la distribución de tensiones y deformaciones en un continuo elástico. Los 
casos particulares de dichos problemas pueden variar desde problemas 
bidimensionales de tensión o deformación plana, sólidos de revolución 
y flexión de placas y láminas, hasta el análisis más general de sólidos 
tridimensionales. En todos los casos, el número de interconexiones entre 
un "elemento finito" cualquiera rodeado por fronteras imaginarias y los 
elementos vecinos a él es infinito. Es difícil, por consiguiente, ver a primera 
vista cómo pueden discretizarse problemas de este tipo de la forma descrita en 
el capítulo precedente para casos de estructuras más simples. Esta dificultad 
puede superarse (y efectuarse la aproximación) de la siguiente manera: 

1. El continuo se divide, mediante líneas o superficies imaginarias, en un 
número de "elementos finitos" . 

2. Se supone que los elementos están conectados entre sí mediante un 
número discreto de puntos, que llamaremos nodos, situados en sus 
contornos. Los desplazamientos de estos nodos serán las incógnitas 
fundamentales del problema, tal como ocurre en el análisis simple de 
estructuras. 

3. Se toma un conjunto de funciones que definan de manera única el campo 
de desplazamientos dentro de cada "elemento finito" en función de los 
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desplazamientos nodales de dicho elemento. 

4. Estas funciones de desplazamientos definirán entonces de manera 
única el estado de deformación dentro del elemento en función de 
los desplazamientos nodales. Estas deformaciones, junto con las 
deformaciones iniciales y las propiedades constitutivas del material, 
definirán el estado de tensiones en todo el elemento y, por consiguiente, 
también en sus contornos. 

5. Se determina un sistema de fuerzas concentradas en los nodos, tal que 
equilibre las tensiones en el contorno y cualesquiera cargas repartidas, 
resultando así una relación entre fuerzas y desplazamientos de la forma 
de la Ec. (1.3). 

i 

Una vez alcanzado este punto, el procedimiento para encontrar la solución 
puede seguir el procedimiento general descrito con anterioridad. 

Es evidente que hemos introducido una serie de aproximaciones. 
En primer lugar, no siempre es fácil asegurar que las funciones de 
desplazamientos escogidas satisfacen las condiciones de continuidad de 
los desplazamientos entre elementos adyacentes. Por consiguiente, esta 
condición de compatibilidad puede no cumplirse en el contorno de los 
elementos (aunque es evidente que dentro de cada elemento sí se cumplirá, a 
causa de la unicidad de los desplazamientos implicada en el hecho de que los 
mismos estén representados por funciones continuas). En segundo lugar, al 
concentrar las fuerzas equivalentes en los nodos, las condiciones de equilibrio 
sólo se cumplirán para el conjunto del continuo. Normalmente ocurrirá que 
tales condiciones no se cumplirán en zonas localizadas dentro y en el contorno 
de cada elemento. 

Será misión del ingeniero escoger la forma de los elementos y de las 
funciones de desplazamiento para cada caso particular, debiendo usar de 
su ingenio y habilidad, dependiendo el grado de aproximación que se alcance 
del uso que haga de esas dos facultades. 

El procedimiento que acaba de esbozarse se conoce como método de los 
desplazamientos . 1 ,2 

Hasta aquí, el procedimiento descrito se justifica sólo intuitivamente, 
pero de hecho lo que se ha sugerido es equivalente a la minimización de 
la energía potencial total del sistema, siendo función ésta de un campo 
de desplazamientos impuesto. Si este campo de desplazamientos se define 
adecuadamente, deberá producirse convergencia hacia la solución correcta. 
El proceso es, por consiguiente, equivalente al conocido método de Ritz. 
Esta equivalencia se demostrará en una sección posterior de este capítulo, en 
donde se analizarán también los necesarios criterios de convergencia. 

El reconocimiento de equivalencias entre el método de los elementos 
finitos y un proceso de minimización ha sido reciente 2,3 . Sin embargo, 
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Courant en 1943 4 f y Prager y Synge 5 en 1947 propusieron métodos que son 
en esencia idénticos. 

Esta generalización de las bases del método de los elementos finitos 
permite su ampliación a problemas continuos donde sea posible la 
formulación variacional, y lo cierto es que ya se dispone de procedimientos 
generales para discretizar mediante elementos finitos cualquier problema 
definido por un sistema de ecuaciones diferenciales adecuadamente 
constituido. Tales generalizaciones se estudiarán en el Capítulo 9, y a lo largo 
del libro se aplicarán a diversos problemas no pertenecientes al campo de las 
estructuras. Se verá que los métodos descritos en este capítulo se reducen 
esencialmente a la aplicación de funciones de prueba y aproximaciones de 
Galerkin a un caso especial de la mecánica de sólidos. 

2.2 Formulación directa de las características de un elemento finito 

Las "recetas" para deducir las características de un elemento finito de un 
continuo, que fueron esbozadas en líneas generales, serán presentadas ahora 
bajo una forma matemática más detallada. 

Es conveniente obtener los resultados de una forma general aplicable 
a cualquier situación, pero para evitar la introducción de conceptos más 
complicados se ilustrarán las expresiones generales con un ejemplo muy 
sencillo de anáfisis de una rebanada delgada sometida a tensión plana. Para 
ello se divide la región en elementos triangulares como se muestra en la 
Figura 2.1. Se subrayarán las relaciones que tengan carácter general. De 
nuevo se empleará notación matricial. 

2.2.1 La función de desplazamientos. Un elemento finito típico, e, se 
define por sus nodos i, j, m, etc., y por su contorno formado por líneas 
rectas. Aproximemos los desplazamientos u de cualquier punto del elemento 
mediante un vector columna, ü: 















u«ü = EN¿aJ = [N il N i ,...]| 




) =Na e 



donde las componentes de N son en general funciones de posición dadas 
y a e es un vector formado por los desplazamientos nodales del elemento 
considerado. 

| Parece que ya Courant en 1923 anticipó la esencia del método de los elementos 
finitos de una manera general, y en particular para el caso de un elemento triangular, 
en un artículo con el título "On a convergence principie in calculus of variations". 
Kon. Gesellschaft der Wissenschaften zu Góttingen. Nachrichten. Berlín, 1923. 
Afirma: "Imaginamos una malla de triángulos cubriendo el dominio... los criterios 
de convergencia son válidos para cada dominio triangular". 
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Figura 2.1 Región sometida a tensión plana dividida en elementos finitos. 
Por ejemplo, en el caso particular de tensión plana, 

-{*:íi} 

representa los movimientos horizontal y vertical de un punto cualquiera del 
elemento, y 

los correspondientes desplazamientos de un nodo i. 

Las funciones N¿, N^, N m han de escogerse de manera que al sustituir 
en la Ec. (2.1) las coordenadas de los nodos se obtengan los correspondientes 
desplazamientos nodales. Evidentemente, en general, 



Ni(xi,yi) = I (matriz unidad) 
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Figura 2.2 



mientras que 

Ni(zj,yj) = N¿(* m ,ym) = 0, etc. 

condiciones que cumplen funciones lineales de x e y apropiadas. 

Si las dos componentes del desplazamiento se interpolan de la misma 
manera, podremos escribir 

Ni = Nil 

y obtener JV¿ de la Ec. (2.1), teniendo en cuenta que Ni = 1 para x¿ e y¿ y 
cero en los otros vértices. 

La interpolación lineal más evidente en el caso de un triángulo nos dará 
formas para JV¿ como la que se muestra en la Figura 2.2. En el Capítulo 3 se 
dan expresiones detalladas de este tipo de interpolaciones lineales, pero en 
el punto en que nos encontramos pueden ser ya fácilmente deducidas por el 
lector. 

Las funciones de prueba N se llamarán funciones de forma y como se verá 
más adelante juegan un papel decisivo en el análisis por elementos finitos. 

2.2.2 Deformaciones. Una vez conocidos los desplazamientos para todos los 
puntos del elemento, pueden determinarse las "deformaciones" en cualquier 
punto. Éstas darán siempre por resultado una relación que podrá escribirse 
como sigue en forma matricial 





e = Su 


(2.2) 


donde S es un operador lineal apropiado. Mediante la ecuación (2.1), la 
expresión anterior puede aproximarse como 




í = Ba 


(2.3) 


con 








B = SN 


(2.4) 
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En el caso de tensión plana, las deformaciones más importantes son las que 
se producen en el plano y se expresan en función de los desplazamientos 
mediante las conocidas relaciones* que definen el operador S: 



Ixy 



du ' 




" d 


0 


dx 




dx' 


dv 






d 


dy 




o, 


dy 


du dv 
dy dx ; 




d 


d 




_V 


dx 



{:} 



Determinadas ya las funciones de forma N{, Nj y N m , es fácil obtener la 
matriz B. Si adoptamos una expresión lineal para dichas funciones, las 
deformaciones serán constantes en todo el elemento. 



2.2.3 Tensiones. En general, el material contenido dentro del contorno del 
elemento puede estar sujeto a deformaciones iniciales, tales como las debidas 
a cambios de temperatura, retracciones, cristalización, etc. Si representamos 
dichas deformaciones por e 0 > las tensiones se deberán a la diferencia entre las 
deformaciones reales y las iniciales. 

Conviene además suponer que al comienzo del análisis el cuerpo puede 
estar sometido a un sistema conocido de tensiones residuales iniciales <7 0) 
que muy bien podrían medirse, pero cuya predicción sería imposible sin 
un conocimiento completo de la historia del material. Estas tensiones 
pueden sencillamente añadirse a la ecuación general. Así pues, admitiendo 
un comportamiento elástico lineal del tipo más general, la relación entre 
tensiones y deformaciones será lineal y de la forma 



a = D(e - c 0 ) + tro (2.5) 



donde D es una matriz de elasticidad que contiene las propiedades del 
material apropiadas. 

Por otra parte, para el caso particular de tensión plana, hemos 
de considerar tres componentes de tensión que se corresponden con las 
deformaciones definidas anteriormente. Dichas tensiones, en la notación que 
ya nos es familiar, son 




y la matriz D se obtendrá sencillamente de la relación usual entre tensiones 
y deformaciones para un medio isótropo 6 
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£ y - ( £ y)o - + ~g a y 



2(1 + 2.) 

7xy - (7xy)o = = r : 



E 



xy 



y resolviendo el sistema 
D 



1 v 0 
i/ 1 0 
0 0 {\-v)¡2 



2.2.4 Fuerzas nodales equivalentes. Definamos 



qf 



como las fuerzas que actúan en los nodos, siendo éstas estáticamente 
equivalentes a las tensiones en el contorno y a las fuerzas distribuidas que 
actúan sobre el elemento. Cada una de las fuerzas q¿ debe tener el mismo 
número de componentes que el desplazamiento nodal a¿ correspondiente y 
debe ordenarse en las direcciones apropiadas. 

Las fuerzas distribuidas b son por definición las que actúan por unidad 
de volumen en direcciones correspondientes a las de los desplazamientos u 
de ese punto. 

En el caso particular de tensión plana, las fuerzas nodales son 



con las componentes U y V en correspondencia con las direcciones de los 
desplazamientos u y u, y la carga repartida es 



{*;} 



en la que b x y b y son las componentes de la "fuerza másica". 

Para establecer la equivalencia estática entre las fuerzas nodales y las 
tensiones actuantes en el contorno y las fuerzas distribuidas, el procedimiento 
más sencillo es imponer un desplazamiento arbitrario (virtual) a los 
nodos e igualar el trabajo exterior realizado por las fuerzas nodales al 
efectuado anteriormente por las tensiones y fuerzas distribuidas durante dicho 
desplazamiento. 
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Sea fia c un desplazamiento virtual de los nodos. Este origina, según 
las Ees. (2.1) y (2.2), desplazamientos y deformaciones dentro del elemento 
iguales, respectivamente, a 



£ü = N ¿a c 



Se = B ¿a c 



(2.6) 



El trabajo efectuado por las fuerzas nodales es igual a la suma de 
los productos de las componentes de cada una de las fuerzas por sus 
correspondientes desplazamientos, es decir, en lenguaje matricial 



6a. eT q° 



(2.7) 



Análogamente, el trabajo interno por unidad de volumen efectuado por 
las tensiones y fuerzas distribuidas es 



oí 



6e T <r - Su T b 



¿a r (B T <r - N r b) 



(2.8) 



(2.9) 



Igualando el trabajo externo con el trabajo interno total obtenido al 
integrar sobre el volumen del elemento, V e , se obtiene 

¿a eT q e = ¿a eT Qf B T <r d(vol) - N r b d(vol)) (2.10) 

Como esta relación es válida para cualquier desplazamiento virtual, 
podemos igualar los multiplicandos. Así pues, 



q e = / B r <rd(voI)- / N r Mvol) 

Jv< Jv< 



(2.11) 



Esta expresión es válida con carácter general cualesquiera que sean las 
relaciones entre tensiones y deformaciones. En el caso de la ley lineal 
expresada por la Ec. (2.5), podemos escribir la Ec. (2.11) como 



q € = K c a c + f* 



(2.12) 



donde 



t Adviértase que, según las reglas del álgebra matnaal, la traspuesta de un producto de 
matrices verifica 

(AB) T = B T A T 
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K e = / B r DB¿(vol) 
JV* 



(2.13a) 



r = - N T b d(vol) - j B r De 0 d(vol) + j B r <r 0 d(vol) 



(2.13b) 



En la última ecuación, los tres términos representan las fuerzas debidas 
respectivamente a las fuerzas másicas, las deformaciones iniciales y las 
tensiones iniciales. Estas relaciones presentan características similares a 
las que se obtuvieron usando los elementos estructurales discretos que se 
describen en el Capítulo 1. 

Si las tensiones iniciales forman un sistema en equilibrio, como puede 
ser el caso de tensiones residuales, las fuerzas obtenidas del término 
correspondiente de la Ec. (2.13b) serán idénticamente nulas tras el 
ensamblaje. Por consiguiente, con frecuencia se omite la evaluación de dichas 
fuerzas. Sin embargo, como ejemplo, cuando se fabrica una pieza a partir 
del material en bruto en el que se encuentran presentes tensiones residuales, 
o si se hace una excavación en roca en la que existan tensiones tectónicas 
conocidas, la eliminación de material producirá la aparición de fuerzas no 
compensadas que son resultado del término en cuestión. 

Para el caso particular del elemento triangular bajo tensión plana, estas 
relaciones se obtendrán con la apropiada sustitución. Ya hemos señalado que 
la matriz B, en este caso, es independiente de las coordenadas, por lo que la 
integración resultará especialmente sencilla. 

La interconexión y solución del conjunto de los elementos sigue los 
sencillos procedimientos de análisis de estructuras expuestos en el Capítulo 1. 
En general, podrá haber fuerzas externas concentradas actuando en los nodos 
y habrá de añadirse el vector 




(2.14) 



al considerar el equilibrio de los nodos. 

Hemos de hacer aquí una observación relativa a los elementos cercanos al 
contorno. Si se especifican los desplazamientos en el contorno, no se suscita 
problema particular alguno. Sin embargo, supongamos el contorno sometido 
a una carga exterior t distribuida por unidad de superficie. Entonces 
tendremos que añadir un término adicional a las fuerzas nodales del elemento 
cuyo contorno posee una superficie A e . Considerando el trabajo virtual, este 
término será simplemente 
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L 



N T t d(área) 



(2.15) 



con la integración extendida a la superficie del contorno del elemento. Se 
advertirá que t debe tener el mismo número de componentes que u para que 
la expresión anterior sea válida. 

En la Figura 2.1 se muestra dicho elemento de contorno siempre para el 
caso particular de tensión plana. Las integrales de este tipo no se calculan 
explícitamente. Con frecuencia, el analista siguiendo su "intuición física", 
sustituye la carga que actúa en el contorno por cargas concentradas en los 
nodos, calculando éstas directamente mediante consideraciones de estática. 
En el caso particular considerado, los resultados son idénticos. 

Una vez obtenidos los desplazamientos nodales por resolución de las 
ecuaciones globales del tipo "estructural", se pueden calcular las tensiones 
en cualquier punto del elemento utilizando las Ees. (2.3) y (2.5), y obtener 



<r = DBa € - De 0 4- *o 



(2.16) 



en la cual se reconocerán inmediatamente los términos típicos que aparecen 
en la Ec. (1.4), siendo la matriz de tensiones del elemento 



S e = DB 

A esta expresión hemos de añadir las tensiones 



(2.17) 



<r eo = -De 0 y <ro (2.18) 

Es necesario un comentario para aclarar la ausencia del término 
correspondiente a tensiones originadas por cargas distribuidas a^. Ello se 
debe al hecho de que no se ha considerado el equilibrio interno dentro de cada 
elemento, y sólo se han establecido las condiciones de equilibrio globales. 

2.2.5 Concepto generalizado de desplazamientos, deformaciones y tensiones. 
El significado de desplazamientos, deformaciones y tensiones en el caso 
presentado de tensión plana es obvio. En muchas otras aplicaciones, que 
en este libro se expondrán más adelante, esta terminología puede aplicarse 
a otras cantidades menos evidentes. Por ejemplo, si consideramos los 
elementos de una placa, el "desplazamiento" puede estar caracterizado por 
la flecha y las componentes del giro en un punto particular de la placa. Las 
"deformaciones" se definirán entonces como las curvaturas de la superficie 
media y las "tensiones" como los correspondientes momentos flectores. 

Todas las expresiones deducidas aquí tienen validez general con la 
condición de que la suma de los productos de los desplazamientos y las fuerzas 
correspondientes represente realmente el trabajo exterior efectuado, y la de 
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los productos de las "deformaciones" y las correspondientes "tensiones" sea 
el trabajo interno total. 

2.3 Generalización al dominio completo. Abandono del concepto 
de fuerza nodal 

En la sección precedente se aplicó el principio de los trabajos virtuales a 
un elemento aislado, y se mantuvo el concepto de fuerza nodal equivalente. 
Por ello, al método convencional de establecer directamente el equilibrio 
seguía la aplicación del principio del ensamblaje. 

La idea de sustituir la interacción continua por fuerzas nodales aportadas 
por los elementos constituye una dificultad conceptual, aunque resulte 
considerablemente atractiva para los ingenieros "prácticos" y a veces permita 
una interpretación que de otra forma no resultaría evidente para los 
matemáticos, generalmente más rigurosos. Sin embargo, no hay necesidad 
de considerar cada elemento por separado y el razonamiento de la sección 
anterior puede aplicarse directamente al continuo completo. 

La ecuación (2.1) puede interpretarse como válida para toda la 
estructura, es decir, 

u = Ña (2.19) 
en la que a representa todos los puntos nodales, y 

Ñ¿ = Nj (2.20) 

cuando el punto en cuestión esté dentro de un elemento particular e y siendo 
i un punto asociado a dicho elemento. Si el punto i no está dentro del 
elemento, 

Ñi = 0 (2.21) 

La matriz B se puede definir similarmente y suprimiremos el índice 
de barra suponiendo simplemente que las funciones de forma, etc., están 
definidas en toda la región V . 

Podemos ahora escribir que para cualquier desplazamiento virtual 6a. la 
suma del trabajo interno y externo para todo el dominio es 

-¿a r r= / 8\i T hdV+ ( 6u T tdA- ( 6e T <rdV (2.22) 

Jv Ja Jv 

En la ecuación anterior ¿a, ¿>u, Se pueden ser completamente arbitrarios, 
siempre que provengan de la suposición de un campo continuo de 
desplazamientos. Si suponemos, por conveniencia, que son simples 
variaciones ligadas por las relaciones (2.19) Y (2.23), y sustituyendo la 
relación constitutiva (2.5), se obtiene un sistema de ecuaciones algebraicas 
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Ka+f=r 



(2.23) 



donde 



= J B r DB dV 



(2.24a) 



= - J N T b dV — N T t dA - J v B r De 0 dV + B r <r 0 dV 



(2.24b) 



Las integraciones se extienden a todo el volumen V y a toda la superficie 
A donde se especifican las fuerzas de superficie. 
Es inmediatamente evidente de lo anterior, que 



K, 



(2.25) 



en virtud de la propiedad de las integrales definidas, que establece que la 
integral total es la suma de las integrales de las partes: 



)dV 



)dV 



(2.26) 



El mismo razonamiento es evidentemente válido para las integrales de 
superficie expresadas en la Ec. (2.25). Vemos que el "secreto" para que 
la aproximación tenga las propiedades del "sistema discreto general del 
Capítulo 1" reside simplemente en escribir la aproximación en forma integral. 

Tanto las reglas para el ensamblaje como el resto de las conclusiones 
alcanzadas se han obtenido prescindiendo del concepto de "fuerzas entre 
elementos". En lo que queda de este capítulo se prescindirá del índice 
de elemento, a menos que se necesite específicamente. Tampoco se hará 
diferencia entre las funciones de forma para el elemento y para el continuo. 

No obstante, se suscita inmediatamente un punto importante. Al 
considerar el trabajo virtual para el continuo completo [Ec. (2.22)] e 
igualar éste a la suma de las contribuciones de todos los elementos, se 
supone imph'cit amenté que no se desarrollan discontinuidades entre elementos 
adyacentes. Si apareciesen tales discontinuidades, habría que añadir una 
contribución igual al trabajo efectuado por las tensiones en las separaciones 
entre elementos. 

En otras palabras: se precisa que los términos integrados en la Ec. (2.26) 
sean finitos. Estos términos provienen de las funciones de forma JVj, usadas 
para definir el desplazamiento u [mediante la Ec. (2.14)], y sus derivadas, 
asociadas a la definición de deformación [viz. Ec. (2.3)]. Si, por ejemplo, las 
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"deformaciones", están definidas por las primeras derivadas de las funciones 
JV, éstas deben ser continuas. En la Figura 2.3 se ve cómo las primeras 
derivadas de funciones continuas pueden presentar "saltos", para seguir 
estando acotadas, mientras que las segundas derivadas pueden ser infinitas, 
Llamamos a tales funciones Cq continuas. 

En algunos problemas la "deformación" en sentido generalizado puede 
estar definida por derivadas segundas. En tales casos se precisa obviamente 
que tanto la función JV como su pendiente (primera derivada) sean continuas. 
Tales funciones son más difíciles de derivar, pero se hará uso de ellas en 
problemas de placas y láminas. A este tipo de funciones se les llama C\ 
continuas. 

2.4 El método de los desplazamientos como minimización de la 
energía potencial total 

El principio de los trabajos virtuales utilizado en las secciones anteriores 
asegura el cumplimiento de las condiciones de equilibrio dentro de los límites 
establecidos por la configuración de desplazamientos supuesta. El equilibrio 
sólo será completo si la igualdad de los trabajos virtuales se cumple para toda 
variación arbitraria de los desplazamientos (imponiendo sólo condiciones de 
contorno). 

Si el número de parámetros de a, que define los desplazamientos, se 
incrementa ilimit adámente, siempre podremos asegurar entonces una mayor 
aproximación de todas las condiciones de equilibrio. 

El principio de los trabajos virtuales establecido en la Ec. (2.22) puede 
replantearse de manera diferente si las cantidades virtuales ¿a, Su y Se se 
consideran como variaciones (o diferenciales) de las cantidades reales. 

Así, por ejemplo, podemos escribir 

6 (a r r + j u T hdV + jf u T t dAj = -SW (2.27) 

para los tres primeros términos de la Ec. (2.22), donde W representa la 
energía potencial de las cargas externas. La expresión anterior es cierta si r, 
b y t son conservativas (o independientes de los desplazamientos). 

Para ciertos materiales, el último término de la Ec. (2.22) puede escribirse 

Sü= f Se T adV (2.28) 
Jv 

donde U es la "energía de deformación" del sistema. Para el material elástico 
lineal descrito por la Ec. (2.5), el lector puede verificar que 



U = - f e T T>edV- í e T T>e 0 dV + / e T <r 0 dV (2.29) 
2 Jv Jv Jv 
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Zona "de alisamiento" 




Figura 2.3 Diferenciación de una función con la primera derivada discontinua 
(continuidad C 0 ). 



proporcionará por diferenciación la expresión correcta, siempre que D sea 
una matriz simétrica (realmente, se trata de una condición necesaria para 
que exista la función unívoca U). 

Así, en vez de la Ec. (2.22), podemos escribir simplemente 



S(U + W) = 6(11) = 0 



(2.30) 



donde la cantidad II recibe el nombre de energía potencial total. 

La ecuación anterior significa que, para asegurar el equilibrio, la 
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energía potencial total debe ser estacionaria para las variaciones de los 
desplazamientos admisibles. Las ecuaciones de elementos finitos deducidas 
en la sección anterior [Ec. (2.23) y (2.25)] son simplemente la expresión de 
esta variación con respecto a un número de desplazamientos reducido a un 
número finito de parámetros a, y podrían escribirse 



= 0 (2.31) 



Se puede demostrar que en problemas de elasticidad, la energía potencial 
total no sólo es estacionaria, sino también mínima. 7 Así pues, el método de 
los elementos finitos busca dicho mínimo con la condición de que satisfaga 
una determinada configuración de desplazamientos. 

A mayor número de grados de libertad, tanto más se acercará la 
solución a la exacta, la cual asegura el equilibrio completo, siempre y 
cuando los desplazamientos tiendan, en el límite, hacia los desplazamientos 
verdaderos. Podríamos de esta forma deducir las condiciones necesarias para 
la convergencia de los procesos de elementos finitos. No obstante, aplazamos 
este estudio para una sección posterior. 

Es interesante observar que, si bien el equilibrio verdadero requiere 
la minimización completa de la energía potencial total, II, una solución 
aproximada mediante elementos finitos proporciona siempre una energía 
aproximada II mayor que la correcta. Por consiguiente, siempre se obtiene 
una cota superior en el valor de la energía potencial total. 

Si la función II pudiera especificarse a priori, entonces las ecuaciones de 
elementos finitos se podrían deducir directamente mediante diferenciación tal 
como se establece en la expresión (2.31). 

El conocido método de aproximación de Rayleigh 8 -Ritz 9 , utilizado con 
frecuencia en análisis elástico, sigue precisamente ese procedimiento. Se 
formula una expresión para la energía potencial y la configuración de 
desplazamientos se expresa en función de un conjunto finito de parámetros 
indeterminados. Minimizando la energía potencial total con respecto a 
esos parámetros se obtiene un conjunto de ecuaciones simultáneas. Así 
pues, el método de los elementos finitos descrito hasta este punto es 
idéntico al procedimiento de Rayleigh-Ritz. La única diferencia está en la 
manera de imponer los desplazamientos. En el método de Ritz utilizado 
tradicionalmente, éstos se especifican mediante expresiones válidas en toda 
la región, obteniéndose por consiguiente ecuaciones simultáneas sin forma de 
banda y la matriz de coeficientes está llena. En los procesos por elementos 
finitos, dicha especificación se hace parceladamente; cada parámetro nodal 
influencia sólo a los elementos adyacentes y así se obtiene una matriz de 



da 



dU 
da 2 
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coeficientes con muchos términos nulos y normalmente en banda. 

Por su naturaleza, el método convencional de Ritz queda limitado a 
porciones de la región total con formas geométricas relativamente sencillas, 
mientras que en el análisis por elementos finitos esta limitación sólo se da 
para el elemento en sí. Por consiguiente, empleando elementos de formas 
relativamente sencillas podemos obtener las configuraciones más complicadas 
y realistas mediante un ensamblaje adecuado. 

Otra diferencia estriba en la usual asociación del parámetro 
indeterminado a un desplazamiento nodal particular. Esto permite una 
interpretación física sencilla de gran valor para el ingeniero. Indudablemente, 
mucha de la gran popularidad del método de los elementos finitos se debe a 
este hecho. 

2.5 Criterios de convergencia 

Las funciones de forma supuestas reducen los infinitos grados de libertad 
del sistema y es posible que nunca obtengamos el verdadero valor mínimo 
de la energía, independientemente de lo tupida que sea la subdivisión. 
Para asegurar la convergencia hacia el resultado correcto han de cumplirse 
determinadas condiciones. Por ejemplo, es obvio que una función de 
desplazamientos ha de ser capaz de representar la distribución real de los 
desplazamientos tan aproximadamente como sea posible. Veremos que esto 
no ocurre cuando las funciones que hayamos elegido sean tales que se 
produzcan deformaciones en algún elemento cuando éste se someta a los 
desplazamientos propios de un cuerpo rígido. Así pues, el primer criterio que 
una función de desplazamientos debe satisfacer es el siguiente: 

Criterio 1. La función de desplazamientos debe elegirse de tal forma que 
no permita deformaciones de un elemento cuando los desplazamientos 
nodales se deban a un desplazamiento del conjunto como cuerpo rígido. 

Esta condición, evidente por sí misma, puede violarse fácilmente si se emplean 

las funciones de desplazamientos. 

Un segundo criterio se deriva de los mismos razonamientos anteriores. 
Es evidente que a medida que los elementos se hagan más pequeños tanto 
más prevalecerán en ellos condiciones de deformación constante. Si de 
hecho existen dichas condiciones, será pues conveniente escoger el tamaño 
de, los elementos que las reproduzcan exactamente para conseguir un buen 
grado de aproximación. Se pueden encontrar funciones que satisfagan el 
primer criterio, pero que requieran al mismo tiempo que las deformaciones 
varíen dentro del elemento, aún cuando los desplazamientos nodales sean 
compatibles con un estado de deformación constante. Dichas funciones no 
convergen bien en general hacia la solución exacta y no pueden, ni en el 
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límite, representar la distribución verdadera de deformaciones. Así pues, el 
segundo criterio se puede formular como sigue: 

Criterio 2. La función de desplazamientos tiene que ser tal que si los 
desplazamientos nodales son compatibles con un estado de deformación 
constante se obtenga realmente dicho estado de deformación constante. 
(El término "deformación" se emplea además en su sentido general.) 

Se habrá observado que el Criterio 2 incorpora de hecho las condiciones 
exigidas por el Criterio 1, ya que los desplazamientos de un cuerpo rígido 
son casos particulares de deformación constante nula. Este criterio fue 
establecido originalmente por Bazeley et al. 10 en 1965. Estrictamente, ambos 
criterios sólo necesitan ser satisfechos en el límite cuando el tamaño del 
elemento tiende a cero. Sin embargo, al imponer estos criterios a elementos 
de tamaño finito se alcanza mayor grado de precisión, aunque en ciertas 
situaciones (tal como, se ilustra en el análisis axial simétrico del Capítulo 4) 
la imposición del segundo no es posible o esencial. 

Finalmente, como ya hemos mencionado en la Sección 2.3, en todos estos 
razonamientos se ha supuesto que la contribución del trabajo realizado en 
los contornos de separación entre elementos al trabajo virtual total es nulo. 
Por consiguiente, para asegurarnos que se cumple esta condición es necesario 
incluir el criterio siguiente: 

Criterio 3. Las funciones de desplazamientos deben elegirse de manera 
que las deformaciones que se producen en los límites de separación entre 
elementos sean finitas (aunque puedan ser indeterminadas). 

Este criterio implica una cierta continuidad de los desplazamientos entre 
elementos. Si las deformaciones se definen mediante las derivadas primeras, 
como en el ejemplo de elasticidad plana citado aquí, sólo deberán ser 
continuos los desplazamientos. No obstante, si, como ocurre en los problemas 
de placas y láminas, las "deformaciones" se definen mediante las derivadas 
segundas de las flechas, deberán ser también continuas las derivadas primeras 
de éstas. 2 

Matemáticamente, los criterios anteriores forman parte del enunciado 
de "funcional complejo"; la discusión matemática debe buscarse en otros 
lugares. 11-16 La demostración "heurística" de las condiciones de convergencia 
ofrecida aquí es suficiente a efectos prácticos, con excepción de los casos más 
patológicos. En el Capítulo 9 se generalizarán todos estos criterios. 

2.6 Error de discretización e índice de convergencia 

En la sección anterior hemos admitido que la aproximación de los 
desplazamientos representada por la ecuación (2.1) nos proporcionará la 
solución exacta en el h'mite, si el tamaño h de los elementos se va haciendo 
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cada vez más pequeño. Los argumentos para ello son sencillos: puesto que 
el desarrollo es capaz de reproducir en el límite cualquier distribución de 
desplazamientos concebible dentro del continuo, y además, como la solución 
de cada aproximación es única, aquél debe proporcionar en el límite, cuando 
h — * 0, la solución exacta. Y lo cierto es que en algunos casos, dicha solución 
exacta puede alcanzarse con un número finito de subdivisiones (o incluso con 
un solo elemento) si el desarrollo polinómico utilizado para ese elemento puede 
ajustarse exactamente a la solución correcta. Así, por ejemplo, si la solución 
exacta es un polinomio de segundo grado y las funciones de forma incluyen 
todos los polinomios de ese grado, la aproximación nos proporcionará la 
solución exacta. 

Este último argumento puede ayudarnos a determinar el grado de 
convergencia del método de los elementos finitos, puesto que la solución 
exacta puede siempre desarrollarse en serie polinómica en las proximidades 
de cualquier punto (o nodo) i, 

Si en el interior de un elemento de "tamaño" h se emplea un desarrollo 
polinómico de grado p, éste podrá ajustarse localmente al desarrollo de Taylor 
hasta dicho grado y, como x e y son del orden de magnitud de h, el error en u 
sera del orden 0(/i p+1 ). Así, por ejemplo, en el problema de elasticidad plana 
discutido anteriormente hemos empleado un desarrollo lineal y p = 1; por 
consiguiente, debemos esperar un grado de convergencia del orden 0(/i 2 ), lo 
cual implica que el error en los desplazamientos se reducirá a 1 /4 si el tamaño 
de los elementos de la malla se reduce a la mitad. 

Mediante un argumento similar, las deformaciones (o las tensiones) que 
vienen dadas por las derivadas m-ésimas de los desplazamientos, convergerían 
con un error de 0(h p+1 ~ m ), y para m = 1 en el ejemplo anterior, tendríamos 
que el error de convergencia sería 0(h). La energía de deformación que viene 
dada por el cuadrado de las tensiones exhibirá un error de 0(h 2 ( p+1 ~ m ) ) u 
0(h 2 ) para el ejemplo de tensión plana. 

Desde el punto de vista matemático, estos argumentos pueden parecer 
quizás banalidades "heurísticas"; sin embargo, son ciertos 16 y proporcionan 
correctamente el grado de convergencia. Frecuentemente se han desarrollado 
análisis matemáticos mucho más profundos no sólo para determinar el 
grado de convergencia, sino también para establecer el límite superior del 
error. Ninguno de ellos ha resultado hasta hoy especialmente útil, ya que 
generalmente vienen expresados en función de cantidades desconocidas a 
priori. Más aún, la simple determinación del grado de convergencia basta 
a menudo para extrapolar la solución hasta el resultado correcto. Así, por 
ejemplo, si los desplazamientos convergen con 0(h 2 ) y tenemos dos soluciones 
aproximadas u 1 y u 2 obtenidas con mallas de tamaños h y h/2, podemos 



ELEMENTOS FINITOS DE UN CONTINUO ELÁSTICO 



39 



escribir, siendo u la solución exacta, 

u l -u 0(h 2 ) 



u 2 -u 0(h¡2y 



(2.33) 



y de esta ecuación podemos predecir una solución casi exacta para u. Tal 
extrapolación fue introducida originalmente por Richardson 17 y es de gran 
utilidad si la convergencia es monótona. 

Volveremos a la importante cuestión de la estimación del error debido 
al proceso de dicretización en el Capítulo 14 y se mostrará que hoy existen 
métodos mucho más precisos que los derivados del análisis de convergencia. 
De hecho, se están introduciendo métodos de refinamiento automático de 
mallas para conseguir una precisión preespecificada. 

El error de discretización no es el único posible en los cálculos por 
elementos finitos. Además de los errores obvios que se pueden producir 
cuando se manejan computadores, los debidos al redondeo son siempre 
posibles. Como los computadores operan con números redondeados a un 
número finito de dígitos, cada vez que tenga lugar una sustracción de dos 
números "parecidos" se producirá una disminución del grado de precisión. 
En los procesos de resolución de sistemas de ecuaciones son necesarias 
muchas sustracciones y la precisión disminuye. También se incluyen aquí 
los problemas de condicionamiento de la matriz y cuando se emplee el 
método de los elementos finitos se deberá ser consciente en todo momento 
de las limitaciones de precisión que impiden alcanzar la solución exacta. 
Afortunadamente, con los computadores modernos que admiten un gran 
número de cifras significativas, estos errores con frecuencia son pequeños. 

El tema de los errores provenientes de los procesos algebraicos se tratará 
en el Capítulo 15, que trata de los procesos de cálculo. 



2.7 Funciones de desplazamientos discontinuos entre elementos. 
Elementos no conformes y el test de la parcela 

En algunos casos es bastante difícil encontrar funciones de 
desplazamientos para un elemento que sean automáticamente continuas en 
todos los puntos del contorno de separación entre elementos adyacentes. 

Como ya se ha señalado, la discontinuidad de los desplazamientos 
originará deformaciones infinitas en los contornos de separación, factor 
ignorado en la formulación presentada, ya que sólo hemos considerado las 
contribuciones de energía debida a los elementos en sí. 

Sin embargo, si, en el h'mite, al disminuir el tamaño de las subdivisiones 
se restaura la continuidad, la formulación ya desarrollada seguirá tendiendo 
hacia la solución correcta. Esta situación se alcanza siempre si 

a) un estado de deformación constante asegura automáticamente la 
continuidad de los desplazamientos, y 



40 



El Método de los Elementos Finitos 



b) se satisface el criterio de deformación constante de la sección precedente. 

Para comprobar que dicha continuidad se consigue para cualquier 
configuración de malla cuando se emplean elementos no conformes es 
necesario imponer, a un número arbitrario de elementos, desplazamientos 
nodales que correspondan con un estado de deformación constante 
determinado. Si alcanzamos simultáneamente el equilibrio en todos los nodos 
sin necesidad de introducir ninguna fuerza nodal exterior, y se obtiene un 
estado de tensiones constante, es evidente que no se habrá perdido trabajo 
exterior a través de las discontinuidades entre elementos. 

Los elementos que cumplan este test de la parcela convergerán a la 
solución exacta, e incluso a veces los elementos no conformes presentan un 
comportamiento superior a los elementos conformes. 

El test de la parcela fue introducido originalmente por Irons 10 , y desde 
entonces ha demostrado ser una condición suficiente de convergencia. 16,18,19 
El concepto de test de la parcela puede ser generalizado para dar información 
sobre la velocidad de convergencia que puede esperarse de un elemento. 

En ocasiones encontraremos que el uso de elementos "no conformes" 
proporciona mejores resultados que aquéllos que satisfacen a priori los 
requisitos de convergencia. Volveremos a este problema con detalle en el 
Capítulo 11, donde se tratará ampliamente el test de la parcela. 

2.8 Límite de la energía de deformación en el método de los 
desplazamientos 

A pesar de que la solución aproximada obtenida mediante elementos 
finitos por el método de los desplazamientos siempre estima por exceso el 
valor de la energía potencial total II (correspondiendo el mínimo a la solución 
exacta), ello no resulta de utilidad práctica inmediata. No obstante, en casos 
particulares es posible obtener un límite más útil. 

Consideremos en particular el caso en el que no hayan deformaciones ni 
tensiones "iniciales" . Por el principio de conservación de la energía, la energía 
de deformación será igual al trabajo efectuado por las fuerzas exteriores, el 
cual aumenta uniformemente desde cero. 20 Este trabajo vale -\W, donde 
W es la energía potencial de las fuerzas exteriores. 

Así, 

U + \w = 0 (2.34) 

o 

U = ü + W = -U (2.35) 

donde se supone un campo de desplazamientos exacto o aproximado. 

Así pues, en el caso anterior la solución aproximada siempre estima 
por defecto el valor de U y toda solución obtenida por el método de los 
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desplazamientos suele ser conocida como solución por defecto. 

Si sólo actúa una fuerza exterior puntual R, el límite de la energía de 
deformación informa inmediatamente que la deformación bajo dicha carga 
ha sido subestimada (puesto que U = -\W = £r r a). En casos de cargas 
exteriores más complicadas la utilidad de este valor límite es limitada, puesto 
que no pueden ponerse límites ni a desplazamientos ni a tensiones, que son 
las magnitudes que realmente interesan al ingeniero. 

Es importante recordar que este límite de la energía de deformación sólo 
es válido si no existen tensiones o deformaciones iniciales. 

La expresión de U se puede obtener, en este caso, de la Ec. (2.29) bajo 
la forma 

U = \ ( e T Be d(vol) (2.36) 
2 Jv 

que utilizando la Ec. (2.2) se transforma simplemente en 
1 



u = l» T 



í B r DB á(vol) 
JV 



a = ^a r Ka (2.37) 



forma matricial "cuadrática" en la cual K es la matriz de rigidez discutida 
con anterioridad. 

La anterior expresión de la energía es siempre positiva por consideraciones 
físicas. Se deduce, por consiguiente, que la matriz K que aparece en todos 
los ensamblajes de elementos finitos no sólo es simétrica sino que es "definida 
positiva" (propiedad establecida en realidad por la condición de que la forma 
cuadrática debe ser siempre mayor o igual a cero). 

Esta característica es importante cuando se considera la resolución 
numérica de las ecuaciones simultáneas implicadas, ya que en el caso de 
ecuaciones "definidas positivas simétricas" aparecen simplificaciones. 



2.9 Minimización directa 

El hecho de que la aproximación por elementos finitos se reduce 
a minimizar la energía potencial total II, definida en función de un 
número finito de parámetros nodales, nos lleva a formular el sistema de 
ecuaciones simultáneas representadas simbólicamente por la Ec. (2.31). Este 
procedimiento es el más corriente y conveniente, particularmente en los casos 
de soluciones lineales. Sin embargo, se podrían seguir otros procedimientos, 
bien conocidos en el campo de la optimización, para estimar el mínimo valor 
de II. En este texto seguiremos utilizando el método de las ecuaciones 
simultáneas, pero el lector interesado puede muy bien tener presente que 
existen otros procedimientos. 21,22 
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Funciones de forma 
para h>, 1 
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Figura 2.4 Elemento finito de viga y sus funciones de forma. 



2.10 Un ejemplo 

Los conceptos estudiados y la formulación general citada son un poco 
abstractos y el lector puede quizás en este punto esforzarse en comprobar si 
ha captado la esencia de los procedimientos de aproximación desarrollados. 
Como los cálculos detallados de un sistema de elementos bidimensional será 
mejor dejarlos para los computadores, podemos efectuar un cálculo manual 
sencillo para un elemento finito unidimensional de una viga. Además, 
este ejemplo nos permitirá introducir de manera sencilla los conceptos de 
tensiones y deformaciones generalizadas. 

Consideremos la viga representada en la Figura 2.4. La "deformación" 
generalizada es aquí la curvatura. Así pues, tenemos: 

d 2 w 

donde w es la flecha vertical, que es la incógnita fundamental. La tensión 
generalizada (a falta de la deformación por esfuerzo cortante) será el momento 
flector M, relacionado con la "deformación" por 

d 2 w 

De esta forma tendremos inmediatamente, empleando la notación general de 
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las secciones anteriores, 

D = El 

Si se discretiza la flecha, podremos escribir 

w = Na 

para todo el sistema o para un elemento individual, ij. 

En este ejemplo, las deformaciones se expresan como derivadas segundas 
de la flecha y es necesario asegurar que tanto w como la derivada primera 

dw 

w x = — =6 
dx 

son continuas entre elementos. Esto se cumple fácilmente si como parámetros 
nodales se toman los valores de w y del giro, w x . Así, 



Se deducirán a continuación las funciones de forma. Si para definir 
la deformada tomamos dos nodos por elemento (o sea, cuatro variables), 
podemos suponer que ésta viene dada por un polinomio de tercer grado 

w = «i + a 2 x + oc 3 x 2 + a 4 x 3 

Éste nos definirá las funciones de forma correspondientes a w¿ y w x i tomando 
para cada una un polinomio de tercer grado que valga uno en los puntos 
apropiados (x = 0; L) y cero en cualquier otro punto, tal como se muestra 
en la Figura 2.4. 

Las expresiones de las funciones de forma para el elemento representado 
pueden escribirse 

N¿ = [1 - 3(x/¿) 2 + 2(xfL)\ L(x/L - 2(x/L) 2 + (x/¿) 3 )] 
Nj = [3(x/LY - 2(x/Lf, L(-(x/Lf + (x/Lf)] 

Inmediatamente podemos escribir 

B, =-^N i = [6-12( I /¿), (4-6(x/I))I]/I 2 
dx 1 

= -¿N, = [-6 + 12(x/¿), (2 - 6(x/i))£]/£ 2 
y las matrices de rigidez para el elemento pueden escribirse 
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Vi 



El Bj dx 



Dejaremos para el lector el cálculo detallado de ésta y de las "fuerzas" 
correspondientes a una carga uniformemente distribuida p (supuesta 
constante en ij y nula en el resto). Se observará que las ecuaciones finales 
para un nodo i, una vez ensambladas, relacionan entre sí tres flechas nodales 
i, jf, k. Explícit amenté estas ecuaciones son para elementos de la misma 
longitud L. 



El 



12/L 3 , -6/L 2 
6/L 2 , 2/L 



w k 1 



+ EI 



24/Z 3 , 
0, 



0 

8/L 



+EI 



12/¿ 3 , 6/L 2 
-6/L 2 , 2/L 



]{:;} 

{ i] } + { -pXVl2 } 



Es interesante comparar éstas con la forma exacta representada por 
las llamadas ecuaciones de "giros y traslaciones de los nudos" que pueden 
encontrarse en los textos generales. 

En este caso se hallará que la aproximación por elementos finitos consigue 
la solución exacta porque ésta se halla representada por un polinomio de 
tercer grado para una carga uniforme. Para cualquier otra carga distribuida 
es fácil ver que la diferencia entre la solución exacta y la aproximada decrece 
a medida que la longitud de los elementos tiende a cero. 



2.11 Observaciones finales 

El estudio de sólidos elásticos por el método de "los desplazamientos" 
sigue siendo, sin duda, el procedimiento más extendido y fácilmente 
comprensible. En muchos de los capítulos que siguen emplearemos las 
fórmulas generales desarrolladas en éste, en relación a problemas de 
elasticidad lineal (Capítulos 3, 4, 5 y 8). Estos son también aplicables en 
el contexto del análisis no lineal, donde las principales variaciones son las 
definiciones de las tensiones, deformaciones generalizadas y demás cantidades 
asociadas a ellas. Es por ello conveniente resumir las fórmulas esenciales, lo 
que se hace en el Apéndice 2. 

En el Capítulo 9 mostraremos que los procedimientos desarrollados 
aquí no son sino un caso particular de discretización por elementos finitos, 
aplicados a las ecuaciones de equilibrio que gobiernan el problema, expresadas 
en función de los desplazamientos. 23 Obviamente, son posibles otros puntos 
de partida alternativos. Algunos de éstos se mencionarán en el Capítulo 12. 
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Capítulo 3 



TENSIÓN Y DEFORMACIÓN PLANA 



3.1 Introducción 

El método de los elementos finitos obtuvo sus primeros éxitos en su apli- 
cación a problemas bidimensionales. 1,2 En el Capítulo 2 ya se han empleado 
problemas de ese tipo para aclarar las bases de la formulación por elementos 
finitos y para deducir las relaciones generales. Estas relaciones básicas están 
expresadas en las Ec. (2.1) a (2.5), (2.23) y (2.24) y se han resumido en el 
Apéndice 2 como referencia rápida. 

En este capítulo se obtendrán con más detalle las relaciones particulares 
para el problema en cuestión, acompañadas de ejemplos prácticos, 
procedimiento éste que seguiremos a lo largo del resto del texto. 

Solamente se estudiará a fondo el elemento triangular, que es el más 
sencillo, pero el procedimiento es totalmente general. Este mismo problema 
se puede analizar utilizando elementos más elaborados, que se introducen de 
idéntica forma y que se examinarán en capítulos posteriores. 

Se recomienda al lector no familiarizado con los conceptos básicos de 
elasticidad se dirija a los textos elementales sobre el tema, en particular al 
libro de Timoshenko y Goodier 3 , cuya notación se utiliza ampliamente en 
este libro. 

En ambos problemas de tensión y deformación plana, el campo 
de desplazamientos viene expresado unívocamente en función de los 
desplazamientos u y v en las direcciones de los ejes cartesianos ortogonales 
x e y, respectivamente. 

Además, las únicas tensiones y deformaciones que se han de considerar en 
ambos casos son las tres componentes en el plano xy. En el caso de tensión 
plana , las otras tres componentes de la tensión son nulas por definición y, por 
consiguiente, no contribuyen al trabajo interno. En la deformación plana, la 
tensión en la dirección perpendicular al plano xy no es nula. Sin embargo, 
por definición, la deformación en dicha dirección es nula, y por tanto dicha 
tensión no contribuye al trabajo interno, pero si se desea puede ser evaluada 
explícitamente al final del cálculo a partir de las tres componentes principales 
de tensión. 
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3.2 Características de los elementos 

3.2.1 Funciones de desplazamientos. La Figura 3.1 muestra el elemento 
triangular típico considerado, con los nodos i, j, m numerados en sentido 
antihorario. 

Los desplazamientos de un nodo tienen dos componentes: 



-{5} 



(3.1) 



y las seis componentes de los desplazamientos del elemento se agrupan en un 
vector 



(3.2) 



Los desplazamientos interiores a un elemento han de quedar definidos 
unívocamente por esos seis valores. La representación más sencilla viene 
dada evidentemente por dos polinomios de primer grado 

u =a x + a 2 x + a 3 y 
v =a A + a s x + a 6 y 

Se pueden calcular fácilmente las seis constantes a resolviendo los dos 
sistemas de tres ecuaciones simultáneas que se obtienen al sustituir las 




Figura 3.1 Elemento de un medio continuo bajo tensión o deformación plana. 
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coordenadas de los nodos e igualar las expresiones resultantes a los 
desplazamientos correspondientes a los nodos. Escribiendo, por ejemplo, 

v>i =o¡i + ct 2 Xi + a 3 yi 

Uj =ai + a 2 Xj + ctsyj (3.4) 
«m =cti + ct 2 Xm + ct z y m 

podemos calcular fácilmente ct\ y a 2 y a 3 en función de los desplazamientos 
nodales u¿, Uj y u m para obtener finalmente 

U = t^ a * + ¿iX + C * y 6 i x + c i2/) u j + (a m + 6 m x + c m2 /)u m j (3.5a) 
en la cual 

a i = x jym - XmVj 

k =Vj -Vm= Vjm (3.5b) 
c i =x m ~ x j = x mj 

obteniéndose los otros coeficientes mediante permutación cíclica de los 
subíndices t, j, m, y donde f 



2A = det 



1 xí y { 
1 *j Vj 
1 x m Vm 



2 x (área del triángulo ijm) (3.5c) 



Puesto que las ecuaciones para el desplazamiento vertical son similares, se 
obtiene igualmente que 

Aunque no sea estrictamente necesario en este momento, podemos 
expresar las relaciones anteriores (3.5a) y (3.6) en la forma general de la 
Ec. (2.1): 

u = { l } = Na e = [IJV ¿) I^,I7V m ]a c (3.7) 
siendo I una matriz unidad 2 x 2, y 

Ni = (a t + b { x + c¿y)/2A, etc. (3.8) 

La función de desplazamientos elegida garantiza automáticamente la 
continuidad de desplazamientos entre elementos adyacentes, debido a que 



f Nota: si se emplean las coordenadas del centro de gravedad será i, + Xj + x m = 
Vi + Vj + Vm = 0 y ai — 2 A/3 = a } — a„,. Véase también el resumen de integrales 
sobre un triángulo contenido en el Apéndice 4. 
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los desplazamientos varían linealmente a lo largo de cualquiera de los lados 
del triángulo y, al imponer los mismos desplazamientos en los nodos para 
dos elementos contiguos, evidentemente existirá el mismo desplazamiento a 
lo largo del contorno de separación. 

3.2.2 Deformación (total). La deformación total en cualquier punto del 
elemento puede definirse mediante sus tres componentes que contribuyen 
al trabajo interno. Así, 



c = 



ex 

Ixy 



0*' 

dy 

0_ d_ 



{:} 



Su 



(3.9) 



Sustituyendo la expresión (3.7), tenemos 
í = Ba e = [B 
siendo B¿ una matriz típica, dada por 



¿,B ; ,B m ] j a* | 



(3.10a) 



B¿ = SNi = 



dNj 

dy 

dNj 8Nj 
dy 1 dx 



0, 



1 

2A 





0 


o, 






hi 



(3.10b) 



Con lo cual, la matriz B de la Ec. (2.2) queda definida explícit amenté. 

Se advertirá que en este caso la matriz B es independiente de la posición 
del punto dentro del elemento y, por consiguiente, las deformaciones son 
constantes en todo el mismo. Es evidente que las funciones de forma 
satisfacen el criterio de deformación constante mencionado en el Capítulo 2. 

3.2.3 Deformación inicial (deformación térmica). Las deformaciones 
"iniciales", o sea, las deformaciones independientes de las tensiones, pueden 
deberse a muchas causas: retracción, cristalización, o con más frecuencia, 
a cambios de temperatura, y en general darán por resultado un vector de 
deformación inicial: 



í'rA 

{ 7xy0 J 



(3.11) 
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Aunque esta deformación inicial puede ser, en general, función de la 
posición dentro del elemento, normalmente se definirá por su valor medio 
constante en todo el elemento. Esto está de acuerdo con las condiciones 
de deformación constante impuestas por la función de desplazamientos 
establecida. 

Así, para el caso de tensión plana en un elemento de material isótropo 
sujeto a un incremento de temperatura 0 e , si el coeficiente de dilatación 
térmica es a, tendremos 

£o = I a0 e | (3.12) 

ya que una dilatación térmica no produce deformaciones transversales. 

En el caso de la deformación plana la situación es más compleja. 
La hipótesis de deformación plana implica que a causa de la dilatación 
térmica se desarrollarán tensiones perpendiculares al plano xy> aún cuando 
se suponga que Jas tres tensiones principales son nulas, y consiguientemente 
las deformaciones iniciales estarán afectadas por las constantes elásticas. 

Se puede demostrar que en este caso 

eo = (1 + y) | a6 € | (3.13) 

donde u es el coeficiente de Poisson. 

Los materiales anisótropos presentan problemas particulares ya que el 
coeficiente de dilatación térmica puede variar con la dirección. Llamemos x' 
e y' a las direcciones principales del material (Figura 3.2). La deformación 
inicial debida a la dilatación térmica es, tomando dichos ejes como sistema 
de referencia, para el caso de tensión plana, 















H 


:=?} 




^ Tx'y'0 1 







(3.14) 



donde y ct 2 son los coeficientes de dilatación referidos a los ejes i' e j/', 
respectivamente. 

Para obtener los componentes de la deformación en el sistema xy es 
necesario emplear la adecuada matriz de transformación de deformaciones 
T, que nos daría 

e' 0 = T T e 0 (3.15) 



Con (3 definido como en la Figura 3.2, es fácil comprobar que 
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I ► x 

Figura 3.2 Elemento de un material estratificado (con isotropía transversal). 



eos 2 /? 
sen 2 (3 
sen /? eos /? 



sen 2 /3 
eos 2 /? 
sen /? eos /? 



—2 sen (3 eos/? 

2 sen /? eos /? 
eos 2 ¡3 — sen 2 /? 



Así pues, e 0 puede calcularse fácilmente. Se apreciará que la componente 
tangencial de la deformación ya no es nula en el sistema de coordenadas xy. 

3.2.4 Matriz de elasticidad. La matriz D de la relación (2.5) 

* = {S} =D ({í>H (3 - i6) 

se puede establecer explícitamente para cualquier material (excluyendo ahora 
<7"o, que es simplemente un término aditivo). 

Tensión plana en un material isótropo. Páralos estudios de tensión plana 
en los materiales isótropos se tiene, por definición, 



<T X V<Ty 

e x =-- — + e x0 

y ~ ~ e + ~e + "° 

2(l+u)r xy 
Ixy — g -r £xyo 



(3.17) 



Despejando las tensiones en el sistema anterior, obtenemos la matriz D 
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1 v 0 
v 1 0 
0 0 (1 - v)/2 



(3.18) 



en la cual E es el módulo de elasticidad y v el coeficiente de Poisson. 

Deformación plana de un material isótropo. En este caso la tensión 
normal a z no es nula, debiendo de añadirse a las otras tres componentes de 
la tensión. Para el caso particular de dilatación térmica isótropa, tenemos 



+ aO e 



(3.19) 



2(1 + v)T X y 
7xy= £ 



pero, además 



V(J X 



Eliminando cr z y despejando las tres tensiones restantes obtenemos la 
expresión ya citada de la deformación inicial Ec. (3.13), y comparando ésta 
con la Ec. (3.16), la matriz D resulta 



D = 



E(\ - u) 



(1 + ^(1-2^) 



1 

u/(l - v) 1 
0 0 



0 
0 

(1-2^/(2(1-^)] 



(3.20) 



Materiales anisótropos. Para materiales totalmente anisótropos se 
necesitan 21 constantes elásticas independientes para definir completamente 
las relaciones entre tensiones y deformaciones en tres dimensiones. 4,5 

Si ha de ser aplicable un análisis bidimensional, las propiedades del 
material deben presentar simetría, lo que implica que como máximo podrá 
haber seis constantes independientes en la matriz D. Por consiguiente, 
siempre se puede escribir 





d n 


du 


dn 


D 




d 2 2 


d 2 3 




(sim) 




d 3 3 



(3.21) 



para describir el comportamiento más general en dos dimensiones. (La 
necesidad de simetría de la matriz D se deduce del teorema de la reciprocidad 
de Maxwell-Betti, siendo consecuencia de que la energía es un invariante 
independiente del camino seguido para alcanzar un estado de deformación 
dado.) 
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y 




Figura 3.3 Material estratificado (con isotropía transversal). 



Un caso de interés práctico especial es el del material "estratificado" o con 
isotropía transversal, cuyas propiedades presentan una simetría de revolución 
dentro del plano de cada estrato. Los materiales de este tipo tienen sólo cinco 
constantes elásticas independientes. 

Las relaciones generales entre tensiones y deformaciones son en este caso, 
siguiendo la notación de Lekhnitskii 4 y tomando el eje y perpendicular a los 
estratos (despreciando la deformación inicial), según la Figura 3.3: 

_(T X V 2 <Ty V\<T X 

E\ E2 Ei 

^ _ V-i<J x ^ <Jy V2&Z 

" E2 Ei E2 

£ _ Vi<T x v 2 a y <T Z 

Ei E2 Ei 

2( 1 + „) ( 3 - 22 > 

Ixz — r xz 

J_ 

7zy ~~Q 2 ~ Tx y 

lyz ~~Q~ 2 T y z 

en las que las constantes Ei y v x (Gi es dependiente) están asociadas al 
comportamiento en el plano de cada estrato, y E 2 , G2 y v 2 a una dirección 
normal a éste. 
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La matriz D en dos dimensiones se hace ahora, tomando Ei/E 2 = n y 
6? 2 / E 2 = m, 



D = 



E 2 



1 - nv\ 



N 
nv 2 
0 



nv 2 
1 



0 m(l-nv¡) 



(3.23) 



en el caso de tensión plana, o bien 
E 2 



D = 



(l+vi)(\-v x -2nu¡) ' 

n(l - nv\) ni/ 2 (l + ^1) 
nu 2 {l + ui) (l-v¡) 
0 0 



0 
0 

m (1 + 1/0(1 -vi- 2nu¡) 



(3.24) 



en el caso de deformación plana. 

Cuando, como en la Figura 3.2, la dirección de los estratos está inclinada 
respecto del eje x, será necesario efectuar una transformación para obtener 
la matriz D en el sistema más general de coordenadas. Suponiendo que D' 
relacione tensiones y deformaciones en el sistema de coordenadas inclinado 
(x', y'), es fácil demostrar que 



T r D'T T 



(3.25) 



donde T es la misma que aparece en la Ec. (3.15). 

Si los sistemas de tensiones <r f y <r corresponden ae'ye, respectivamente, 
se tiene entonces por la igualdad del trabajo 



o bien 

e' T DV = e T Be 

de donde se deduce la Ec. (3.25) por sustitución de la Ec. (3.15) (ver también 
Capítulo 1). 

3.2.5 Matriz de rigidez. La. matriz de rigidez del elemento ijm viene definida 
a partir de la relación general de la Ec. (2.13) mediante los coeficientes 

K£ = j Bf DB ; i dx dy (3.26) 

en la que i es el espesor del elemento y donde la integración se efectúa sobre 
la superficie del triángulo. Si el espesor del elemento se supone constante, 
hipótesis que tiende a ser tanto más cierta a medida que disminuye el tamaño 
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de los elementos, entonces, como ninguna de las matrices contiene a x o y, 
tendremos sencillamente 

K¡j = Bf DB ; ¿A (3.27) 

donde A es el área del triángulo [definido ya en la Ec. (3.5)]. Esta expresión 
es ya suficientemente explícita para el cálculo dejando para el computador 
las operaciones mat riciales. 

3.2.6 Fuerzas nodales debidas a las deformaciones iniciales. Vienen dadas 
directamente por la expresión (2.13), la cual tras integrar, se transforma en 

ffi)í 0 = -BfDe 0 ¿A, etc. (3.28) 

Estas fuerzas debidas a la "deformación inicial" se reparten entre los 
nodos de manera desigual y exigen un cálculo preciso. Expresiones similares 
pueden deducirse para las fuerzas debidas a las tensiones iniciales. 

3.2.7 Fuerzas músicas distribuidas. En el caso general de tensión o 
deformación plana, cada elemento de superficie unidad en el plano xy está 
sujeto a las fuerzas: 

en la dirección de los ejes correspondientes. 

Además, según la Ec. (2.13), la contribución de dichas fuerzas a las que 
actúan en cada nodo del elemento viene dada por 

o bien, según la Ec. (3.7), 

J N¡ dx dy, etc. (3.29) 

si las fuerzas másicas b x y b y son constantes. Como N { ya no es constante 
la integración se ha de efectuar explícitamente. En el Apéndice 3 se dan 
algunas formas generales de integración relativas a los triángulos. 

En este caso particular, los cálculos se simplifican si situamos el origen 
de coordenadas en el centro de gravedad del elemento. Entonces 

J xdxdy = J ydxdy = 0 
y haciendo uso de la Ec. (3.8) 
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ff 



-{t;}/^=-{fe}!=-{í}t ^ 



según las relaciones (3.5a), (b), (c). 

Explícitamente, para todo el elemento 




b x 

by 
b X 



(3.31) 



lo que significa simplemente que el sistema de fuerzas que actúan en las 
direcciones x e y debidas a las fuerzas másicas se distribuyen entre los 
nodos en tres partes iguales. Este hecho se corresponde con lo que se intuye 
físicamente y con frecuencia ha sido supuesto implícitamente. 

3.2.8 Potencial de fuerzas másicas. En muchos casos, las fuerzas másicas se 
definen en función de un potencial de fuerzas másicas <f>, tal que 



dx 



di 
dy 



(3.32) 



y es este potencial, más que los valores de b x y b y , lo que conocemos en toda 
la región, estando especificado en los puntos nodales. Si <f> e representa los 
tres valores del potencial asociado a los nodos del elemento, es decir, si 



(3.33) 



y debe corresponder a valores constantes de b x y b y , <f> deberá variar 
linealmente dentro del elemento. La "función de forma" de esta variación 
deberá venir dada evidentemente por un procedimiento análogo al seguido 
para deducir las Ees. (3.4) a (3.6), obteniéndose 



Así pues, 



cf> = [N u N jt N m W 

d<f> 



(3.34) 



dx 



by = -^ = -[c h Cj) c m ]^ e /2A 



(3.35) 



El vector de las fuerzas nodales debidas al potencial de fuerzas másicas 
reemplazará ahora la expresión (3.31) por 
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c m 



























<f> e 



(3.36) 



3.2.9 Cálculo de las tensiones. Las fórmulas obtenidas nos permiten 
ensamblar la matriz de rigidez completa de la estructura y obtener los valores 
de los desplazamientos. 

La matriz de tensiones expresada en forma general en la Ec. (2.16) se 
obtiene haciendo las sustituciones adecuadas para cada elemento. 

Según la hipótesis básica, las tensiones son constantes dentro del 
elemento. Es corriente suponer que éstas actúan en el centro de gravedad 
del elemento, siguiéndose este criterio en la mayoría de los ejemplos de este 
Capítulo. Otra posibilidad consiste en obtener el valor de las tensiones de 
los nodos como media de los valores en los elementos adyacentes. Con 
esta idea se han empleado diferentes métodos de "ponderación" basados 
en consideraciones empíricas, pero las ventajas obtenidas no parecen muy 
considerables. 

Es habitual preparar el trabajo para que el computador calcule las 
tensiones y direcciones principales de cada elemento. 



3.3 Ejemplos. Estimación de la precisión 

No hay duda de que la solución de problemas de elasticidad plana, tal 
como se han formulado en la Sección 3.2 es, en el límite de las subdivisiones, 
una solución exacta. Y, por supuesto, para cualesquiera subdivisiones existe 
una solución aproximada similar a, digamos, una solución por series de 
Fourier de la que se toma un número limitado de términos. 

Como ya se ha explicado en el Capítulo 2, la energía total de deformación 
que se obtiene durante un estado de aproximación cualquiera es menor que la 
energía de deformación verdadera correspondiente a la solución exacta. En 
la práctica significa que los valores de los desplazamientos, y por consiguiente 
también de las tensiones, proporcionados por la aproximación, serán en 
conjunto inferiores a los reales. Sin embargo, debe hacerse hincapié en que 
esto no es necesariamente cierto para cada punto individual del continuo, y 
por tanto la importancia práctica de este límite no es muy grande. 

Lo importante para el ingeniero es conocer el grado de precisión 
alcanzable en los problemas más corrientes para una subdivisión dada. En 
cada caso particular, se puede estimar el error por comparación con soluciones 
exactas conocidas o mediante el estudio de la convergencia, utilizando dos o 
más tamaños de subdivisión. 

Utilizando su experiencia, el ingeniero puede estimar a priori el grado 
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de aproximación implicado en un problema específico para una subdivisión 
dada. Parte de esta experiencia podría quizás adquirirse con los ejemplos 
que se consideran en este libro. 

Dirigiremos nuestra atención en primer lugar hacia algunos problemas 
sencillos para los cuales existen soluciones exactas. 

3.3.1 Campo de tensiones uniforme. Si la solución exacta es en realidad 
un campo de tensiones uniforme, la solución obtenida por elementos finitos 
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Figura 3.4 Flexión pura de una viga resuelta mediante una malla no tupida de 
elementos triangulares (se reseñan los valores de <r y , a x y r xy por este 
orden). 
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coincidirá con la exacta, sea cualquiera la subdivisión utilizada. Esto es un 
corolario obvio de la formulación, siendo no obstante muy útil como primera 
comprobación de los programas escritos para computador. 

3.3.2 Campo de tensiones variable linealmente. Evidentemente, en este caso 
la hipótesis básica de tensión constante dentro de cada elemento implica que 
la solución será sólo aproximada. En la Figura 3.4 se muestra el ejemplo 
sencillo de una viga sometida a un momento flector constante, con una 
subdivisión medianamente grosera. Se ve en seguida que las tensiones axiales 
(o-y) dadas por el elemento se aproximan a los valores exactos, y de hecho 
si cada uno de los valores constantes de la tensión se asocia al centro de 
gravedad de cada elemento y se representan gráficamente, la línea que mejor 
"se ajusta" a dichos valores representa la distribución exacta de tensiones. 
(En el Capítulo 12 se trata de los puntos óptimos para cálculo de tensiones.) 

Las componentes horizontal y tangencial de la tensión difieren también 
de los valores exactos (que son simplemente cero). Sin embargo, advirtamos 
por otra parte que sus valores oscilan alrededor de los valores exactos, según 
pequeñas variaciones de igual valor. 

En los nodos interiores, si tomamos el valor medio de las tensiones de 
los elementos adyacentes, encontramos representadas con gran aproximación 
las tensiones exactas. En las caras exteriores dicho valor medio no da, sin 
embargo, resultados tan buenos. En la práctica se usa frecuentemente la 
representación de las tensiones por los valores medios nodales para mejorar 
la aproximación, como se muestra en la Figura 3.4, obteniéndose una mejor 
representación de conjunto. 
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Solución exacta para una placa infinita 

o Solución por elementos finitos 




(a) Isótropo (b) Ortotrópo 

Figura 3.6 Comparación de los resultados teóricos y mediante elementos finitos 
para los casos (a) y (6) de la Figura 3.5. 

Para afinar los resultados se puede seguir además un proceso de 
ponderación de los valores medios en las proximidades de las caras de la 
estructura. Sin dogmatizar sobre este punto, parece preferible, cuando la 
precisión requiere seguir este procedimiento, utilizar una malla más tupida. 
El problema de refinar una malla de forma lógica para llegar a la precisión 
deseada se discutirá en el Capítulo 14. 

3.3.3 Concentración de tensiones. En las Figuras 3.5 y 3.6 se representa un 
ejemplo más real. Aquí se considera la distribución de tensiones alrededor de 
un orificio circular en un material isótropo y en otro anisótropo estratificado, 
para condiciones de tensión uniforme. 6 Se ha utilizado una división en 
elementos gradual, que permite un estudio más detallado en la región donde 
se esperan gradientes de tensión elevados. En la Figura 3.6 se puede 
comprobar el alto grado de precisión alcanzable, comparándose algunos de 
los resultados con las soluciones exactas. 3,7 

En capítulos posteriores veremos que pueden obtenerse resultados 
aún más precisos utilizando elementos más elaborados; sin embargo, los 
fundamentos del análisis permanecen iguales. 

3.4 Algunas aplicaciones prácticas 

Evidentemente, las aplicaciones prácticas del método no tienen límite y el 
método de los elementos finitos ha reemplazado a las técnicas experimentales 
para problemas planos debido a su gran precisión, bajo coste y versatilidad. 
La facilidad para tratar problemas de anisotropía, tensiones térmicas o de 
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fuerzas distribuidas se suma a sus ventajas. 

Daremos ahora algunos ejemplos de aplicación real a problemas técnicos 
complicados. 

3.4.1 Distribución de tensiones en torno de un orificio reforzado (Figura 3.7). 
En vasijas de presión de acero o en los fuselajes de aviones se han de practicar 
orificios en revestimientos sometidos a tensiones. El conducto que penetra 
proporciona en sí un cierto refuerzo alrededor del borde y, además, el espesor 
del mismo revestimiento se aumenta para reducir las tensiones debidas a los 
efectos de concentración. 

El análisis de este tipo de problemas como casos de tensión plana no 
presenta dificultad. Los elementos se escogen de manera que sigan la 
variación del espesor, asignando a éste valores convenientes. 

La estrecha zona de material grueso alrededor del borde se puede 
representar por elementos especiales tipo viga, o más fácilmente en un 
programa general mediante elementos triangulares muy delgados del tipo 
usual, a los que se asignan los espesores convenientes. Este último 
procedimiento es el seguido en el problema representado en la Figura 3.7, que 
da algunas de las tensiones que aparecen en las proximidades de la abertura. 
Nótese la extensión más bien grande de la región introducida en el análisis y 
la disminución gradual del tamaño de los elementos de la malla. 

3.4.2 Valle anisótropo sujeto a tensiones tectónicas 6 (Figura 3.8). Se considera 
un valle simétrico sujeto a tensiones horizontales uniformes. El material está 
estratificado, o sea, presenta "isotropía transversal", y la dirección de los 
estratos varía de punto a punto. 

El gráfico de tensiones muestra el desarrollo de la zona sometida a 
tracciones. Este fenómeno es de gran interés para geólogos e ingenieros 
relacionados con la mecánica de rocas. 

3.4.3 Presa sometida a presiones hidrostáticas internas y externas 8 ' 9 
(Figura 3.9). Se analiza aquí una presa de contrafuertes cimentada sobre 
una masa rocosa algo compleja. La región heterogénea que comprende la 
cimentación está sometida a condiciones de deformación plana, mientras que 
la presa en sí se considera como una placa (tensión plana) de espesor variable. 

Con relación al efecto de las cargas exteriores o al del peso propio, 
no surge ningún problema de análisis particular, aunque quizás deba 
mencionarse que se encontró ventajoso "automatizar" el cálculo de las fuerzas 
nodales debidas al peso propio. 

Cuando se consideran las presiones intersticiales, la situación requiere, 
quizás, ciertas explicaciones. 

Es bien conocido que en un material poroso la presión del agua se 
transmite a la estructura como una fuerza másica de valor 



dp dp 
dx y oy 



(3.37) 
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Oj I 2 3 




x // = 0 Región analizada 

Figura 3.8 Valle con estratos curvos sometido a tensión tectónica horizontal. 
(Deformación plana, 170 nodos, 298 elementos.) 

y que entonces no es necesario considerar la presión exterior. 

La presión intersticial p es ahora, de hecho, un potencial de fuerzas 
másicas como el definido en las expresiones (3.32). En la Figura 3.9 se 
muestra la subdivisión en elementos de la región y el croquis de la presa. 
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Espesor del alma 

del contrafuerte 9 pies 



Reducción gradual constante 

del espesor del alma, 

1 pie cada 82 pies 6 pulgadas 



60 



■/// /■^■j-i-- \% 7 

— - - 121 ft I I ¡n --+--I2I ft I I m 



10 ft 6 ¡n 




Planta de la sección A- A 



12 ft 0 ¡n 



(a) 




Hipótesis de 
movimiento nulo 



Falla 

(hipótesis de 
desplazamiento libre) 



Arena alterada E = jqE c 



Hipótesis de movimiento nulo 



ib) 



Figura 3.9 Análisis tensional de una presa de contrafuertes. Hipótesis de tensión 
plana en la presa y de deformación plana en la cimentación, (a) Sección 
del contrafuerte analizada, (b) Zona de cimentación considerada y 
división en elementos finitos. 
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En las Figuras 3.10 (a) y (b) se muestran las tensiones que resultan del 
efecto del peso propio de la presa y las debidas a la presión del agua, 
suponiendo que actúa como carga exterior o, alternativamente, como presión 
intersticial interna. Ambas soluciones indican grandes zonas de tracción, 
pero el incremento de tensiones debido a la segunda hipótesis es importante. 

Las tensiones calculadas aquí son las llamadas tensiones "efectivas". 
Éstas representan las fuerzas de interacción entre las partículas sólidas y 
se definen como sigue en función de las tensiones totales u y de las presiones 
insterticiales p, 

<r'=<r + mp m T = [1,1,0] (3.38) 

o sea, suprimiendo simplemente de la tensión total la componente debida a 
la presión hidrostática. 10 

La tensión efectiva es de especial importancia en la mecánica de los 
medios porosos, como ocurre en el estudio de suelos, rocas u hormigón. La 
hipótesis fundamental para obtener las fuerzas másicas de la Ec. (3.37) es 
que en la deformación de la fase sólida sólo tiene importancia la tensión 
efectiva. Esto conduce inmediatamente a otra posibilidad de formulación. 11 
Si examinamos la condición de equilibrio de la Ec. (2.10), advertimos que 
la misma está escrita en función de las tensiones totales. Expresando la 
ecuación constitutiva (2.5) en función de las tensiones efectivas, es decir, 

a' - D'(e - e 0 ) + <r' 0 (3.39) 

y sustituyendo ésta en la ecuación de equilibrio [Ec. (2.10)] encontramos que 
se obtiene de nuevo la Ec. (2.12), empleando la matriz D' en la matriz de 
rigidez y aumentando los términos de fuerzas de la Ec. (2.13b) con la fuerza 
adicional 

- / B T mpá(vol) (3.40) 

Jv* 

o, si p se interpola mediante funciones de forma N^, la fuerza se convierte en 

- / B r mN' d(vol)p e (3.41) 
Jv e 

Esta otra forma de introducir los efectos de la presión intersticial permite 
utilizar interpolación discontinua para p [puesto que no existen derivadas 
en la Ec. (3.40)] y es empleada en la actualidad muy frecuentemente en la 
práctica. 

3.4.4 Fisuración. Las tracciones que se originan en el anterior ejemplo de la 
presa causarán sin duda fisuración en la roca. Si la situación que se produce 
cuando la fisura se propague es estable, podrá considerarse que la presa es 
segura. 
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Compresión (-) 



Agua arriba 
Zona de tracciones 




Zona Asurada 
(se considera 
el material 
con E = 0) 



Zona de tracciones, pero 
las tracciones son menores 
que las probables compresiones 
iniciales de la roca 

Figura 3.11 Tensiones en una presa de contrafuertes. La introducción de una 
"fisura" modifica la distribución de tensiones (mismo estado de cargas 
que en la Figura 3.10(6)]. 



La temperatura disminuye 
linealmente en esta zona 




Temperatura en esta región — 15° F 

% ^ 

Tracción (+)/ «f 200 lb /pulg 2 

/ * La flecha indica 
Compresión (-) V| tracciones 

100 lb/pulg 2 



La temperatura no varia en la cimentación 

Figura 3.12 Análisis tensional de una presa de contrafuertes. Tensiones térmicas 
debidas a un descenso de temperatura de 15° F en la zona sombreada. 
(E = 3 x 10 6 lb/pulg. 2 , a = 6 x KT 6 /°F). 
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Figura 3.13 Presa con aliviadero y cables pretensados. 



Se puede introducir muy fácilmente el efecto de las fisuras en el análisis 
asignando valores nulos al módulo de elasticidad de ciertos elementos 
escogidos. En la Figura 3.11 se muestra el análisis para una amplia cuña 
fisurada, pudiendo observarse que la amplitud de la zona agrietada no origina 
tensiones dentro del cuerpo de la presa. 

Se puede desarrollar un procedimiento más elaborado para seguir la 
propagación de fisuras y la redistribución de tensiones resultante. 12 

3.4.5 Tensiones térmicas. Como ejemplo de cálculo de tensiones térmicas 
se representa la misma presa bajo la hipótesis de una distribución de 
temperatura sencilla. En la Figura 3.12 se dan los resultados de este análisis. 

3.4.6 Presas de gravedad. La presa de contrafuertes es un ejemplo natural de 
la aplicación del método de los elementos finitos. Otros tipos, como presas 
de gravedad con o sin aliviadero u otros accesorios, pueden también tratarse 
con gran sencillez. La Figura 3.13 muestra el análisis de una presa de gran 
tamaño con aliviadero y compuertas en coronación. 

Es evidente que este caso implica una aproximación consistente en 
adoptar un análisis bidimensional en las proximidades del cambio brusco 
de sección que se produce en las zonas donde el aliviadero se une al cuerpo 
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principal de la presa, pero esto conduce sólo a errores localizados. 

Es importante hacer notar aquí que, en uno de los casos se usó una 
malla de tamaños gradualmente variables para estudiar la concentración de 
tensiones en la presa y el comportamiento de la cimentación. La variación 
lineal entre los tamaños de los elementos más grandes y los más pequeños es 
del orden de 30 a 1 (los elementos mayores se encuentran en la cimentación 
y no aparecen en la figura). 

3.4.7 Central eléctrica subterránea. Este último ejemplo, ilustrado en las 
Figuras 3.14 y 3.15, muestra una aplicación a gran escala muy interesante. 
En este caso, las tensiones principales están representadas gráficamente de 
forma automática. Para el análisis se emplearon numerosos valores de la 
tensión inicial a 0 muy diferentes entre sí, debido a la incertidumbre en el 
conocimiento de las condiciones geológicas. La rapidez en la solución y en 
la representación gráfica de las tensiones permitió encontrar los límites de 
variación de éstas y tomar una decisión técnicamente adecuada. En este 
ejemplo, los contornos exteriores se tomaron suficientemente alejados y fijos 
(u = v = 0). Sin embargó, se podía haber hecho un mejor tratamiento 
usando elementos infinitos, como se describe en la Sección 8.13. 

3.5 Tratamiento particular de la deformación plana en los 
materiales incompresibles 

Se habrá apreciado que la relación (3.20) que define la matriz de 
elasticidad D de un material isótropo pierde sentido cuando el coeficiente 
de Poisson toma el valor 0.5 puesto que el factor entre paréntesis se hace 
infinito. Una manera sencilla de sortear esta dificultad es emplear valores del 
coeficiente de Poisson cercanos a 0.5 pero no iguales a éste. La experiencia 
muestra, no obstante, que si se hace esto la solución se deteriora, a menos que 
se sigan formulaciones especiales como las que se exponen en el Capítulo 12. 
Herrmann 13 ha sugerido otro procedimiento que implica la utilización de una 
formulación variacional diferente y que será examinada en los Capítulos 12 
y 13. 

3.6 Observación final 

En los siguientes capítulos se introducirán elementos que proporcionan 
mucha mejor precisión para el mismo número de grados de libertad en un 
problema particular. Esto ha llevado a creer que el sencillo triángulo usado 
aquí está completamente obsoleto. Sin embargo, en los últimos años, su 
extrema simplicidad lo ha llevado a ser de nuevo usado en la práctica. 
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Capítulo 4 



AiNAi^isis DE TENSIONES EN 
CUERPOS DE REVOLUCIÓN 

4.1 Introducción 

El problema de la distribución de tensiones en cuerpos de revolución 
(sólidos axisimétricos) sometidos a cargas de revolución es de considerable 
interés práctico. Los problemas matemáticos que se presentan son muy 
similares a los de tensión y deformación plana ya que, una vez más, el 
problema es bidimensional. 1,2 Por simetría, el estado de deformación, y 
por consiguiente también el de tensión, de una sección plana cualquiera 
perpendicular al eje de simetría del cuerpo viene definido completamente 
por las dos componentes de los desplazamientos. En la Figura 4.1 se 
muestra una de tales secciones. Si r y z representan respectivamente las 
coordenadas radial y axial de un punto, siendo u y v los desplazamientos 
correspondientes, es fácil ver que se pueden usar precisamente las mismas 
funciones de desplazamientos utilizadas en el Capítulo 3 para definir los 
desplazamientos dentro del elemento triangular i, j, ra que se muestra en 
la figura. 

El volumen de material asociado a un "elemento" es ahora el de un 
sólido de revolución como el de la Figura 4.1, y a él hemos de referir todas 
las integraciones. 

De nuevo emplearemos el elemento triangular a efectos ilustrativos, 
poseyendo las relaciones que se obtengan un carácter completamente general. 

Se ha demostrado ya que en los problemas de tensión o deformación 
planas el trabajo interno está ligado a las tres componentes de la deformación 
situadas en el plano de coordenadas, no apareciendo la componente de la 
tensión normal a dicho plano por ser nulos los valores tanto de dicha tensión 
como de la deformación. 

En los problemas de revolución todo desplazamiento radial induce 
automáticamente una deformación en dirección circunferencial, y como las 
tensiones en esa dirección son ciertamente distintas de cero, habría de 
considerarse esta cuarta componente de la deformación y la de tensión 
asociada a ella. Este es el punto clave que marca la diferencia esencial en el 
tratamiento de los problemas de revolución. 

Encontrará el lector que el álgebra implicada en este capítulo es algo más 
tediosa que la del anterior, pero en esencia las operaciones a efectuar vuelven 
a ser las mismas, siguiendo la formulación general del Capítulo 2. 
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4.2 Características de los elementos 

4.2.1 Función de desplazamientos . Utilizando elementos de forma triangular 
(Figura 4.1) con los nodos i, j, m numerados en sentido contrario al de las 
agujas del reloj, definimos como sigue los desplazamientos nodales por sus 
dos componentes 

*.={;■} («> 

y los desplazamientos de cada elemento por el vector 




(4.2) 



Evidentemente, tal como se hizo en la Sección 3.2.1, se puede emplear un 
polinomio lineal para definir de manera única los desplazamientos dentro del 
elemento. Puesto que el álgebra a desarrollar es idéntica a la del Capítulo 4, 
no se repetirá de nuevo. El campo de desplazamientos viene nuevamente 
dado por la Ec. (3.7). 

| = [I/Y;, IN jt lN m }R e (4.3) 
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con 

_ ai + biT+CjZ 

jy/ t - ^ , etc. 
siendo I una matriz unitaria 2 X 2. En la expresión anterior, 

ai = TjZ m — r m Zj 

bi = Zj - z m = z jm (4.4) 

etc., siguiendo un orden cíclico. De nuevo A es el área del triángulo. 

4.2.2 Deformación (total). Como se dijo anteriormente, aquí hemos de 
considerar cuatro componentes de la deformación. Estas son, en realidad, 
todas las componentes de la deformación no nulas posibles en un sólido de 
revolución. En la Figura 4.2 se muestran y definen dichas deformaciones y 
las tensiones asociadas. 

El vector deformación que se define a continuación agrupa las 
componentes de la deformación a considerar, definiéndolas en función de los 
desplazamientos de un punto. Las expresiones empleadas son casi evidentes 
por sí mismas y no se deducirán aquí. El lector interesado puede consultar 
cualquier texto de elasticidad general 3 donde hallará la demostración de todas 
estas relaciones. Así pues, tenemos 



z 




Figura 4.2 Deformaciones y tensiones que intervienen en el análisis 
de sólidos de revolución. 
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' dv > 




dz 




du 








u 




r 




du dv 




< dz dr j 



Su 



(4.5) 



Haciendo uso de las funciones de desplazamiento definidas en las Ees. (4.3) 
y (4.4) obtenemos 



e = Ba e = [B¿, B ; , B m ]a f 



donde 



0 

dNi 
dr 

r 

dN t 
dz 



dN t 
dz 

0 

0 

8Nj 
dr 



2A 



0, 

*¡, 

^ + 6 l + ^, 
r r 



etc. 



(4.6) 



Debido a que en la matriz B figurarán las coordenadas r y z, las 
deformaciones ya no son constantes dentro de cada elemento como en los 
casos de tensión o deformación plana. Esta variación de la deformación se 
debe al término eq. Si los desplazamientos que se imponen son tales que u es 
proporcional a r, todas las deformaciones serán entonces constantes. Como 
éste es el único estado de desplazamiento que coincide con la deformación 
constante, está claro que la función de desplazamientos satisface el criterio 
básico del Capítulo 2. 

4.2.3 Deformación inicial (deformación térmica). En general, se tendrán 
cuatro componentes independientes para el vector de deformaciones iniciales: 



e 0 



€z0 
KrzO 



(4.7) 



Y aunque éste, generalmente, puede variar dentro del elemento, será 
conveniente tomar alb' la deformación inicial como constante. 

El caso más frecuente de deformaciones iniciales es el debido a dilatación 
térmica. Para un material isótropo tendremos entonces 
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0 



(4.8) 



donde 0 e es el incremento medio de temperatura en un elemento y a es el 
coeficiente de dilatación térmica. 

No es necesario considerar el caso general de anisotropía puesto que sería 
imposible alcanzar simetría axial en esas circunstancias. Un caso de cierto 
interés práctico es el de un material "estratificado", similar al estudiado en 
el Capítulo 4, cuyo plano de isotropía sea perpendicular al eje de simetría 
(Figura 4.3). Son posibles aquí dos coeficientes de dilatación diferentes: uno 
en la dirección del eje a z y otro en el plano normal al mismo, a r - 

En tal caso, la deformación térmica inicial es 



í ^ 1 




Figura 4.3 Material estratificado con simetría de revolución. 
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Casos prácticos de tal anisotropía "estratificada" se dan frecuentemente 
en la construcción de piezas laminadas o de fibra de vidrio. 

4.2.4 Matriz de elasticidad. La matriz de elasticidad D relaciona las 
deformaciones e y las tensiones a mediante la expresión general [Ec. (2.5)] 



er = 



Trz 



= D(c - C 0 ) + *0 



Se considerará en primer lugar el material anisótropo "estratificado", ya 
que el caso de material isótropo puede considerarse sencillamente como caso 
particular del anterior. 

Material anisótropo estratificado (Figura 4.3). Si el eje z representa 
la normal a los planos de los estratos, podemos escribir nuevamente las 
ecuaciones (4.22) (prescindiendo además por comodidad de las deformaciones 
iniciales) como sigue: 



E 2 



E 2 



"2*0 



E 2 E\ E\ 



e 0 = 



Wz 
E 2 



Ei Ei 



(4.10) 



Tzr 

G 2 



Escribiendo además 



Ei 
E 2 



y — = m 



tenemos, despejando las tensiones, que 
E 2 



D = 



(1 + i/!)(l -i/ 1 -2ni/|) 

1 - v\ nv 2 (l + vi) , nu 2 (l + vi) , 

n(l - nv¡) , (vi + nv¡)n , 

n(l-nv¡) , 



simétrica 



m(l + vi) x (1 - vi - 2nv\) 



(4.11) 



Material isótropo. Para un material isótropo, podemos obtener la matriz 
D tomando 



Ei = E 2 — E o n — 1 
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Vi = v 2 — V 

y empleando la conocida relación entre las constantes elásticas isótropas 

G 2 _G_ _^ 1 
E 2 ~ 



E 2(1 + v) 

Sustituimos en la expresión (4.11) y obtenemos ahora 

v v 



D = 



E(l - v) 



(1 + i/)(l - 2v) 



1, 



1 - v 

1 , 



1 -v 1 

V 

1 , 



simétrica 



0 

1 -2v 
2(1 " «0 



(4.12) 



4.2.5 La matriz de rigidez. La matriz de rigidez del elemento ijm puede 
calcularse ahora a partir de la relación general Ec. (2.13). Recordando que 
la integral de volumen ha de extenderse a todo el anillo de material, tenemos 



K? ■ = 2tt J Bf DB ; r dr dz 



(4.13) 



viniendo B expresada por la Ec. (4.6) y D por la Ec. (4.11) o la Ec. (4.12), 
dependiendo del material. 

No se puede efectuar la integración tan sencillamente como en el caso 
de tensión plana porque la matriz B es función de las coordenadas. Hay 
dos alternativas: la primera es una integración numérica; la segunda, una 
multiplicación explícita y una integración término a término. 

El procedimiento aproximado más sencillo es evaluar B en el centro de 
gravedad 

_ Ti + rj + r m 



Zi + Zj + Zr, 



En este caso, se obtiene como primera aproximación 



K\ 3 = 27rB¿ DBjfA 



(4.14) 



siendo A el área del triángulo. 
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Se podría seguir procedimientos de integración numérica más elaborados 
calculando el valor del integrando en varios puntos del triángulo. Dichos 
métodos se estudiarán con detalle en el Capítulo 8. Sin embargo, puede 
demostrarse que si la integración numérica es de un orden tal que permite 
determinar exactamente el volumen del elemento, entonces la solución 
converge hacia la solución exacta cuando aumenta indefinidamente el número 
de elementos 4 . La integración "en un solo punto" sugerida aquí pertenece 
a esta categoría, ya que es bien conocido que el volumen de un cuerpo 
de revolución viene dado exactamente por el producto entre el área y la 
trayectoria descrita por su centroide. Con el elemento triangular sencillo 
utilizado aquí se necesita en cualquier caso una subdivisión en elementos 
bastante tupida, y 1 en la práctica la mayoría de los programas hacen uso de 
esta sencilla aproximación, que sorprendentemente es a veces superior, de 
hecho, a la integración exacta (véase Capítulo 11). Una razón para ello es 
la aparición de términos logarítmicos en la formulación exacta que implican 
cocientes del tipo r¿/r m y, cuando el elemento se encuentra a una distancia 
grande del eje, tienden a la unidad siendo impreciso el cálculo de su logaritmo. 

4.2.6 Fuerzas nodales exteriores. En el caso de problemas bidimensionales 
como los estudiados en el capítulo anterior, el reparto de cargas exteriores 
era tan evidente que no necesitaba ningún comentario aclaratorio. En el caso 
presente, sin embargo, es importante comprender que las fuerzas nodales 
representan un efecto combinado de la fuerza actuante a lo largo de la 
circunferencia del círculo que forma el "nodo" del elemento. Ya se tuvo 
en cuenta esto al calcular las integrales de las expresiones que aparecían en 
la matriz de rigidez del elemento, efectúandose dichas integraciones sobre el 
anillo completo. 

Así, si R representa la componente radial de la fuerza por unidad de 
longitud de la circunferencia de un nodo o de un radio r, la "fuerza exterior" 
que habrá que introducir en el cálculo será 

2ktR 

Análogamente, en la dirección del eje el efecto combinado de las fuerzas axiles 
vendrá representado por 

2vrZ 

4.2.7 Fuerzas nodales debidas a las deformaciones iniciales. De nuevo, según 
la Ec. (2.13), 

f 6 = -2tt jB T De 0 rdrdz (4.15) 
o sea, separando términos y advirtiendo que € es constante 



ANÁLISIS DE TENSIONES EN CUERPOS DE REVOLUCIÓN 



83 



ff = -2tt (^jBjrdr dz^j De 0 (4-16) 

Se puede efectuar la integración de manera similar a la seguida para 
determinar la rigidez. 

Se observa inmediatamente que se puede emplear otra vez una expresión 
aproximada mediante valores en el centro de gravedad 

ff = -27rBfDc 0 rA (4.17) 

Las fuerzas debidas a las tensiones iniciales se calcularían de manera idéntica. 

4.2.8 Fuerzas músicas distribuidas. En problemas de revolución se presentan 
con frecuencia fuerzas másicas distribuidas, como las debidas a la gravedad 
(si actúa en la dirección del eje z), a la fuerza centrífuga en miembros de 
máquinas rotatorias, o a la presión intersticial. 
Representemos esas fuerzas por 



(4.18) 



por unidad de volumen de material en las direcciones de r y z, 
respectivamente. Mediante la ecuación general (2.13), obtenemos 

íf = -2Trj INi | b b r | r dr dz (4.19) 

Empleando un sistema de coordenadas similar al de la Sección 3.2.7 se 
demuestra fácilmente que la primera aproximación, si las fuerzas másicas 
son constantes, da por resultado 

ff = -27T | ^ jr A/3 (4.20) 

Aunque estas expresiones no son exactas, se encontrará que el término que 
expresa el error decrece al reducirse el tamaño de los elementos y, puesto que 
éstas están en equilibrio, no se introducirán grandes inexactitudes. Además, 
tal como se verá en el Capítulo 11, la velocidad de convergencia se mantiene 
inalterada. 

Si las fuerzas másicas vienen dadas por un potencial similar al definido 
en la Sección 3.2.8, o sea, 



84 



El Método de los Elementos Finitos 



y si dicho potencial está definido linealmente por sus valores nodales, se 
puede emplear de nuevo una expresión equivalente a la Ec. (4.36) con el 
mismo grado de aproximación. 

En muchos problemas las fuerzas másicas varían proporcionalmente a r. 
Por ejemplo, en máquinas rotatorias las fuerzas centrífugas son 

6 r = u> V ( 4 - 22 ) 
donde u> es la velocidad angular y p la densidad del material. 

4.2.9 Cálculo de las tensiones. Como se habrá advertido en las Ees. (4.5) 
y (4.6), las tensiones varían ahora a través del elemento. Conviene, pues, 
determinar la tensión media en el centro del elemento. La matriz de tensiones 
resultante de las Ec. (4.6) y (2.3) nos proporciona aquí, como siempre 

= DBa c - Dc 0 + <ro (4-23) 

Se encontrará que los valores de las tensiones entre elementos oscilan 
ligeramente, pudiéndose alcanzar una mejor aproximación calculando el valor 
medio de las tensiones nodales. 

4.3 Algunos ejemplos de comprobación 

Los ejemplos de comprobación como los de un cilindro bajo tensión axial 
o radial constante dan, como era de esperar, soluciones que se corresponden 
con las exactas. Esto es además un corolario evidente de la capacidad de 
la función de desplazamientos para reproducir condiciones de deformación 
constantes. 

Un problema para el que existe una solución exacta y en el que los 
gradientes de tensiones son prácticamente lineales es el de una esfera sometida 
a presión interior. En la Figura 4.4(a) se muestran las tensiones en el 
centro de gravedad obtenidas mediante una malla bastante grosera; nótese la 
oscilación de las tensiones alrededor de los valores exactos. (Esta oscilación se 
hace aún más pronunciada para valores más altos del coeficiente de Poisson, 
aunque la solución exacta es independiente del mismo). En la Figura 4.4(6) 
se muestra cómo la aproximación es mucho mejor si se toman los valores 
medios de las tensiones en los nodos, y en la Figura 4.4(c) se consigue una 
mejora aún mayor tomando los valores medios por elementos. Una muestra 
de la precisión que es posible alcanzar es la proximidad a la solución exacta 
que muestran los resultados incluso cuando se usa una malla grosera. En 
la Figura 4.5 se comparan con la solución exacta los desplazamientos en los 
nodos. 

En la Figura 4.6 se han calculado las tensiones térmicas en la misma esfera 
para la variación estacionaria de temperatura que se muestra. Nuevamente, 
queda de manifiesto la excelente precisión al comparar con la solución exacta. 
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(a) ib) (?) 

Figura 4.4 Tensiones en una esfera sometida a presión interior. (Coeficiente de 
Poisson v — 0.3): (a) malla triangular -valores en el centro de los 
triángulos. (6) malla triangular -valores medios nodales, (c) malla 
cuadrilateral obtenida tomando la media de los valores en triángulos 
adyacentes. 
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A Valores medios en los triángulos 
0 Valores medio en los cuadriláteros 

Figura 4.6 Esfera sometida a un flujo térmico estacionario. (Temperatura interior 
100°C, temperatura exterior 0 o C): (a) variación de la temperatura 
y de las tensiones en una sección radial; (6) valores medios en los 
'cuadriláteros'. 
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4.4 Aplicaciones prácticas 

Se ofrecen ahora dos ejemplos de aplicación práctica de programas 
existentes para distribución de tensiones en sólidos de revolución. 

4.4.1 Vasija de presión de un reactor de hormigón prttensado. En la 
Figura 4.7 se muestra la distribución tensional en un prototipo de vasija de 
presión relativamente sencillo. Debido a la simetría, sólo se analiza la mitad 
del recipiente y los resultados que se dan aquí se refieren a las componentes 
de las tensiones originadas por una presión interior. Se pueden obtener 
fácilmente resultados similares debidos al efecto de los cables de pretensado 
introduciendo las cargas nodales producidas por dichos cables. 

En la Figura 4.8 se representan las líneas isostáticas debidas a 
la temperatura. El estado térmico es producido por una transmisión 
estacionaria de calor, y el mismo se determinó siguiendo el método de los 
elementos finitos de la manera descrita en el Capítulo 10. 
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Figura 4.9 (o) Pilote en terreno estratificado. Malla irregular y datos 
del problema. 

4.4.2 Pilote de cimentación. En la Figura 4.9 se representa la distribución 
de las tensiones alrededor de un pilote de cimentación que atraviesa dos 
estratos diferentes. Este problema, aunque no es homogéneo, no presenta 
ninguna dificultad y se ha tratado con el programa general. 

4.5 Cargas asimétricas 

El método descrito en este capítulo puede ampliarse para incluir los casos 
de cargas asimétricas. Si se expresa la variación de la carga a lo largo de 
la circunferencia en función de armónicos circulares, seguirá siendo posible 
dirigir la atención sobre una sección axial aunque el número de grados de 
libertad aumente ahora a tres. 

Algunos detalles de este proceso de describen en las referencias 5 y 6. 
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Solución exacta del problema de Boussinesq 

A Solución por elementos finitos 
del problema de Boussinesq 

0 — Solución por elementos finitos 
del problema del pilote 

o S 10 15 20 25 



Escala de distancias (pies' 




Tensiones verticales 

en secciones horizontales 



Figura 4.9 (6) Pilote en terreno estratificado. Gráfico de las tensiones verticales 
en secciones horizontales. Gráfico también de la solución para el 
problema de Boussinesq obtenida haciendo E t — E 2 - ^pilote y 
comparación de ésta con los valores exactos. 



4.6 Simetría de revolución, deformación plana y tensión plana 

Hemos visto en el capítulo anterior que el análisis de la tensión y 
deformación plana se hace en función de tres componentes de tensión y de 
deformación y, además, cómo ambos casos se incorporaban generalmente en 
un programa único con un indicador para efectuar los cambios de constantes 
correspondientes en la matriz D. En la deformación plana se pierde de 
vista la componente a z que ha de ser calculada separadamente. Aún más, 
hubo que emplear expresiones especiales [véase la Ec. (3.13)] para introducir 
las deformaciones iniciales. Esto es un inconveniente (particularmente 
cuando las leyes constitutivas no son lineales), por lo que se recomienda 
encarecidamente el empleo de una forma alternativa de escribir el caso 
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de deformación plana en función de cuatro componentes de tensión y de 
deformación como caso particular de análisis de revolución. 

Si examinamos la definición de deformación de revolución, expresada en 
la Ec. (4.5), observamos que r = oo da £q = 0. Así pues, se obtienen las 
condiciones de deformación plana. Si reemplazamos las coordenadas 

r y z por x e y 

y cambiamos además en la expresión de la matriz de rigidez el volumen de 
integración 

2-kt por 1 

de la formulación de revolución puede obtenerse directamente la 
correspondiente a la de deformación plana. 

Similarmente podemos incorporar las condiciones de tensión plana, lo 
que además requiere la substitución de la matriz de revolución D por las 
Ees. (3.18) o (3.23), aumentada convenientemente con una fila y una columna 
de ceros. Así pues, con el simple coste extra de un almacenamiento podemos 
incluir todos los casos considerados en un formato único. 
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Capítulo 5 



ANÁLISIS TRIDIMENSIONAL 
DE TENSIONES 



5.1 Introducción 

Habrá advertido el lector que llegados a este punto no queda sino un paso 
mas para aplicar el método general de los elementos finitos a los problemas 
de análisis de tensiones en cuerpos tridimensionales. Tales problemas 
abarcan evidentemente todos los casos prácticos, aunque en algunos casos 
puede obtenerse un "modelo" adecuado y más económico utilizando distintas 
aproximaciones bidimensionales. 

El elemento continuo bidimensional más sencillo es el triángulo. Su 
equivalente tridimensional es el tetraedro, que tiene cuatro nodos, uno 
en cada vértice, y sobre cuya formulación básica tratará este capítulo. 
Inmediatamente nos encontramos con una diñcultad no aparecida antes, 
que es ordenar la numeración de los nodos y, de hecho, la de representar 
adecuadamente un cuerpo dividido en elementos como los mencionados. 

Parece que fueron Gallagher et ai 1 y Melosh 2 los que inicialmente 
sugirieron el uso de elementos tetraédricos sencillos. Argyris 3,4 profundizó 
más en el tema y Rashid y Rockenhauser 5 han demostrado que haciendo uso 
de los computadores modernos de mayor capacidad se puede emplear dicha 
formulación para resolver problemas reales. 

Es obvio inmediatamente, sin embargo, que el número de elementos 
tetraédricos que es preciso utilizar para obtener un orden de aproximación 
determinado ha de ser muy grande. En los problemas prácticos, ello dará 
por resultado un número elevado de ecuaciones simultáneas que pueden 
limitar gravemente la aplicación práctica del método. Más aún, el ancho 
de banda del sistema de ecuaciones resultante se hace muy grande, lo que 
lleva a la necesidad de disponer de computadores de gran capacidad de 
almacenamiento. 

Para adquirir una idea del orden de magnitud de los problemas que 
se presentan supongamos que la precisión de un triángulo en análisis 
bidimensional sea comparable a la de un tetraedro en tres dimensiones. Si 
un análisis de tensiones correcto de una región cuadrada en dos dimensiones 
requiere una malla de unos 20 x 20 = 400 nodos, el número total de 
ecuaciones simultáneas es aproximadamente 800, suponiendo dos variables 
de desplazamiento por nodo. (Esta es una cifra bastante real.) El ancho de 
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banda de la matriz afecta a 20 nodos (véase el Capítulo 15), o sea, unas 40 
variables. 

Una región tridimensional equivalente sería la de un cubo de 20 x 20 x 20 = 
8.000 nodos. El número total de ecuaciones simultáneas sería así de unas 
24.000, ya que se han de especificar tres variables de desplazamiento. Y 
más aún, el ancho de banda relaciona ahora las interconexiones entre unos 
20 x 20 = 400 nodos, o sea 1.200 variables. 

Dado que con los procedimientos habituales de resolución el esfuerzo 
de cálculo es aproximadamente proporcional al número de ecuaciones y 
al cuadrado del ancho de banda, podrá apreciarse la magnitud de los 
problemas. No es, por tanto, sorprendente que en el campo del análisis 
tridimensional sé hayan realizado los mayores esfuerzos para mejorar la 
precisión utilizando elementos complejos de muchos grados de libertad. 6-10 
El empleo y las aplicaciones prácticas de dichos elementos se describirán 
en los capítulos siguientes. Sin embargo, lo que se presenta en este 
capítulo proporciona todos los ingredientes necesarios para la formulación 
de problemas de elasticidad tridimensional como continuación directa de 
los problemas analizados previamente. La ampliación a elementos más 
elaborados se hará evidente por sí sola. 

5.2 Características de los elementos tetraédricos 

5.2.1 Funciones de desplazamientos. En la Figura 5.1 se representa un 
elemento tetraédrico i, j, m, p en el espacio definido por las coordenadas 

El desplazamiento de un punto queda definido por tres componentes u, 
v y w en las direcciones de los ejes cartesianos x, y y z. Por tanto 

U = {I} (51) 

Al igual que en un triángulo plano los tres valores nodales definían la variación 
lineal de una cantidad, aquí una variación lineal vendrá definida por cuatro 
valores nodales. Como en el caso de la Ec. (3.3) podemos escribir, por 
ejemplo, que 

u = ai + at 2 x + a 3 y 4- a 4 z (5.2) 

Igualando los valores de los desplazamientos en los nodos, tenemos cuatro 
ecuaciones del tipo 

ui — «i + a 2 Xi + a 3 yi + <* 4 z;, etc. (5.3) 
de donde podemos calcular desde cti a a 4 . 
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Figura 5.1 Volumen tetraédrico. (Utilizar siempre un mismo orden lógico para la 
numeración; por ejemplo, comenzando en p, numerar los otros nodos 
en sentido antihorario mirando desde p - pijm o mipj, etc.) 



Además se puede escribir esta solución de manera similar a la Ec. (3.5) 
empleando el determinante, o sea 



u = ^{{ a i + ¡>i x + c iV + d i z ) u i + ( a j + fyx + c 3 y + djz)uj + 



(5.4) 



+ (a m + b m x + c m y + dmz)um + (dp + b p x + c p y + d p z)u p } 



siendo 



6V = det 



x m 



Vi 

y 3 
y? 



Zm 



(5.5a) 



en la que observamos que el valor de V representa el volumen del tetraedro. 
Desarrollando los otros determinantes por cof actores, obtendremos 
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X J 


yj 


z j 




1 yj zj 


ai = det 


x m 


Vm 


z m 


bi = -det 


1 Vm z m 




x p 


yp 


Z P 




1 y p zp 




x j 


1 


z 3 




xj yj 1 


C{ = —det 


x m 


1 


z m 


di = -det 


Xm ym 1 




Xp 


1 


Zp 




Xp y P 1 



(5.5b) 



obteniéndose el resto de las constantes mediante permutación cíclica de los 
subíndices p, i, j, m. 

La ordenación de los números nodales p, i, j, m, debe seguir "la regla de la 
mano derecha" como se deduce claramente de la Figura 5.1. Los tres primeros 
nodos se han numerado en ésta siguiendo un orden contrario al sentido de 
las agujas del reloj, mirando desde el último nodo (véase Apéndice 4). 

El vector de desplazamientos del elemento viene definido como sigue por 
las doce componentes de desplazamientos de los nodos 



(5.6) 



etc. 



Podemos escribir el desplazamiento de un punto cualquiera así 

u = [lN iy INj, lN m , Ii\ya e 
con funciones de forma definidas por 



(5.7) 



Ni 



etc. 



(5.8) 



q¿ + bjx + Cj-y + djz 
6V 

y siendo I una matriz unitaria 3x3. 

De nuevo, las funciones de desplazamientos utilizadas satisfarán 
obviamente las condiciones de continuidad en los contornos de separación 
entre elementos. Este hecho es consecuencia directa de la naturaleza lineal 
de la varición de los desplazamientos. 

5.2.2 Matriz de deformaciones. En un análisis tridimensional completo, 
el vector deformación en un punto tiene seis componentes. La matriz de 
deformaciones se puede ahora definir siguiendo la notación general del texto 
de elasticidad de Timoshenko, como 
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Su 



du 

dx 
dv 

dy 
dw 

~d~z 

du^dv 
dy dx 
dv dw 
dz dy 
dw du 
~dx~ Jr ~dz 



Empleando las Ec. (5.4) a (5.7) se comprueba fácilmente que 
c = Ba c = [B i) B i ,B m ,Bp]a e 



Ixy 
lyz 
7xz 



en la cual 



dN t 
dx ' 

o, 
o, 

dNj 
0, 



o, 

dN t 
dy' 

o, 

dN, 

dx ' 
dN l 
dz ' 



dz 5 



^P, o, 



o 
o 

dNj 

dz 
o 

dN x 
dy 
dNj 
dx 



6V 





o, 


0 


o, 




0 


o, 


o, 


di 




bu 


0 


o, 








o, 


bi 



(5.9) 



(5.10) 



(5.11) 



obteniéndose las restantes submatrices de manera similar, permutando 
simplemente los subíndices. 

Las deformaciones iniciales, tales como las debidas a dilatación térmica, 
pueden escribirse de la forma habitual como vector de seis componentes que, 
por ejemplo, en una dilatación térmica isótropa serían sencillamente 



£0 = 



( a0 € 
a9 e 
*9 e 
0 
0 
0 



(5.12) 
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siendo a el coeficiente de dilatación y 0 € el incremento medio de temperatura 
en el elemento. 

5.2.3 Matriz de elasticidad. Si existe anisotropía completa, la matriz 
D que relaciona las seis componentes de la tensión con las componentes 
de la deformación puede contener 21 constantes independientes (véase la 
Sección 3.2.4). 

Así pues, en general, 



T X y 



(5.13) 



Aunque el cálculo no presenta en sí gran dificultad cuando se trata con 
estos materiales, ya que la multiplicación nunca se efectúa explícitamente, es 
conveniente recoger aquí la matriz D para un material isótropo. Se puede 
escribir ésta en función de las constantes elásticas usuales E (módulo de 
Young) y v (coeficiente de Poisson), 



D- 



(1 + i/)(l- 2v) 



1, 



(I-")' (1 
1, 



simétrica 



0, 



0, 

0, 

1 -2u 

2(1^)' 



0, 

o, 
o, 

1 -2u 
2(1-*)' 



1 - 2v 



2(1 - u) 
(5.14) 

5.2.4 Matrices de rigidez, de tensiones y de cargas. La matriz de rigidez 
definida por la Ec. (2.10) puede ahora integrarse explícitamente, ya que las 
componentes de la deformación y de la tensión son constantes dentro de cada 
elemento. 

La submatriz ij general de la matriz de rigidez será una matriz 3x3 
definida como: 



B~ VBjV € 



(5.15) 



donde V e representa el volumen del tetraedro elemental. 

Las fuerzas nodales debidas a las deformaciones iniciales se convierten, 
similarmente a la Ec. (3.28), en 
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t* = -Bf Ve 0 V € (5.16) 

teniendo una expresión similar las fuerzas debidas a las tensiones iniciales. 

La similitud con las expresiones y resultados del Capítulo 3 es de hecho 
tan clara que es innecesaria una formulación más explícita. Los pasos 
necesarios para formular un programa de computador pueden repetirse sin 
ninguna dificultad por el lector. 

Se pueden expresar de nuevo las fuerzas másicas en función de sus 
componentes b Xi b y , 6 Z , o en función del potencial de fuerzas másicas. De 
nuevo se encontrará sin sorpresa que, si las fuerzas másicas son constantes, 
las componentes nodales de la resultante total se distribuyen en cuatro partes 
iguales [véase la Ec. (3.30)]. 

5.3 Elementos compuestos de ocho nodos 

La división de un volumen en tetraedros presenta a veces dificultades 
de visualización y podría conducir fácilmente a errores en la numeración de 
los nodos, etc., a menos que se utilice un programa totalmente automático. 
Una subdivisión más cómoda del espacio es la de elementos paralelepípedicos 
de ocho vértices (del tipo "ladrillo"). Seccionando un cuerpo tridimensional 
pueden dibujarse secciones paralelas y, mediante la subdivisión de cada una 
en cuadriláteros, se puede disponer de una forma sistemática para definir los 
elementos como se indica en la Figura 5.2. 

Dichos elementos podrían obtenerse automáticamente por ensamblaje 
de varios tetraedros, dejando el proceso de creación de éstos a un sencillo 
programa lógico. Por ejemplo, en la Figura 5.3 se muestra cómo puede 
dividirse un típico "ladrillo" en cinco tetraedros de dos (y solamente dos) 
maneras distintas. Además, calculando la media de los dos tipos de 




Figura 5.2 División sistemática de un volumen tridimensional en elementos de 
tipo "ladrillo". 
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Figura 5.3 Elementos compuestos de ocho nodos y su subdivisión en cinco 
tetraedros mediante las alternativas (a) o (6). 
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Figura 5.4 División sistemática de un elemento tipo "ladrillo" de ocho vértices en 
seis tetraedros. 

subdivisión distintos puede obtenerse una ligera mejora en la precisión de los 
resultados. Para un elemento del tipo "ladrillo", las tensiones podrían muy 
bien representarse por el valor medio del conjunto. 

En la Figura 5.4 se representa una subdivisión alternativa de un "ladrillo" 
en seis tetraedros. Es evidente que en este caso el número de alternativas es 
muy grande. 

En capítulos posteriores se verá cómo los "ladrillos" básicos se pueden 
obtener directamente mediante funciones de forma más complejas. 

5.4 Ejemplos y observaciones finales 

En las Figuras 5.5 y 5.6 se representa un ejemplo sencillo de aplicación 
de elementos tetraédricos, en el que el conocido problema de Boussinesq de 
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análisis de un semiespacio elástico con una carga puntual se enfoca estudiando 
un volumen cúbico. Para reducir la envergadura del problema se hace uso 
de la simetría y los desplazamientos del contorno se establecen de la forma 
indicada en la Figura 5.6 11 . Puesto que se impusieron desplazamientos 
nulos a una distancia finita por debajo de la carga, se aplicó una corrección 
obtenida de la expresión exacta antes de dibujar los gráficos que se muestran 
en la Figura 5.5. Aunque la división sea muy grosera, se apreciará que la 
comparación de resultados tanto para tensiones como para desplazamientos 
parece razonable. Sin embargo, incluso un problema trivial como éste 
implica la solución de unas 375 ecuaciones. En las referencias 5 y 11 se 
exponen algunos problemas más ambiciosos que han sido tratados con simples 
tetraedros. La Figura 5.7, tomada de la primera, ilustra el análisis de 
una complicada vasija de presión. En este análisis aparecieron unos 10.000 
grados de libertad. En el Capítulo 8 se verá cómo el uso de elementos 
más complicados permite efectuar un análisis suficientemente preciso para 
un problema muy similar mediante un número total de grados de libertad 
mucho más pequeño. 

Aunque se ha enfatizado en este capítulo la fácil visualización de una 
malla de tetraedros haciendo uso de una división en "ladrillos", es posible 
generar automáticamente mallas arbitrarias de tetaedros de gran complejidad 

t-' 




Figura 5.5 El problema de Boussinesq como caso de análisis tridimensional de 
tensiones. 
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(b) 

Figura 5.8 (a) Malla de tetraedros en la región exterior generada automáti- 
camente especificando la densidad de mallado y (6) intersección de 
la malla con el plano central del avión. 
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con cualquier densidad deseada. Los procedimientos siguen la pauta gene- 
ral de la generación automática de triángulos 12 , a la que nos referimos en 
el Capítulo 14 al tratar de mallas eficientes, construidas de forma adapta- 
ble, pero naturalmente, la complejidad es mucho mayor en tres dimensio- 
nes. Algunos detalles de tales generadores los describen Peraire et oí. 1 , y 
la Figura 5.8 ilustra la intersección de una malla generada automáticamente 
con el perfil de un avión. No es posible mostrar el dibujo completo de la 
malla, que tiene más de 30.000 nodos. El punto importante a resaltar es que 
tales mallas pueden generarse automáticamente para cualquier configuración 
que pueda ser descrita geométricamente. Aunque este ejemplo tiene que ver 
con aerodinámica en vez de elasticidad, en este contexto se pueden generar 
mallas similares. 
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NOTACIÓN TENSORIAL EN 
LA APROXIMACIÓN DE 
PROBLEMAS DE ELASTICIDAD 

6.1 Introducción 

La notación matricial utilizada en los capítulos precedentes para la 
descripción de cantidades tensoriales tales como tensiones y deformaciones es 
compacta, y creemos que fácil de entender. Sin embargo, en un programa de 
ordenador cada cantidad deber ser identificada mediante índices apropiados 
(viz. Capítulo 15), y esta concisión tiene sus ventajas. Además, muchos 
lectores están acostumbrados al uso de la notación tensorial indicial, que es 
una herramienta estándar en elasticidad. Por esta razón vamos a reescribir 
la formulación de elementos finitos anterior usando dicha notación, que es 
ampliamente usada en la literatura actual de elementos finitos. 

Algunas ventajas de tal reformulación frente a la forma matricial se hacen 
evidentes al considerar la evaluación de la rigidez de medios isótropos. Aquí, 
algunas operaciones de multiplicación se vuelven redundantes y se pueden 
escribir programas complejos de forma más económica. 

Si se consideran problemas de elasticidad más complejos, con grandes 
deformaciones, el uso de la notación tensorial es casi esencial para 
implementar, con relativa facilidad, los resultados de la extensa literatura 
relacionada con tales problemas. 

Este capítulo añade pocas novedades a las ideas sobre discretización, pero 
repite con un lenguaje distinto resultados ya presentados. 

6.2 Notación indicial 

Cuando se escriben las coordenadas cartesianas u otras cantidades 
vectoriales asociadas a éstas es práctico usar subíndices latinos de la forma: 

x a , a = 1,2,3 (6.1) 

lo que equivale a (xi,x 2y X3) o (x,y,z) según la notación anterior. De forma 
similar, para un desplazamiento se escribe 

u a , a = 1,2,3 (6.2) 
lo que equivale a u 2 ,Ui) o (u,v,w), usado anteriormente. 
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Para evitar la confusión con las cantidades nodales a las que previamente 
nos habíamos referido con subíndices, simplemente cambiaremos su posición 
a supraíndices. Así, 

u 3 a tiene el mismo significado que Uj (6.3) 

utilizado anteriormente, etc. 

Previamente se han utilizado dos subíndices para referirse a un coeficiente 
de rigidez, pero la submatriz tema 2 x 2 ó 3 x 3 coeficientes dependiendo 
de si se consideraban dos o tres componentes de desplazamiento. Ahora el 
escalar 

K% a y b = 1,2,3 (6.4) 

define completamente el coeficiente apropiado, con el término ab indicando 
la posición relativa de la submatriz (en este caso para un desplazamiento 
tridimensional). 

Nótese que para una matriz simétrica se había requerido previamente que 

Ky = Kj¡ (6.5a) 
En notación tensorial, la misma simetría implica que 

= (6.5b) 



6.3 Derivadas y relaciones tensoriales 

En la notación tensorial la derivada de cualquier cantidad con respecto 
a una coordenada x¿, se escribe como 

), (6-6) 

Por tanto, el "gradiente" del vector desplazamiento se puede escribir como 

du a 

u a(6 = ^ a, 6 = 1,2,3 (6.7) 

y usando el concepto de que las (pequeñas) deformaciones son la parte 
simétrica del gradiente del desplazamiento,! 

fa&=l(M + %a) = £ta 0,6=1,2,3 (6.8) 



f Nótese que esta definición es algo distinta de la usada en los Capítulos 2 a 5. Aquí 
£ *3 = i?t¿ cuando i ¿ j. 
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y las (pequeñas) rotaciones son la parte antisimétrica del gradiente de 
desplazamiento, 

"ab = \(u a ,b ~ «6.a) = -"ba a, & = 1,2,3 (6.9) 

Estas expresiones son análogas a las de la Ec. (2.2). Las componentes de £ a ¿ 
y u; a ¿ se pueden representar en forma matricical. Por ejemplo, 



¿11 £l2 ¿13 
£21 ¿22 ¿23 
£31 ^32 ¿33 



a,& = 1,2,3 (6.10) 



y de la Ec. (6.8) se deduce que esta matriz debe ser simétrica, es decir, 

£12 = £21 , etc. (6.11) 
Introducimos aquí la idea de transformación de coordenadas al escribir 
3 

<' = £ A aW a\&= 1,2,3 (6.12) 
b=l 

donde x' a es un nuevo conjunto de coordenadas cartesianas y 

A a / fc = cosfx^,,^) (6.13) 

define los cosenos directores de los ejes de forma similar a la Ec. (1.25). 

La notación de una suma [ej., ver Ec. (6.12)] se usa a menudo, y se emplea 
el criterio de que los índices repetidos dentro de cualquier término implican 
una suma sobre el rango de los índices. Por tanto, en vez de la Ec. (6.12) se 
puede escribir simplemente 

z' a , = A a , b x h a', 6 =1,2,3 (6.14) 

para expresar 

V = A a'i*i + A a'2*2 + Vs*3 a = 1,2,3 (6.15) 

En la Ec. (6.14) a se denomina "índice libre" mientras que a 6 se le llama 
"índice mudo", puesto que puede ser reemplazado por cualquier índice no 
libre sin que varíe el significado del término. El criterio de suma se usa en 
lo que resta del capítulo y el lector debería asegurarse de que comprende 
totalmente este concepto antes de proseguir. 

Usando el concepto de cosenos directores y la transformación de 
coordenadas de la Ec. (6.14) se tiene, de forma similar, 



V = A a , 6 u 6 a', 6 = 1,2,3 



(6.16) 
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Tras algunas operaciones y utilizando la definición (6.8) se obtiene 

e' a , v = A tt 'c*«iAw a',6',c,d = 1,2,3 (6.17) 

Las variables que se transforman según la Ec. (6.16) se llaman tensores 
cartesianos de primer orden, mientras que aquellas que se transforman según 
la Ec. (6.17) se denominan tensores cartesianos de segundo orden. Por tanto, 
el uso de la notación indicial en el contexto de coordenadas cartesianas 
rectangulares lleva de forma natural a que cada variable de mecánica 
estructural esté definida por un tensor cartesiano del rango apropiado. 

Los elementos de la tensión se pueden escribir como cr ab con a, 6 = 1, 2, 3 
y expresados como una matriz como se hizo en la Ec. (6.10) para las 
deformaciones. 



De esta forma, 



a ab = 



011 <7 12 013 
021 022 023 
031 <7 32 033 



o,6 = l,2,3 (6.18) 



Los elementos de la tensión también se transforman como un tensor 
cartesiano de segundo orden. La simetría de tensor de tensiones se puede 
probar sumando momentos (momento angular) respecto de cada uno de los 
ejes coordenados, y se obtiene 

<7ab = <Tba «,6 = 1,2,3 (6.19) 

Si se introduce un vector de fuerzas de volumen 



&a = (¿1,62,63) a = 1,2,3 (6.20) 

se pueden escribir las ecuaciones de equilibrio (equilibrio de momento lineal) 
para un elemento de volumen unitario como 

*6a,6 + *a = 0 a, 6= 1,2,3 (6.21) 
donde los índices repetidos indican suma sobre el rango del índice; esto es. 

3 

°~ba,b = ]C "ba,b = ^la.l + ^2a,2 + ^3a,3 ( 6 - 22 ) 
b=l 

Nótese que el índice libre a debe aparecer en cada término de la ecuación 
para que ésta tenga sentido. 

Como otro ejemplo del criterio de suma considérese un término 0 a í,£¿ a , 
que tiene unidades de trabajo por unidad de volumen. Este término implica 
una doble suma; por tanto, sumando primero en a se tiene 
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(T ab £ ab = 016^16 + 026 £ 26 + < T 3b £ 3b ( 6 - 23 ) 
y luego sumando en 6 se tiene 

<T ab £ ab ~ ^ll^ll +012£l2 + 013£l3 + 02l£21 + 023^23 + 031 £ 3 1 +032^32 +033^33 

(6.24) 

También se pueden usar las condiciones de simetría en cr ab y e ab para reducir 
los nueve términos a seis. De esta forma, 

< T ab £ ab = °ll e ll + ^22^22 + 033É33 + 2(0i 2 £i2 + 023^23 + 031^31 ) (6.25) 

Haciendo un desarrollo similar se puede mostrar el significado de la expresión 
a ab u ab = 0 0,6 = 1,2,3 (6.26) 

6.4 Materiales elásticos y discretización por elementos finitos 

Para un material elástico la relación lineal más general que se puede 
escribir entre tensiones y deformaciones es 

°ab = D ahcd {e cd - e° cd ) + 0° 6 (6.27) 

La ecuación (6.27) es la equivalente a la Ec. (2.5) pero escrita ahora 
en notación tensorial. Nótese que los módulos elásticos que aparecen en 
la Ec. (6.27) llevan cuatro subíndices. Al escribir la ecuación constitutiva 
respecto al sistema de coordenadas x a y usando la transformación de 
tensiones y deformaciones se puede establecer que los módulos elásticos son 
elementos de un tensor cartesiano de cuarto orden. Este se transforma según 

K'b'c'd' = K'e A b'f A c'9 A d'h D efgh ( 6 - 28 ) 

Los módulos elásticos de un material elástico lineal isótropo se pueden escribir 
como 

D ahcd = S ab S cd X + {8 ac 8 hd + 6 ad 8 hc )ii (6.29) 

donde A, fi son las constantes de Lamé y 8 ab es la delta de Kronecker, definida 
como 

Un material isótropo lineal está, por tanto, caracterizado por dos constantes 
elásticas independientes. En vez de las constantes de Lamé se pueden usar 
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el módulo de Young, E, y el coeficiente de Poisson, i>, para caracterizar al 
material. Las constantes de Lame se pueden relacionar con el módulo de 
Young y el coeficiente de Poisson de la forma 

E 



2(1+*) 

y (6.31) 

_ vE 

~ (1 + - 2u) 

Si se introduce ahora la aproximación de los desplazamientos típica de 
elementos finitos dada por la Ec. (2.1), se puede escribir para un elemento 
aislado, y utilizando notación indicia! 

u a « ú a = N^üí a =1,2,3; i = l,2,...,n (6.32) 

donde n es el número total de nodos en el elemento. La deformación 
aproximada de cada elemento está dada por la definición de la Ec. (6.8) 
como 

*«* = l lN,b< + *,UÍ] a, 6 = 1, 2, 3; t = 1, 2, • • • , n (6.33) 
El trabajo virtual interno de un elemento viene dado por 



SU 1 = I Se^'abdV (6.34) 
Jv* 

Utilizando las Ees. (6.33) y (6.24) y usando las simetrías de se puede 

escribir el trabajo virtual interno de un material elástico lineal como 

SU 1 = 6üÍ (J^ N^D^N^dVj ü{ - 6üiJ v€ N%D ahcd e* cd - a^dV 

(6.35) 

reescribiendo los términos obtenidos en el Capítulo 2 en notación tensorial. 
El "tensor" de rigidez está ahora definido como 

K'¿ = j vt «^DéU^i & (6-36) 

Cuando las propiedades elásticas son constantes sobre el elemento se puede 
separar la integración de las propiedades de los materiales definiendo 

y entonces, haciendo las sumas con los módulos del material 
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En el caso de isotropía se obtiene un resultado particularmente simple, 
K l ¿ = \W¡í + riW t c Í + 6 ac (W¡l)] 

Esto permite llevar a cabo la integración usando menos operaciones 
aritméticas que cuando se usa la forma matricial. 

Las ecuaciones finales del sistema se escriben como 

K'¿4-r a = 0 (6.38) 

y en esta forma "escalar" se identifica fácilmente cada coeficiente. El lector 
puede, como ejercicio sencillo, completar la derivación de los términos de 
fuerza debidos a la deformación inicial a las fuerzas de volumen b a y las 
fuerzas de superficie. 

La notación tensorial es útil a veces para clarificar los términos 
individuales, y esta introducción puede ser de ayuda para la lectura de cierta 
literatura actual. 
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FUNCIONES DE FORMA PARA 
ELEMENTOS "ESTÁNDAR" Y 
"JERÁRQUICOS": ALGUNAS FAMILIAS 
GENERALES DE CONTINUIDAD C 0 

7.1 Introducción 

En los Capítulos 3, 4 y 5 anteriores se mostró al lector con algún 
detalle cómo pueden formularse y resolverse problemas de elasticidad lineal 
utilizando elementos finitos de formas muy simples. Aunque los cálculos 
se referían sólo a funciones de forma relativas a formas triangulares y 
tetraédricas, debe ser evidente en el punto en que nos encontramos que muy 
bien podrían haberse utilizado elementos de formas distintas. Además, una 
vez determinado el elemento y las funciones de forma correspondientes, las 
operaciones subsiguientes siguen una pauta general ya establecida, por lo 
que podrían encomendarse a un experto en álgebra no familiarizado con los 
aspectos físicos del problema. Se verá más adelante que en realidad es posible 
programar un computador para que procese una gran variedad de problemas 
especificando solamente las funciones de forma. La elección de éstas es, sin 
embargo, un punto en que se ha de aplicar el ingenio y en el que el factor 
humano es primordial. En este capítulo se presentan algunas reglas para 
generar distintas familias de elementos uni, bi y tridimensionales. 

En los problemas de elasticidad expuestos en los Capítulos 3, 4 y 5, 
la variable desplazamiento era un vector de dos o tres componentes y las 
funciones de forma se escribieron en forma matricial. Sin embargo, se 
dedujeron separadamente para cada componente y en realidad las expresiones 
matriciales se obtuvieron multiplicando una función escalar por una matriz 
unidad [ver, por ejemplo, las Ees. (3.7), (4.3) y (5.7)]. En este capítulo nos 
concentraremos por tanto en las formas escalares de las funciones de forma, 
omitiendo el índice prima y designándola simplemente JV t -. 

Las funciones de forma utilizadas al formular los problemas de elasticidad 
por el método de los desplazamientos tenían que satisfacer los criterios de 
convergencia del Capítulo 2: 

a) las incógnitas han de presentar continuidad entre elementos (o sea, no 
se requiere la continuidad de las derivadas primeras), o en terminología 
matemática, continuidad Cq; 

b) la función ha de permitir la representación de cualquier forma lineal, de 



115 



116 



El Método de los Elementos Finitos 



manera que se satisfaga el criterio de deformación constante (primera 
derivada constante). 

Las funciones de forma que se describen en este capítulo sólo exigirán 
la satisfacción de estos dos criterios. Serán, por tanto, aplicables a todos 
los problemas de los capítulos precedentes y también a otros problemas que 
sólo requieran el cumplimiento de estas dos condiciones. Por ejemplo, las 
expresiones que se determinen aquí son válidas para todos los problemas del 
Capítulo 10. Son además aplicables a cualquier situación donde el funcional 
II (ver Capítulo 9) esté definido solamente por derivadas de primer orden. 

Las familias de elementos analizados presentarán progresivamente mayor 
número de grados de libertad. Podría muy bien plantearse la pregunta de si 
se obtiene ventaja económica o de otra índole al incrementar de esa manera 
la complejidad de un elemento. La respuesta no es aquí fácil, aunque pueda 
afirmarse como regla general que para una precisión dada, puede reducirse 
el número total de incógnitas de un problema aumentando el orden de un 
elemento. La economía requiere, sin embargo, la reducción de cálculo y de 
esfuerzo de preparación de datos, y esto no se cumple automáticamente para 
un número total de variables pequeño ya que, aunque el tiempo necesario 
para resolver las ecuaciones pueda reducirse, aumenta el tiempo requerido 
para formular el elemento. 

Una notoria ventaja económica para el caso de análisis tridimensional fue 
ya apuntada en el Capítulo 5. 

Ventajas de la misma categoría aparecen ocasionalmente en otros 
problemas, pero en general el elemento óptimo debe determinarse para cada 
caso particular. 

En la Sección 2.6 del Capítulo 2 hemos demostrado que el orden de error 
en la aproximación es 0(W >+1 ), donde h es el "tamaño" del elemento y p el 
grado de polinomio completo que aparece en el desarrollo. Evidentemente, al 
aumentar el grado de las funciones de forma, aumentará también el exponente 
p y la convergencia hacia la solución exacta se hace más rápida. Mientras 
que esto nada dice acerca de la magnitud del error para una subdivisión 
particular, es evidente que deben buscarse funciones de forma que contengan 
el polinomio completo de mayor grado posible para un número de grados de 
libertad dado. 

7.2 Conceptos de elementos estándar y jerárquico 

La esencia del método de los elementos finitos, ya presentada en el 
Capítulo 2, consiste en aproximar la incógnita (desplazamiento) mediante 
un desarrollo dado por la Ec.c (2.1). Para una variable escalar u esto se 
puede escribir como 

n 

u^ú = J2 = N i a i = Na (7.1) 
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donde a¿ son los parámetros incógnita que deben determinarse. 

Hemos escogido exph'cit amenté identificar tales variables con los valores 
de función incógnita en los nodos del elemento, haciendo 

uí = a { (7.2) 

Nos referiremos a las funciones de forma así definidas como "estándar", 
ya que son la base de la mayoría de los programas de elementos finitos. 
Si se usan desarrollos polinómicos y el elemento satisface el Criterio 1 del 
Capítulo 2 (que implica que los movimientos de sólido rígido no provoquen 
deformación), es claro que un valor constante de a¿ especificado para todos 
los nodos debe resultar en un valor constante de ú: 

u — u{ = constante (7.3) 
De la Ec. (7.1) se sigue que 

¿>¿ = 1 (7.4) 
i=l 

en todos los puntos del dominio. La primera parte de este capítulo tratará 
de tales funciones de forma estándar. 

Las funciones de forma "estándar" tienen una seria desventaja: cuando se 
hace un refinamiento de elementos se tienen que generar funciones de forma 
totalmente nuevas, y por tanto rehacer todos los cálculos. Sería ventajoso 
evitar esta dificultad considerando la expresión (7.1) como una serie en la 
que la función de forma N{ no depende del número de nodos de la malla n. 
Esto se consigue con las funciones de forma jerárquicas, a las que se dedica 
la segunda parte de este capítulo. 

El concepto jerárquico queda bien ilustrado en el problema 
unidimensional (barra elástica) de la Figura 7.1. Se tomaron por simplicidad 
propiedades elásticas constantes (D = E) y las fuerzas másicas b varían 
de tal forma que se obtiene la solución exacta mostrada en la figura (con 
desplazamiento nulo en ambos extremos). 

Se muestran dos mallas y se supone interpolación lineal entre nodos. 
Tanto para la forma estándar como para la jerárquica, la malla grosera da 

K c n a\ = U (7-5) 

En la malla fina se añaden dos nodos adicionales, y con las funciones de 
forma estándar las ecuaciones a resolver son 
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(6) Aproximación jerárquica 

Figura 7.1 Un problema unidimensional de deformación de una barra elástica 
uniforme mediante fuerzas másicas prescritas. 



De esta forma han aparecido automáticamente matrices nulas debido a 
la interconexión entre elementos, que aquí es obvia. Notemos que, dado que 
todos los coeficientes han variado, las nuevas ecuaciones deben ser resueltas. 
[La Ec. (2.13) muestra como se calculan estos coeficientes, y se anima al 
lector a calcularlos en detalle.] 

Con la forma "jerárquica", y utilizando las funciones de forma que se 
muestran en la figura, aparece un sistema de ecuaciones parecido y se consigue 
una aproximación idéntica (dada simplemente por una serie de segmentos 
rectilíneos). La solución finales idéntica, pero el significado de los parámetros 
ai — a* es ahora distinto, tal como se muestra en la Figura 7.1. 
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De forma general, 

= K< u (7.7) 

ya que se ha usado la misma función de forma para la primera variable. 
Además, en este caso particular los coeficientes de fuera de la diagonal son 
cero y las ecuaciones finales para la malla fina son: 

' K{ x 0 0 
0 K[ 2 0 
0 0 K¡ 

La "diagonalidad" de este sistema sólo se presenta para problemas 
undimensionales, pero se encuentra, en general, que las matrices obtenidas 
utilizando funciones de forma jerárquicas son casi diagonales y esto implica 
un mejor condicionamiento que en aquéllas en que se usan funciones de forma 
estándar. 

Ahora las variables no tienen interpretación obvia como valores locales 
de los desplazamientos, pero pueden ser fácilmente transformados a éstos 
si se desea. Aunque no es usual utilizar funciones jerárquicas en elementos 
lineales su obtención en forma polinómica es sencilla y muy ventajosa. 

En el Capítulo 14 se discuten más ventajas de esta forma de 
aproximación. 

El lector debe notar que con la forma jerárquica es conveniente considerar 
la malla fina como una mejora de la malla original, añadiendo funciones 
adicionales de refinamiento. 

Las formas jerárquicas proporcionan una conexión con otras soluciones 
aproximadas por series. Muchos problemas resueltos en la bibliografía clásica 
mediante desarrollo en series trigonométricas de Fourier son, de hecho, casos 
particulares de este procedimiento. 

Parte 1 Funciones de forma "estándar" 




ELEMENTOS BIDIMENSIONALES 

7.3 Elementos rectangulares. Algunas consideraciones 
preliminares 

Conceptualmente (en especial si el lector está condicionado por su 
educación a pensar en el sistema de coordenadas cartesianas), la forma de 
elemento más sencilla es la de un rectángulo de lados paralelos a los ejes x 
e y. Consideremos, por ejemplo, un rectángulo como el representado en la 
Figura 7.2 con puntos nodales numerados de 1 a 8 en las posiciones indicadas, 
y en donde los valores de la función incógnita u (representando aquí, por 
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y 

1 f «8 

3 < » < i 6 

4* é 5 



Figura 7.2 Elemento rectangular. 

ejemplo, una de las componentes del desplazamiento) forman los parámetros 
del elemento. ¿ Cómo pueden determinarse funciones de forma adecuadas 
para este elemento? 

Supongamos en primer lugar que u se exprese como forma polinómica 
en x e y. Para asegurar la continuidad de u entre elementos a lo largo de 
los lados superior e inferior, la variación debe ser lineal. Los elementos que 
estén en contacto con el lado superior o inferior tendrán dos puntos comunes 
con dichos lados, y puesto que dos valores determinan una función lineal de 
manera única, queda asegurado que a lo largo de dichos lados las funciones 
correspondientes a elementos continuos serán iguales. Este razonamiento ya 
se siguió con anterioridad al especificar funciones lineales para el triángulo. 

Similarmente, si suponemos que a lo largo de los lados verticales la 
variación es cúbica, aseguramos la continuidad en los mismos, puesto que 
cuatro valores determinan un polinomio de tercer grado de manera única. Se 
han obtenido, pues, las condiciones para que se satisfaga el primer criterio. 

Para asegurar la existencia de valores arbitrarios de las derivadas 
primeras basta con que se conserven todos los términos lineales del desarrollo. 

Finalmente, puesto que la variación de la lunción ña de venir determinada 
unívocamente por ocho puntos, sólo pueden retenerse ocho coeficientes del 
desarrollo y, por consiguiente, podemos escribir 

u = aj + a 2 x + a 3 y + a 4 xy + a s y 2 + a 6 xy 2 + a 7 y 3 + a s xy 3 (7.9) 

Generalmente, se puede llevar a cabo la elección de forma unívoca reteniendo 
los términos del desarrollo del menor grado posible, aunque evidentemente 
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en este caso no se presenta dicha situación. f El lector comprobará fácilmente 
que ya se han satisfecho todas las condiciones. 

Sustituyendo las coordenadas de los distintos nodos se obtendrá un 
sistema de ecuaciones simultáneas. 

Este puede escribirse de la misma forma que en el caso del triángulo en 
la expresión (3.4) 

o simplemente como 

u € = Ca (7.11) 

Formalmente, 

a = CrV (7.12) 
y podríamos escribir la Ec. (7.9) como 

u = Pa = PCrV (7.13) 

en la cual 

P = [l,x,2/,xy,yW,y 3 ,zy 3 ] (7.14) 
Así pues, las funciones de forma del elemento definidas por 

u = Ku e = [N 1 ,N 2 ,...,N 6 }u e (7.15) 

se pueden determinar a partir de 

N - PC 1 (7.16) 

Este procedimiento, muy utilizado en la práctica ya que no implica mucha 
in^foiJCtsjdadV presenta, sin embarco,, algunas desventajas considerables. A 
veces puede que no exista la inversa de C 1,2 y siempre se encuentra 
considerable dificultad algebraica en la obtención de una inversa adecuada, 
en términos generales, a todas las geometrías del elemento. Vale la pena, 
por tanto, considerar la posibilidad de escribir directamente las funciones 



f Si se retiene un término de mayor grado del desarrollo ignorando uno de menor grado, 
la aproximación será generalmente mas pobre, aunque se mantendrá la convergencia, 1 
siempre que se incluyan ios términos lineales. 
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Figura 7.3 Funciones de forma para los elementos de la Figura 7.2. 



de forma Ni(x,y). Antes de ello, hemos de mencionar algunas propiedades 
generales de estas funciones. 

Examinando la definición expresada en la Ec. (7.15), observamos en 
seguida algunas características importantes. Primeramente, puesto que esta 
expresión es válida para todas las componentes de u e , será 

^ = 1 

en el nodo i, y nula en todos los demás nodos. Más aún, debe conservarse la 
forma básica de la variación a lo largo del contorno definida por razones de 
continuidad (como en el ejemplo anterior, en que era lineal en x y cúbica en 
y). En la Figura 7.3 se representan isométricamente las funciones de forma 
de dos nodos típicos de elementos como los considerados. Es evidente que 
éstas podían haberse escrito directamente como producto de una función 
lineal en x por una de tercer grado en y adecuadas. No siempre es tan fácil 
como en este caso encontrar una solución, pero se recomienda, siempre que 
sea posible, tratar de deducir directamente las funciones de forma. 

Será conveniente para los razonamientos que siguen, utilizar coordenadas 
normalizadas. En la Figura 7.4 se muestran dichas coordenadas normalizadas 
elegidas de manera que en los lados del rectángulo toman los valores ± 1: 



£ = (x — x c )/a d£ = dx/a 
V = (y - Vc)/b drj = dy/b 



(7.17) 
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1 



Figura 7.4 Coordenadas normalizadas para un rectángulo. 

Una vez conocidas las funciones de forma en coordenadas normalizadas es 
muy sencillo efectuar el cambio a coordenadas globales, así como transformar 
las distintas expresiones que aparecen, por ejemplo, en la deducción de la 
matriz de rigidez. 

7.4 Polinomios completos 

La función de forma deducida en la sección anterior presenta una forma 
relativamente particular [véase la Ec. (7.9)]. Sólo permite variación lineal 



- — y 



orden 1 



x ¿» ^ i 2 

— — xy- — xv y 3 

/\/y\/\. 

x x y x y xv y 4 

/\/\/\/\/\ 5 

7\ 7\ /\ /\ 7\ A 



Figura 7.5 Triángulo de Pascal (se ha sombreado el desarrollo cúbico - 
10 términos). 
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según la coordenada z, mientras que para y se tiene una forma de tercer grado 
completa. El polinomio completo contenido es, por tanto, de primer grado 
y en general siempre se obtendrá el orden de convergencia correspondiente 
a una variación lineal aunque se incrementaría el número total de variables. 
Solamente en los casos donde la variación lineal en x se acerque muchísimo a 
la solución exacta se dará un orden de convergencia más elevado, y por esta 
razón los elementos con tales direcciones "preferentes" deben restringirse a 
casos particulares, como vigas o bandas estrechas. En general, buscaremos 
funciones que posean el polinomio completo de mayor grado para un número 
de grados de libertad mínimo. En este contexto es útil recordar el triángulo 
de Pascal (Figura 7.5), del cual pueden deducirse fácilmente el número de 
términos que aparecen en un polinomio de dos variables x e y. Por ejemplo, 
un polinomio de primer grado requiere tres términos, uno de segundo grado 
seis términos, de tercer grado diez términos, etc. 

7.5 Elementos rectangulares. Familia de Lagrange 3-6 

Se puede obtener un método fácil y sistemático para engendrar funciones 
de forma de cualquier grado mediante el simple producto de los polinomios 
apropiados en las dos coordenadas. Consideremos un elemento como el 
mostrado en la Figura 7.6 en el que se disponen una serie de nodos, exteriores 
e interiores, formando una malla regular. Se desea determinar una función de 
forma para el punto indicado por el círculo más grande. Evidentemente, el 
producto de un polinomio de quinto grado en que tome el valor unidad en 
los puntos de la segunda columna de nodos y cero en todos los demás, por un 
polinomio de cuarto grado en 77, que tome el valor unidad en la coordenada 
que corresponde a la fila de nodos superior y cero en todos los demás puntos, 
satisfará las condiciones de continuidad entre elementos y dará la unidad en 
el punto nodal en cuestión. 

Los polinomios de una variable que presentan esta propiedad se conocen 
como polinomios de Lagrange y pueden escribirse directamente como sigue 

m m = U ~ -&)■••({- Íh-lM - gfe±l) ■■■((- ín) 

hW (í* - íoKíí - íi) - • • (€* - e*-i)(í* - í*+i) • • • (í* - en) 1 ■ ' 

dando la unidad en £¿ y pasando por n puntos. 

Por tanto, si en dos dimensiones distinguimos cada nodo por su columna 
y su número nodal /, «7, tenemos 

Ni = N U = inOljM (7.19) 

donde n y m representan el número de subdivisiones en cada dirección. 

En la Figura 7.7 se muestran algunos miembros de esta ilimitada 
familia. Aunque fácil de generar, su utilidad es limitada, no sólo debido al 
gran número de nodos interiores que presenta, sino también a las escasas 
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Figura 7.6 Función de forma típica de un elemento lagrangiano. 

-o 000 





Figura 7.7 Tres elementos de la familia de Lagrange: (a) lineal, (b) cuadrático, y 
(c) cúbico. 
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Figura 7.8 Términos generales por un desarrollo de Lagrange de grado 3x3 
(o m x n). Polinomios completos de grado 3 (o n). 

condiciones para ajuste de curvas que ofrecen los polinomios de grados 
é\evaúos. Se advertirá que ¡as expresiones de Jas funciones de forma contienen 
algunos términos de grado muy elevado, mientras que se prescinde de algunos 
términos de grados inferiores. 

Corroborando lo anterior, si examinamos los términos polinómicos 
presentes en una situación en la que n = ra, advertimos en la Figura 7.8, 
basada en el triángulo de Pascal, que interviene un número muy grande 
de términos polinómicos excesivos respecto a los que se precisan para un 
desarrollo completo. Sin embargo, esta familia presenta algunas ventajas 
cuando se plantea la transformación de las funciones de forma (Capítulo 8). 




(c) id) 

Figura 7.9 Rectángulos de la familia ("serendípita") de nodos en el contorno: 
(a) lineal, (6) cuadrático, (c) cúbico y (d) cuártico. 
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7.6 Elementos rectangulares. Familia "serendípita" 3,4 

Es con frecuencia muy conveniente hacer que las funciones dependan de 
valores nodales situados en el contorno. Consideremos, por ejemplo, los tres 
primeros elementos de la Figura 7.9. En cada uno, el número de nodos 
aumenta gradualmente y hay el mismo número de nodos en cada lado. Para 
asegurar la continuidad, la variación de la función en cada lado es lineal, 
parabólica y cúbica, respectivamente, según el número creciente de nodos de 
uno a otro elemento. 

Para obtener la función de forma del primer elemento es evidente que un 
producto de la forma 

J(€ + 1X1 + 1) ( 7 - 20 > 

toma el valor uno en el nodo superior derecho, donde £ = rj = 1, y cero en 
todos los demás. Además, la función de forma varia linealmene en todos los 
lados, y por tanto se satisface el criterio de continuidad. Este elemento es 
idéntico al lagrangiano con n = 1. 

Introduciendo las nuevas variables, 

Éo=«¿ vo = vm (7-21) 

la expresión 

iV,= j(l + + W) ( 7 - 22 ) 

permite escribir todas las funciones de forma de manera compacta. 

Como una combinación lineal de estas funciones de forma proporciona 
cualquier variación lineal arbitraria de u, el segundo criterio de convergencia 
queda satisfecho. 

El lector puede verificar que las siguientes funciones satisfacen todos los 
criterios necesarios para los miembros de segundo y tercer orden de familia. 

Elemento "cuadrático" 
Nodos de vértice: 

iV i = i(l + ío)(l+'ío)«o + '?o-l) ( 7 - 23 ) 



Nodos laterales: 



£ = 0 N i = 1 -(l-t 2 )(l+vo) 



o jv l = i(i+£ 0 )(i-'? 2 ) 



Elemento "cúbico" 
Nodos de vértice: 



JVi = ¿(1 + £o)(l + «IoM-10 + 9(í 2 + >7 2 )] (7-24) 
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Nodos laterales: 

(i = ±1 y m = ±i 

^ = ¿(l+ío)(l-'? í )(l + 9'7o) 

obteniéndose las expresiones para los nodos restantes permutando las 
variables. 

En el miembro siguiente de esta familia, 8 de cuarto orden, se ha añadido 
un nodo central de manera que se obtengan todos los términos de un 
polinomio completo de cuarto grado. Este nodo central introduce una función 
de forma (1 - ¿ 2 ) (1 - n 2 ), que toma el valor cero en todos los contornos 
exteriores. 

Las funciones anteriores fueron deducidas originalmente por mera 
observación, y su extensión a miembros de orden aún más elevado es difícil 
y requiere cierto ingenio. Fue, por tanto, apropiado llamar a esta familia 
"serendípita" por referencia al famoso Príncipe de Serendip, célebre por sus 
descubrimientos fortuitos (Horacio Walpole, 1754). 



4 7 3 




1 5 2 

(a)N 5 - j(l-í 2 )(l-if) <*)*|- |(l-í)(l-»f 2 ) 
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Puede establecerse, sin embargo, un procedimiento bastante sistemático 
para generar funciones de forma serendípitas, el cual resulta evidente en la 
Figura 7.10, donde se presenta la generación de una función de forma de 
segundo grado. 7 ' 9 

Para empezar, observamos que para los nodos laterales basta con una 
interpolación lagrangiana del tipo lineal x 2 o grado para determinar N¿ en 
los nodos 5 a 8. N B y N & se representan en la Figura 7.10 (a) y (b). Para 
un nodo de vértice, como el de la Figura 7.10 (c), comenzamos con una Ni 
bilineal y advertimos inmediatamente que mientras N\ = 1 en el nodo 1, es 
distinta de cero en los nodos 5 u 8 (paso 1). Sustrayendo sucesivamente ¿N¿ 
(paso 2) y j/Y 8 (paso 3), aseguramos que se obtiene un valor nulo en dichos 
nodos. El lector puede verificar que las expresiones obtenidas coinciden con 
las Ees. (7.23) y (7.24). 

Ciertamente, debería ahora resultar evidente que para todos los 
elementos de orden más elevado, se pueden generar, siguiendo un proceso 
idéntico, funciones de forma para nodos laterales y de vértice. Para 
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- 
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Figura 7.11 Funciones de forma para un elemento "serendípito" de transición 
cúbico/lineal. 
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A/ 

Figura 7.12 Términos generados por funciones de forma de borde en los elementos 
serendípitos (3 X 3 y m x m). 

las primeras basta con una simple multiplicación de dos interpolaciones 
lagrangianas de grados m y 1. Para las segundas es necesaria una 
combinación de funciones bilineales de vértice, junto con las fracciones 
apropiadas de las funciones de forma de los nodos laterales, para asegurar 
valores nulos en los nodos correspondientes. 

Siguiendo un algoritmo sistemático es, por supuesto, bastante fácil 
generar funciones de forma para elementos con diferente número de nodos 
en cada lado. Estos elementos son muy apropiados cuando se desea obtener 
una transición entre elementos de diferente orden, lo que permite estudiar 
grados de precisión diferentes en distintas secciones de un problema de 
grandes dimensiones. En la Figura 7.11 se representan las funciones de forma 
necesarias para una transición cúbico/lineal. El empleo de tales elementos 
mixtos se introdujo originalmente según la referencia 9, pero la formulación 
más sencilla utilizada aquí corresponde a la referencia 7. 

Disponiendo ya de un procedimiento para generar las funciones de 
forma adecuadas a esta clase de elementos, es evidente de inmediato que 
se necesitarán ahora menos grados de libertad para un polinomio completo 
dado, tín la Figura 77T2~se muestra este hecho para un elemento cúbico, 
donde sólo aparecen dos términos adicionales (comparados con los seis que 
aparecían en un elemento lagrangiano del mismo grado). 

Se aprecia de inmediato, sin embargo, que las funciones generadas sólo 
por nodos laterales no generarán polinomios completos de grado superior a 
tres. Para grados más elevados será necesario complementar el polinomio con 
nodos interiores (tal como se hizo con el elemento cuártico de la Figura 7.9), o 
mediante el empleo de variables "anodales" (que se examinarán en la sección 
siguiente) que contengan los términos polinómicos apropiados. 
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7.7 Eliminación de variables internas antes del ensamblaje. 
Subestructuras 

Los nodos interiores proporcionan las propiedades del elemento de la 
manera habitual (Capítulo 2) 



= K e a € + f* 



(7.25) 



Como a e se puede subdividir en dos partes, una común a otros elementos, a*, 
y la otra que aparece sólo en el propio elemento, a , podemos pues escribir 
inmediatamente 

du dn e _ n 

y eliminar a* del resto de las operaciones. Escribiendo (7.25) en forma 
explícita, tenemos 



dll e 
0a e 

al 6 



ffMíHf} 



(7.26) 



Del segundo sistema de ecuaciones anterior podemos escribir 
? = -(K)- 1 (K eT B e + ?) 



que, tras sustituir, da 



en la cual 



dsi e 



= k*'* 6 + r 



K* e = K e - K^K")" 1 ^ 
f* e = f e - K e (R e ) _1 F 



(7.27) 



(7.28) 



(7.29) 



Se puede ensamblar a continuación toda la región, considerando 
solamente las variables del contorno de los elementos, obteniendo así una 
economía considerable en el proceso de resolución de las ecuaciones a 
expensas de unas cuantas manipulaciones adicionales realizadas a nivel del 
elemento. 

Quizás sea deseable una interpretación estructural de esta eliminación. 
Lo que de hecho está implicado es la separación de una parte de la estructura 
del todo que la rodea y la determinación de su solución separadamente para 
cualesquiera desplazamientos impuestos en los contornos de interconexión. 
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(o) 



(b) 



Figura 7.13 Subestructura de un elemento complejo. 

i 

K* c es ahora simplemente la matriz de rigidez global de la estructura 
separada y f* c el sistema equivalente de fuerzas nodales. 

Si se interpreta la triangulación de la Figura 7.13 como un ensamblaje 
de barras articuladas, el lector reconocerá en seguida el conocido artificio de 
"subestructuración" utilizado con frecuencia en el análisis de estructuras. 

En realidad, dicha subestructura es simplemente un elemento complejo 
del cual se han eliminado los grados de libertad interiores. 

Se presenta inmediatamente una nueva posibilidad para generar 
elementos más elaborados y presumiblemente más precisos. 

Interpretemos la Figura 7.13(o) como un continuo subdividido en 
elementos triangulares. La subestructura resulta ser realmente un elemento 
complejo, con un cierto número de nodos en el contorno que se muestra en 
la Figura 7.13(6). 

La única diferencia con los elementos establecidos en la sección anterior 
es el hecho de que la incógnita u no está ahora aproximada internamente 
por un sistema de funciones de forma continuas, sino por una serie de 
aproximaciones discretas. Esto, presumiblemente, dará por resultado una 
aproximación ligeramente más pobre, pero puede representar una ventaja 
económica si se reduce el tiempo total de cálculo para tal ensamblaje. 

El uso de subestructuras es un artificio importante en problemas 
complejos, especialmente cuando aparece repetición de componentes 
complicados. 




Figura 7.14 Cuadrilátero formado por cuatro triángulos sencillos. 
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En el análisis simple de elementos finitos a pequeña escala se encontró 
que el empleo de elementos triangulares sencillos se mejoraba al utilizar 
subensamblajes simples de triángulos (o, por supuesto, de tetraedros). Por 
ejemplo, se encontró que un cuadrilátero formado por cuatro triángulos 
y con la eliminación del nodo central proporciona una ventaja económica 
sobre el empleo directo de triángulos simples (Figura 7.14). Este y otros 
subensamblajes basados en triángulos han sido estudiados con detalle por 
Doherty et al 10 

7.8 Familia de elementos triangulares 

La ventaja de emplear una forma triangular arbitraria para aproximar 
cualquier contorno ha sido puesta de manifiesto ampliamente en capítulos 
anteriores. Su evidente superioridad sobre formas rectangulares no necesita 
de más consideraciones. El tema de la generación de elementos más 
elaborados necesita de un desarrollo más amplio. 



3 




14 5 2 



Figura 7.15 Elementos de la familia del triángulo: (a) lineal, (6) cuadrático y 
(c) cúbico. 

Consideremos una serie de triángulos engendrados de la manera que se 
indica en la Figura 7.15. El número de nodos de cada miembro de la familia 
es ahora tal que asegura un polinomio completo del grado necesario para la 
compatibilidad entre elementos. Esto se deduce mediante la comparación con 
el triángulo de Pascal de la Figura 7.5, en donde se ve que el número de nodos 
coincide exactamente con el número de términos polinómicos requerido. Esta 
característica especial coloca a la familia del triángulo en una posición de 
particular privilegio, en la que siempre existirán las inversas de las matrices 
C de la Ec. (7. II) 2 . Sin embargo, vuelve a ser preferible la generación directa 
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Figura 7.16 Coordenadas de área. 

de las funciones de forma, y además se demostrará que resulta especialmente 
fácil. 

Antes de proseguir es conveniente definir un sistema particular de 
coordenadas normalizadas para el triángulo. 

7.8.1 Coordenadas de área. Mientras que unos ejes de coordenadas 
cartesianas paralelos a los lados constituyen la elección natural para deducir 
las funciones de forma del rectángulo, en el triángulo éstos no resultan 
cómodos. 

Un sistema de coordenadas cómodo, L ly L 2 y L 3 para un triángulo 1, 2, 
3 (Figura 7.16), se define mediante la siguiente relación lineal entre éstas y 
el sistema cartesiano: 

X = L 1 X l + L 2 X 2 + L3X3 

y = + L 2 y 2 + L 3 y 3 (7.30) 
1 = Xi + L 2 + L 3 

A cada conjunto, Lj, L 2} L 3 (que no son independientes, ya que están 
relacionadas por la tercera expresión), corresponde un único conjunto de 
coordenadas cartesianas. En el punto 1, L\ — 1 y L2 = £3 = 0, etc. Una 
relación lineal entre el nuevo sistema de coordenadas y el cartesiano implica 
que los contornos de L\ son líneas rectas regularmente espaciadas y paralelas 
al lado 2-3 en el que L\ = 0, etc. 

Además es fácil demostrar que otra definición posible de la coordenada 
Li de un punto P es el cociente entre el área del triángulo sombreado y la 
del triángulo completo: 



área P23 
área 123 



(7.31) 
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De aquí el nombre de coordenadas de área. 

Despejando L\, L 2 y L 3 del sistema (7.30), obtenemos 



en la cual 



¿1 
L 3 



A = - det 
2 



a x + b x x + ciy 
2A 

a 2 + b 2 x + c 2 y 
2A 

a 3 + b 3 x + c 3 y 
2A 



(7.32) 



l xi yi 

1 Z2 2/2 

1 x 3 2/3 



área 123 



(7.33) 



ai = x 2 y 3 - x 3 y 2 
bi = 3/2 - 2/3 
Cj = x 3 - x 2 

etc., con permutación cíclica de los índices 1, 2 y 3. 

Vale la pena señalar la coincidencia de estas expresiones con las deducidas 
en el Capítulo 3 [Ees. (3.5b) y (3.5c)]. 

7.8.2 Funciones de forma. Para el primer elemento de la serie [Figura 
7.15(a)], las funciones de forma son sencillamente las coordenadas de área. 
Por consiguiente 



(7.34) 



Lo que es evidente puesto que individualmente cada función toma el valor 
uno en un nodo, cero en los otros y varía linealmente en todo el triángulo. 

Para deducir funciones de forma de otros elementos se puede encontrar 
una sencilla ley de recurrencia. 2 Sin embargo, es muy fácil escribir un 
triángulo arbitrario de orden M de manera similar a como se hizo para el 
elemento triangular de la Sección 7.5. 

Representando un nodo genérico i por tres números /, J y K en 
correspondencia con la posición de las coordenadas ¿2t y podemos 
escribir la función de forma en función de tres interpolaciones de Lagrange 
[véase la Ec. (7.18)]: 



N i = li(L l )t}(L 1 )lHL 9 ) 



(7.35) 



donde lj y etc., viene dado por la expresión (7.18), con L\ en lugar de £, etc. 
Es fácil comprobar que la expresión anterior da 



N{ = 1 en Li = L 1Iy L 2 — L 2Í , L 3 = L 3I 
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Figura 7.17 Elemento triangular general. 

y cero en todos los demás nodos. 

El término de mayor grado del polinomio es 

y como 

I+J+K - M 

el polinomio es, para todos los puntos, de grado M. 

La expresión (7.35) es válida para distribuciones de nodos arbitrarias que 
sigan el modelo de generación de la Figura 7.17 y se simplifica si el espacio 
entre las b'neas nodales es regular (por ej., 1/m). La fórmula fue obtenida 
originalmente por Argyris et al 11 y formalizada de manera diferente por 
otros. 7 ' 12 

Las funciones de forma de los elementos cuadrático y cúbico que se dan 
a continuación pueden ser comprobadas fácilmente por el lector e incluso 
deducir otras sin dificultad para elementos de orden más elevado. 

Triángulo cuadrático [Figura 7.15(6)] 
Para nodos de vértice: 

= (22a - l)L u etc. 

Nodos laterales: 

N A = 4^1,2, etc. (7.36) 

Triángulo cúbico [Figura 7.15(c)] 
Nodos de vértice: 

N 1 = ~(ZL í ~l)(3L 1 -2)L u etc. 

Nodos laterales: 



JV 4 = -X 1 I a (3Zii-l) l etc. (7.37) 
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y para el nodo interior: 

Nuevamente aparece una función "burbuja" que toma valor nulo en los 
contornos y que se empleará en un contexto diferente en el Capítulo 12. 

Fue Veubeke 13 quien primero dedujo el triángulo cuadrático y Argyris 14 
lo utilizó en problemas de tensión plana. 

Guando se trata de calcular las matrices de los elementos resulta a 
menudo que nos encontramos con integraciones sobre la región triangular 
definidas en función de coordenadas de área. En relación con esto es útil 
tomar nota de la siguiente expresión integral exacta: 



ELEMENTOS UNIDIMENSIONALES 

7.9 Elementos lineales 

En esta obra hemos considerado generalmente hasta ahora el continuo 
como bi o tridimensional. Los casos unidimensionales, siendo de una clase 
para la que generalmente se dispone de solución exacta, fueron tratados 
únicamente como ejemplos triviales en el Capítulo 2 y en la Sección 7.2. 
En muchos problemas reales de dos o tres dimensiones, dichos elementos 
aparecen de hecho en combinación con los elementos de continuo más usuales 
por lo que es deseable un tratamiento unificado. En el campo del análisis 
elástico, estos elementos pueden representar barras de armado (problemas 
planos y tridimensionales), o capas finas de material de refuerzo en cuerpos 
de revolución y tridimensionales. En los problemas de campos del tipo que 
se estudian en el Capítulo 10, se pueden considerar como b'neas de fuga en 
un medio poroso de menor conductividad. 

o o o 




Figura 7.18 Elemento unidimensional embutido entre dos elementos 
bidimensionales. 
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Una vez escogida la forma de una función, como la de desplazamientos, 
por ejemplo, para un elemento de esta clase, se pueden determinar sus 
propiedades teniendo en cuenta, no obstante, que las propiedades deducidas, 
tales como deformación, etc., han de considerarse solamente en una 
dimensión. 

En la Figura 7.18 se representa un elemento de esta clase introducido 
entre dos elementos cuadráticos contiguos. Evidentemente, para la 
continuidad de la función todo lo que requiere es una variación cuadrática 
de la incógnita con la única variable f . Así pues, las funciones de forma 
vienen dadas directamente por polinomios de Lagrange como los definidos 
en la expresión (7.18). 

! 

ELEMENTOS TRIDIMENSIONALES 

7.10 Prismas rectangulares. Familia "serendípita" 4,9,15 

De forma muy parecida a la expuesta en las secciones anteriores pueden 
describirse los elementos tridimensionales equivalentes. 

En este caso, para obtener la continuidad entre elementos han de 
modificarse las reglas expuestas previamente. Lo que ha de conseguirse es 
que a lo largo de toda una cara de un elemento los valores nodales definan 
una variación única de la función a determinar. Con polinomios incompletos, 
tal cosa sólo puede asegurarse mediante inspección. 

Una familia de elementos como la representada en la Figura 7.19 es 
precisamente equivalente a la de la Figura 7.9. Utilizando ahora tres 
coordenadas normalizadas y siguiendo la terminología de la Sección 7.6, 
obtenemos las siguientes funciones de forma: 

Elemento "lineal" (8 nodos) 

A r ¿ = |(l+ío)(l+%)(l+Co) (7.39) 

Elemento "cuadrático" (20 nodos) 
Nodos de vértice: 

Ni = |(1 + fo)(l + + CoXío + + ío - 2) (7.40) 
Nodo de arista típico: 

U = o T H = ±1 d = ±i 

N i = \(i-e)(i+T )0 )(i+(o) 

4 

Elemento "cúbico" (32 nodos) 
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Figura 7.19 Prismas rectos de la familia ("serendípita") de nodos en el contorno 
con los elementos de cara y línea correspondientes. 

Nodos de vértice: 

Ni = ¿(1 + £o)(l + *70)(1 + Co)[9« 2 + " 2 + C 2 ) - 19] (7.41) 
Nodo de arista típico: 

d = ±i m = ±i (i = ±i 
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Figura 7.20 Prisma recto de la familia de Lagrange. 



N i = ¿í 1 ~ + 9 ^)(! + 7 ?o)(l + Co) 

04 

Cuando ( — 1 = Co l as expresiones anteriores se reducen a las Ees. (7.22) 
a (7.24). Estos elementos tridimensionales pueden además unirse de manera 
compatible a elementos planos o unidimensionales apropiados, tal como se 
muestra en la Figura 7.19. 

El procedimiento para generar funciones de forma sigue de nuevo el 
descrito en las Figuras 7.10 y 7.11, y nuevamente pueden deducirse elementos 
con distintos grados de libertad a lo largo de las aristas siguiendo los mismos 
pasos. 

El equivalente a un triángulo de Pascal es ahora un tetraedro y además 
podemos observar el pequeño número de grados de libertad adicionales, 
situación que es aún de mayor importancia que en el análisis bidimensional. 

7.11 Prismas rectangulares. Familia de Lagrange 

Las funciones de forma para estos elementos, como el de la Figura 7.20, 
se generarán multiplicando directamente tres polinomios de Lagrange. 
Ampliando la notación de la expresión (7.19), obtenemos ahora 



Ni = Njjk = l?l?l p K 



(7.42) 
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Figura 7.21 La familia del tetraedro: (a) lineal, (6) cuadrático y (c) cúbico. 



para n, m y p subdivisiones a lo largo de cada lado. 

Este elemento fue sugerido por Ergatoudis 5 y elaborado por Argyris et 
al. 6 Todos los comentarios acerca de los nodos interiores y de las limitaciones 
de la formulación efectuados en la Sección 7.5 se pueden aplicar aquí y, en 
general, la aplicación práctica de dichos elementos es ineficiente. 

7.12 Elementos tetraédricos 

La familia tetraédrica representada en la Figura 7.21 exhibe, como era 
de esperar, propiedades similares a las de la familia triangular. 

En primer lugar, en cada caso vuelven a obtenerse polinomios completos 
en tres coordenadas. Después, como las caras se dividen de manera idéntica 
a como se hizo anteriormente con los triángulos, se obtienen en el plano 
de cada cara polinomios del mismo grado en dos coordenadas y por tanto 
queda asegurada la compatibilidad entre elementos. No aparecen términos 
adicionales en el polinomio. 

7.12.1 Coordenadas de volumen. Se introducen de nuevo coordenadas 
particulares definidas por (Figura 7.22): 
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Figura 7.22 Coordenadas de volumen. 



x =LiXi + L 2 x 2 + L 3 x 3 + 

y =Liy x + L 2 y 2 + L 3 y 3 + L A y A 

Z = L\Z\ + ¿2^2 + •í'3 z 3 "f" L A z A 

1 =Lj + I 2 + X 3 + I 4 



(7.43) 



Nuevamente, las recíprocas de las expresiones anteriores nos conducen a 
expresiones del tipo (7.32) y (7.33), pudiendo identificarse las constantes 
en el Capítulo 5 [Ees. (5.5)]. Se puede identificar otra vez el significado de 
las coordenadas como el cociente entre el volumen del tetraedro que tiene un 
vértice en un punto interior P del tetraedro inicial y el volumen total (ver 
Figura 7.22): 



£1 - 



volumen P234 
volumen 1234 ' 



etc. 



(7.44) 



7.12.2 Funciones de forma. Como las coordenadas de volumen varían 
linéalmente con las cartesianas desde el valor uno en un nodo a cero en 
la cara opuesta, las funciones de forma del elemento lineal [Figura 7.21(<z)] 
serán simplemente, 



N x = L 1 N 2 = L 2 , etc. 



(7.45) 
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Las expresiones de las funciones de forma de elementos tetraédricos de 
mayor orden se obtienen de la misma manera que en el caso de los triángulos, 
estableciendo una formulación apropiada del tipo de Lagrange similar a 
la Ec. (7.35). Dejando este punto como ejercicio adecuado para el lector, 
citaremos las que siguen: 

Tetraedro "cuadrático" [Figura 7.21.(6).] 
Nodos de vértice: 

Ni = (2L X - l)L u etc. 

Nodos de arista: 

JV 5 = 4£i£ 2 , etc. 

Tetraedro "cúbico" 
Nodos de vértice: 

jVj = i(3Li - l)(3Ii - 2)L U etc. (7.47) 
z 

Nodos de arista: 

9 

N 5 = -¿i¿ 2 (3£i - 1), etc. 

Nodos laterales: 

Nn = 21L X L 2 L 3 , etc. 
Una fórmula muy útil para la integración es: 

/ / Xol L ° ALCA ^ ^ ^ = (. + ¿ W «+* + »). 6V (7M) 

7.13 Otros elementos tridimensionales sencillos 

Las posibilidades de formas sencillas son mayores, por razones obvias, 
en tres que en dos dimensiones. Una serie de elementos bastante útil puede 
basarse, por ejemplo, en prismas triangulares (Figura 7.23). De nuevo se 
pueden distinguir aquí las variantes de los tipos lagrangianos y serendípitos. 
El primer elemento de ambas familias es idéntico y además sus funciones de 
forma son tan evidentes que no necesitan mayor aclaración. 

Para un elemento "cuadrático" como el presentado en la Figura 7.23(6), 
las funciones de forma son: 

Nodos de vértice L\ = £1 = 1: 

JV, = ^£i(2L, - 1)(1 + <) - - C) (7-49) 



(7.46) 




FUNCIONES DE FORMA 



145 




Figura 7.24 Funciones de forma jerárquicas de forma cuasi-ortogonal y sus 
derivadas. 

Nodos de arista de triángulos: 

N 10 = 2Z 1 £ 2 (1 + C), etc. (7.50) 

Nodos de arista de rectángulos: 

iV 7 = ¿^(1 - < 2 ), etc. 

Estos elementos no son puramente esotéricos, sino que tienen aplicación 
práctica como "relleno" combinados con elementos paralelepípedos de veinte 
nodos. 
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Parte 2. Funciones de forma jerárquicas 

7.14 Polinomios jerárquicos en una dimensión 

Las ideas generales sobre aproximación jerárquica se han introducido en 
la Sección 7.2 en el contexto de sencillos elementos lineales. La generalización 
a formas jerárquicas de mayor orden es también sencilla. Empezaremos 
por un desarrollo unidimensional, que como se ha visto en las secciones 
precedentes proporciona una base para la generación de elementos en dos 
y tres dimensiones. 

Para generar un polinomio de orden p a lo largo de un lado de un 
elemento no es necesario introducir nuevos nodos, sino que se pueden utilizar 
parámetros sin un significado físico obvio. Como se muestra en la Figura 7.24, 
se puede usar un desarrollo lineal expresado en términos de las funciones 
"estándar" N 0 y Ni , y añadir a éstas una serie de polinomios de forma que 
éstos tienen siempre valores nulos en los extremos del dominio (esto es, en 
los puntos 0 y 1). 

Por ejemplo, j>ara obtener una aproximación cuadrática, partiendo de un 
típico elemento unidimensional escribiríamos: 

u = u 0 N 0 + UiJV*! + a 2 N 2 (7.51) 

donde 

ív 0 = -^í w 1 = £±i w, = -(í-ixí+i) ( 7 - 52 ) 

utilizando en lo anterior la coordenada normalizada £ [viz. Ec. (7.17)]. 

Notemos que en este caso el parámetro a 2 sí tiene un significado, ya que es 
la separación de la linealidad de la aproximación ü en el centro del elemento, 
ya que N 2 se ha elegido de forma que tiene valor unidad en dicho punto. 

De forma similar, para un elemento cúbico simplemente tenemos que 
añadir a 3 N 3 al desarrollo cuadrático de la Ec. (7.51), donde N 3 es un 
polinomio cúbico de la forma 

N¡ = a 0 + ai £ + oc 2 C + a¿* (7-53) 

que toma valor nulo en £ = ±1 (esto es, en los nodos 0 y 1). De nuevo existe 
una infinidad de opciones y se puede seleccionar un polinomio que tenga 
valor nulo en el centro del elemento y para el cual dN 3 /d£ = 1 en ese punto. 
Podemos entonces escribir 

JVÍ = €(!-€*) ( 7 - 54 ) 

como la función cúbica con las propiedades deseadas. Ahora el parámetro a 3 
significa la separación de la pendiente en el centro del elemento respecto al 
valor constante de la primera aproximación. 
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Nótese que se puede proceder de forma similar y definir la función 
jerárquica elemental de cuarto orden de la forma 

m = t\i - e) (7.55) 

aunque ahora la interpretación física del parámetro asociado a ésta es más 
difícil (aunque no es estrictamente necesaria). 

Como ya se ha dicho, el conjunto anterior no es único, y existen otras 
muchas posibilidades. Una alternativa práctica es definir las funciones 
jerárquicas de la forma 

í 1... 

p par 

*í(í)= I T ' (7-56) 

p impar 

donde p(> 2) es el grado del polinomio introducido. 16 Esto lleva al conjunto 
de funciones de forma: 

«i = \i? - 1) m = \í? - o 

*í = ¿(í<-d * = ¿«'-o (7 - 57) 

etc. 

Se observa que todas las derivadas de Np de segundo o mayor orden se 
anulan para £ = 0, menos dPNp/d£ p , que es igual a la unidad en ese punto, 
y, por tanto, usando las funciones de forma dadas por la Ec. (7.57) se pueden 
identificar los parámetros de la aproximación como 




dPü 



p>2 (7.58) 

^=0 



Tal identificación tiene un significado físico general, pero no es necesaria 
en forma alguna. 

En elementos en dos y tres dimensiones una sencilla identificación 
de los parámetros jerárquicos en las interfases asegura automáticamente 
continuidad C 0 a la aproximación. 

Come se ha mencionado anteriormente, una forma óptima de funciones 
jerárquicas es aquélla que resulta en un sistema diagonal de ecuaciones. Esto 
puede conseguirse a veces, o al menos, de forma bastante aproximada. 

En los problemas de elasticidad que se han discutido en los capítulos 
precedentes la matriz elemental K e tiene términos de la forma 
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Si el conjunto de funciones de forma tiene los polinomios adecuados 
se puede calcular de tal manera que dichas integrales son nulas si l ^ m, 
entonces se consigue la ortogonalidad y desaparece el acoplamiento entre las 
sucesivas soluciones. 

Un conjunto de polinomios que tiene la propiedad de la ortogonalidad en 
el dominio — 1 < £ < 1 son los polinomios de Legrende Pp(£), y se pueden 
definir las funciones de forma en términos de integrales de estos polinomios. 9 
Definimos el polinomio de Legendre de orden p de la forma 

^=(^2FT|>- 1 > ,,1 ( 7 - 60 > 
e integramos estos polinomios para definir 

a^. = / Wí = (p ^ !2P -i l^rKí 2 - D p 1 ( 7 - 61 > 

La evaluación para cada valor de p da 

N¡ =t 2 -l N¡= 2(e - 0 etc. 

Estos se diferencian de las funciones de forma dadas por la Ec. (7.57) sólo 
en una constante multiplicativa hasta N§, pero para p > 3 las diferencias 
son significativas. El lector puede verificar fácilmente la ortogonalidad de las 
derivadas de dichas funciones, lo cual es muy útil computacionalmente. La 
Figura 7.24 muestra estas funciones y sus derivadas. 

7.15 Elementos jerárquicos en dos y tres dimensiones del tipo 
"rectángulo" o "ladrillo" 

Al derivar las aproximaciones "estándar" de elementos finitos hemos 
mostrado que todas las funciones de forma de la familia de Lagrange se 
pueden obtener de las unidimensionales, mediante sencillas multiplicaciones 
y las de los elementos serendípitos mediante una combinación de tales 
multiplicaciones. La situación es aún más sencilla para los elementos 
jerárquicos. Aquí todas las funciones de forma se puedan obtener mediante 
un sencillo proceso de multiplicación. 

Por ejemplo, en la Figura 7.25 se muestran las funciones de forma de 
un elemento lagrangiano de nueve nodos y las correspondientes funciones 
jerárquicas. Estas últimas no sólo tienen formas más sencillas, sino que 
son más sencillas de calcular, ya que son simples productos de los términos 
lineales y cuadráticos de la Ec. (7.56), (7.57) ó (7.61). Utilizando esta última 
las tres funciones ilustradas son, simplemente 
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(a) Estándar (6) Jerárquica 

Figura 7.25 Funciones de forma estándar y jerárquicas correspondientes al 
elemento lagrangiano cuadrático. 



N, = -(( - l)(v + l)/4 

N 2 = U 2 -l)(v-W (7-62) 

N 3 = u 2 -m 2 -^) 



La distinción entre formas lagrangianas y serendípitas desaparece, ya que 
para estas últimas se omite ahora simplemente la última función de forma. 
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De hecho, ahora es fácil introducir interpolaciones para los elementos 
del tipo ilustrado en la Figura 7.11, en el que se usan diferentes desarrollos 
en lados distintos. Esta característica esencial de los elemento jerárquicos 
se explota en el refinamiento adaptable (véase el Capítulo 14) donde se 
introducen nuevos grados de libertad (o se incrementa el orden polinómico) 
sólo cuando la magnitud del error lo requiere. 

7.16 La familia del triángulo y el tetraedro 16,17 

Una vez más se pueden introducir los conceptos de manipulación en 
función de las coordenadas de área (volumen). 

Volviendo al triángulo de la Figura 7.16 se observa que a lo largo del lado 
1-2, Lz es idénticamente nula y, por tanto, se tiene 



{L x + ¿ 2 )!_ 2 - 1 (7.63) 

Si £, medida a lo largo del lado 1 — 2, es una coordenada adimensional local 
del tipo que hemos usado ai derivar las funciones jerárquicas para elementos 
unidimensionales, se puede escribir 

Li|i_ 2 = ¿(l-0 Li|i-, = |(l + 0 (7.64) 
de donde se sigue que tenemos 



¿ = (£ 2 -£i)i-s 



(7.65) 



Esto sugiere que se pueden generar funciones jerárquicas en el triángulo 
generalizando las fracciones de forma unidimensionales presentadas 
anteriormente. Por ejemplo, utilizando las expresiones de la Ec. (7.56), 
asociamos al lado 1 - 2 el polinomio de grado p(> 2) definido por 



[(¿ 2 -¿ 1 ) P -(¿i+¿ 2 ) P ] 



p par 



- } [(L 2 - L x f - (L 2 - LxKXj + L 2 f- 1 } p impar 



(7.66) 



Se deduce de la Ec. (7.64) que estas funciones de forma son nulas en los 
nodos 1 y 2. Además, se puede demostrar fácilmente que ^*( 1 _ 2 ) sera nu ^ a 
a lo largo de los lados 3 — 1 y 3 — 2 del triángulo, por lo que la continuidad 
Co de la aproximación ü está asegurada. 

Debe notarse que en este caso, para p > 3, el número de funciones 
jerárquicas que surgen de los lados del elemento de esta manera es insuficiente 
para definir un polinomio completo de orden p y deben introducirse funciones 
jerárquicas internas, que son idénticamente nulas en el contorno; por ejemplo, 
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para p = 3 se puede usar la función LiL 2 X 3 , mientras que para p = 4 se 
pueden adoptar las tres funciones adicionales L\L 2 Ls, L\L\Lz¡ L\L 2 L\. 

En la Figura 7.26 se muestran típicas funciones jerárquicas lineales, 
cuadráticas y cúbicas para un elemento triangular. Se pueden generar 
funciones de forma jerárquica similares a partir del conjunto de funciones 
unidimensionales definidas en la Ec. (7.61). Para el caso de tetraedros pueden 
seguirse idénticos procedimientos. 



1 




2 3 
(a) 




2 3 
(b) 



1 




2 3 

(O 



Figura 7.26 Elementos triangulares y funciones de forma jerárquicas asociadas de 
grado (a) lineal, (b) cuadr ático y (c) cúbico. 



7.17 Aproximación global y local por elemento finitos 

El concepto mismo de aproximación jerárquica (en la cual las funciones 
de forma no se ven afectadas por el refinamiento) significa que es posible 
incluir en el desarrollo 
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n 

u = Y,Xi«i (7-67) 
i=l 

funciones N de naturaleza no local. Tales funciones pueden ser, por ejemplo, 
las soluciones exactas de un problema analítico que se parece de alguna 
manera al problema tratado, pero que no satisfacen algunas condiciones de 
contorno o falta de homogeneidad. En este caso, los términos locales, de 
"elementos finitos", serían un procedimiento para corregir esta solución de 
forma que se satisfagan las condiciones reales. El uso de tal aproximación 
global-local fue sugerido por primera vez por Mote, 18 en un problema donde 
los coeficientes de esta función estaban fijados. El ejemplo que se trataba era 
el de un disco giratorio con ranuras (Figura 7.27). La función global conocida 
era la analítica correspondiente a un disco sin ranuras y los elementos finitos 
se añaden localmente para modificar la solución. Otros ejemplos de tales 
soluciones "fijadas" pueden ser las asociadas a cargas puntuales, donde el uso 
de la aproximación global sirve para eliminar la singularidad, mal modelada 
por la discretización. 




Figura 7,27 Algunos posibles usos de aproximación global-local: (a) disco 
rotatorio con ranuras, (6) viga perforada. 



FUNCIONES DE FORMA 



153 



En algunos problemas la propia singularidad es desconocida, y la función 
apropiada puede añadirse con un coeficiente desconocido. 

7.18 Mejora del condicionamiento con formas jerárquicas 

Ya se ha mencionado que las formas jerárquicas redundan en un mejor 
condicionamiento de las ecuaciones, debido a su forma cuasi diagonal. En 
la Figura 7.28 se muestra el "número de condicionamiento" [que es una 
medida de tal diagonalidad y que se define en los textos de algebra lineal (ver 
Apéndice 1)] para un elemento cúbico aislado y para un ensamblaje de cuatro 
elemento cúbicos usando las formulaciones estándar y jerárquicas. El mejor 
condicionamiento de las ecuaciones de rigidez es una ventaja importante de 
tales formas y permite utilizar fácilmente técnicas iterativas de solución. 19 

Elemento simple (reducción del número de condicionamiento = 10.7) 



) 


( 


) 


( 


>— o- 




^max ^rr 


in = 39() 




^m:ix^min ~ 36 



Ensamblaje de 4 elementos 

(Reducción del número de condicionamiento= = 13.2) 




Orden del elemento cúbico 

^) Función de forma estándar 

(b) Función de forma jerárquica 

Figura 7.28 Mejora en el número de condicionamiento (cociente entre el máximo 
y mínimo autovalor de la matriz de rigidez) debido al uso de formas 
jerárquicas (elasticidad isótropa v = 0.15). 
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7.19 Observaciones finales 

Se ha presentado aquí al lector una selección ilimitada de tipos de 
elementos e igualmente existen ilimitadas posibilidades alternativas. 4,9 ¿Qué 
aplicación tienen en la práctica elementos de esta complejidad? Dejando 
aparte al triángulo y al tetraedro, todos los demás elementos quedan 
limitados a situaciones donde la región real tenga tal forma que pueda 
representarse mediante un ensamblaje correcto de prismas rectos. Tal 
limitación sería tan restrictiva que poco objeto práctico hubiera tenido 
deducir tales funciones de forma, a menos que pueda encontrarse alguna 
manera de distorsionar dichos elementos para que se ajusten a contornos 
reales. En realidad existen métodos para ello que se describen en el capítulo 
siguiente. 
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Capítulo 8 



ELEMENTOS TRANSFORMADOS 
E INTEGRACIÓN NUMÉRICA— 
ELEMENTOS "INFINITOS" 
Y "DE SINGULARIDAD" 

8.1 Introducción 

Hemos visto en el capítulo anterior cómo pueden obtenerse algunas 
familias genéricas de elementos finitos. Cada nuevo miembro de la familia 
se caracteriza por un número de nodos progresivamente mayor, lo que 
implica una mayor precisión y presumiblemente que el número de elementos 
necesarios para obtener una solución correcta disminuya rápidamente. Para 
asegurar que con un número pequeño de elementos pueda representarse una 
forma relativamente complicada como las que aparecen más frecuentemente 
en los problemas reales, más que en los teóricos, ya no son suficientes simples 
rectángulos o triángulos. Este capítulo trata, por consiguiente, del tema de 
la transformación de estas formas sencillas en otras de configuración más 
arbitraria. 

Los elementos de los tipos básicos uni, bi y tridimensionales "se 
transformarán" punto por punto en formas distorsionadas como las 
representadas en las Figuras 8.1 y 8.2. 

En dichas figuras se muestra cómo al dibujar en un espacio cartesiano 
x,i/,z la forma distorsionada de las coordenadas f, rj } ( o de las Li, L 2 , L^, 
L4 se obtiene un nuevo sistema de coordenadas curvilíneas. 

No sólo pueden distorsionarse los elementos bidimensionales en otros 
también bidimensionales, sino que además pueden transformarse en otros de 
tres dimensiones, tal como se indica para los elementos planos de la Figura 8.2 
que se distorsionan en figuras tridimensionales. Este principio es aplicable 
con carácter general, con tal que pueda establecerse una correspondencia 
biunívoca entre las coordenadas cartesianas y las curvib'neas, o sea, si pueden 
establecerse relaciones de la forma 

uní?} - 'ID 

Una vez conocidas dichas relaciones entre las coordenadas, es posible 
definir las funciones de forma en coordenadas locales y establecer las 
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propiedades del elemento en el sistema global mediante las transformaciones 
adecuadas. 

En lo que sigue examinaremos en primer lugar la llamada forma 
isoparamétríca de la relación (8.1) que ha encontrado una gran aplicación 
en la práctica. Se ofrecerán los detalles completos de esta formulación, 
incluyendo la determinación de las propiedades de los elementos por 
integración numérica, que como se verá es esencial. 

En la sección final se mostrará que pueden emplearse eficazmente otras 
muchas transformaciones de coordenadas. 

COORDENADAS PARAMÉTRICAS CURVILÍNEAS 

8.2 El empleo de "funciones de forma" para establecer 
transformaciones de coordenadas 

Un método muy conveniente para establecer la transformación de 
coordenadas es emplear las funciones de forma ya deducidas para representar 
la variación de la función incógnita. 

Por ejemplo, si para cada elemento escribimos 



x = N[x x + N 2 x 2 + ■• 



N' { J = 



2/i 



y = Nly 1 + N , 2 y 2 + ... = K' { V* \ = N'y (8.2) 



z = N[z x + N' 2 z 2 + • ■ 



en las que N' son las funciones de forma expresadas en función de las 
coordenadas locales, se dispondrá inmediatamente de una relación de la forma 
requerida. Más aún, los puntos de coordenadas x l5 y x , zi, etc., se encontrarán 
en puntos apropiados del contorno del elemento (ya que por las definiciones 
generales de las funciones de forma sabemos que toman el valor unidad en el 
punto en cuestión y cero en todos los demás). Estos puntos pueden establecer 
nodos "a priori". 



A cada sistema de coordenadas locales corresponderá otro de coordenadas 
cartesianas globales y, en general, sólo uno. Veremos, no obstante, que puede 
surgir falta de unicidad cuando la distorsión sea exagerada. 

La idea de emplear las funciones de forma del elemento para establecer 
coordenadas curvilíneas dentro del campo del análisis por elementos finitos 
parece que fue mencionada originalmente por Taig 1 . En su primera aplicación 
estableció relaciones lineales básicas para un cuadrilátero. Irons 2,3 generalizó 
la idea a otros elementos. 
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Figura 8.3 Dibujo por computador de las coordenadas curvilíneas para elementos 
cúbicos y cuadráticos (distorsión admisible). 

Independientemente, Coons 4 y Forrest 5 establecieron definiciones 
similares como consecuencia de trabajos realizados para idear distintos 
métodos prácticos de generación de superficies curvas de uso en ingeniería 
de proyectos; debido a esta actividad, hoy en día los temas de definición 
de superficies y su análisis están cada vez más unidos. En la Figura 8.3 se 
muestra una distorsión real de elementos basados en los miembros de segundo 
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y tercer orden de la familia "serendípita" . Se observa aquí la existencia de 
una relación bium'voca entre las coordenadas locales (£, r¡) y las globales (x, 
y). Si los puntos fijos son tales que tenga lugar una distorsión exagerada, 
podrá surgir falta de biunicidad de la forma indicada en la Figura 8.4 para 
dos situaciones. En este caso, en puntos interiores del elemento deformado 
están implicados dos sistemas de coordenadas locales, además de que ciertos 
puntos interiores resultan transformados fuera del elemento. Se ha de tener 
especial cuidado para evitar que en la práctica aparezcan distorsiones tan 
considerables. 

En la Figura 8.5 se muestran dos ejemplos de un elemento bidimensional 
(£> VÍ) proyectado en un espacio tridimensional (x, j/, z). 

En este capítulo acostumbraremos a referirnos al elemento básico sin 
distorsionar, en coordenadas locales, como "elemento generatriz". 




Figura 8.4 Distorsión inadmisible de elementos dando origen a una transformación 
no bium'voca y "desbordamiento". Elementos cuadráticos y cúbicos. 



En la Sección 8.5 se definirá una cantidad conocida como determinante 
jacobiano. La conocida condición de correspondencia bium'voca punto a 
punto (como la existente en la Figura 8.3, pero no en la 8.4) es que el signo de 
dicha cantidad debe permanecer constante en todos los puntos del dominio 
transformado. 
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Puede demostrarse que en una transformación paramétrica basada en 
funciones de forma bilineales, la condición necesaria es que ningún ángulo 
interior [como a en la Figura 8.6(a)] sea mayor de 180 o . 6 En transformaciones 
basadas en funciones cuadráticas de tipo "serendípito" es necesario además 
que los nodos laterales se encuentren en la "mitad central" de la distancia 
entre vértices adyacentes 7 , aunque situarlos en el "tercio central" mostrado 
en la Figura 8.6 es más seguro. Cuando se usen funciones cúbicas tales 




Figura 8.5 (cont.). 
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a < 180° 



(a) Elemento lineal 




para el punto medio 

Figura 8.6 Reglas para la unicidad de las transformaciones (a) y (6). 

reglas generales son impracticables y es preciso comprobar numéricamente 
el signo del determinante jacobiano. En la práctica basta generalmente con 
una distorsión cuadrática. 

8.3 Conformidad geométrica de los elementos 

A la vez que hemos visto que mediante la transformación de la función de 
forma cada uno de los elementos generatrices se transforma punto por punto 
en una parte del objeto real, es importante que la subdivisión de éste en 
nuevos elementos curvos no deje lagunas. Una posibilidad de tales lagunas 
se indica en la Figura 8.7. 

TEOREMA 1. Cuando dos elementos contiguos están engendrados por 
"elementos generatrices" cuyas funciones de forma satisfacen las condiciones 
de continuidad, los elementos distorsionados serán entonces continuos. 

Este teorema es evidente, ya que en estos casos el criterio de continuidad 
que requiere la unicidad de la función u se sustituye simplemente por el de 
unicidad de la coordenada x, y o z. Como los nodos de elementos contiguos 
tienen las mismas coordenadas la continuidad queda asegurada. 

No es preciso que los nodos de los nuevos elementos distorsionados estén 
únicamente en los puntos donde se definan las funciones de forma. Se pueden 
añadir otros conjuntos de nodos correspondientes en los b'mites de separación, 
o en los contornos. 
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Figura 8.7 Condiciones necesarias de continuidad para la división real del espacio. 

8.4 Variación de la función incógnita en el interior de elementos 
curvilíneos distorsionados. Condiciones de continuidad 

Definida ya la forma del elemento por las funciones de forma N', se ha 
de definir la variación de la incógnita, u, antes de que podamos establecer las 
propiedades de los elementos. Lo más cómodo es expresar dicha variación en 
función de coordenadas curvilíneas locales mediante la expresión habitual 

u = Na e (8.3) 
donde a e representa los valores nodales. 

TEOREMA 2. Si las funciones de forma N empleadas en (8.3) son tales que 
la continuidad de u se mantiene en las coordenadas del elemento generatriz, 
las condiciones de continuidad se satisfarán entonces en los elementos 
distorsionados. 

La demostración de este teorema sigue los mismos razonamientos que el 
de la sección precedente. 

Los valores nodales pueden o no estar asociados a los mismos nodos 
utilizados para definir la geometría del elemento. Por ejemplo, en la 
Figura 8.8 los puntos marcados con círculos son los empleados para definir 
la geometría del elemento. Para definir la variación de la incógnita podrían 
utilizarse los valores de la función en los puntos marcados con cuadrados. 

En la Figura 8.8(a), la geometría y la variación de la función vienen 
definidas por los mismos puntos. Si hacemos entonces 

N = N' (8.4) 

las funciones de forma que definen la geometría y la función son las mismas, 
y los elementos se llaman entonces isoparamétricos. 
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Figura 8.8 Diferentes definiciones de elementos: O Punto de definición de las 
coordenadas. [] Puntos de definición de los parámetros de la función. 
(a) Isoparamétrico, (6) superparamétrico, (c) subparamétrico. 

Podríamos, sin embargo, utilizar solamente los cuatro puntos de los 
vértices para definir la variación de u [Figura 8.8(6)]. Nos referiremos a tal 
elemento como superparamétrico, advirtiendo que la variación de la geometría 
es más general que la de la incógnita real. 

Similarmente, si para definir u introducimos más nodos que los 
empleados para definir la geometría, al elemento resultante lo llamaremos 
subparamétrico [Figura 8.8(c)]. Veremos que estos elementos suelen aparecer 
con mayor frecuencia en la práctica. 

Mientras que para la transformación es apropiado usar las formas 
"estándar" de las funciones de forma, para la interpolación de las incógnitas 
se puede, desde luego, usar las formas jerárquicas definidas en el capítulo 
anterior. De nuevo, las definiciones de variaciones sub o superparámetricas 
son aplicables. 

TRANSFORMACIONES 

8.5 Cálculo de las matrices de los elementos (transformación en 
las coordenadas 77, () 

Para llevar acabo un anáfisis mediante elementos finitos han de 
encontrárselas matrices que definan las propiedades del elemento, ej., rigidez, 
etc. Dichas matrices serán de la forma 
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G dV 



(8.5) 



donde la matriz G depende de N o de sus derivadas respecto a las coordenadas 
globales. Como ejemplo de esto, tenemos la matriz de rigidez 



L 



B T DB dV 



y los vectores de carga asociados 



N T b dV 



(8.6) 



(8.7) 



Para cada clase particular de problemas de elasticidad, las matrices de B 
vienen dadas explícitamente por sus componentes [ véase la forma general de 
las Ees. (3.10), (4.6) y (5.11)]. Refiriéndonos a la primera de ellas, Ec. (3.10), 
válida para problemas planos, se tiene 



dNi 
dx 
0 

dNi 
dy 



0 

8Nj 

dy 

dNi 
dx 



(8.8) 



En problemas de elasticidad, la matriz G es, por consiguiente, función 
de las derivadas primeras de N y ello se produce en muchas otras clases de 
problemas. En todos se necesita continuidad C 0 y como ya hemos señalado 
ésta es satisfecha sin dificultad por las funciones del Capítulo 7, escritas ahora 
en función de las coordenadas curvilíneas. 

Notemos que son necesarias dos transformaciones para evaluar dichas 
matrices. En primer lugar, como Ni se define en función de coordenadas 
locales (curvilíneas), es necesario idear algún procedimiento para expresar 
las derivadas globales del tipo que aparecieron en la Ec (8.8) en función de 
las derivadas locales. 

En segundo lugar, el elemento de volumen (o de superficie) sobre el que 
hemos áe efectuar la integración ha de expresarse en función de coordenadas 
locales cambiando convenientemente los límites de integración. 

Consideremos, por ejemplo, el sistema de coordenadas locales £, 77, ( y 
un sistema correspondiente de coordenadas globales x, y, z. Mediante las 
reglas corrientes de la derivación en cadena podemos escribir, por ejemplo, 
las derivadas con respecto a £ como sigue 



dN i _dN i dx dNidy dNidz 
d( ~ dx d( + dy d£ dz di 



(8.9) 
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Efectuando la misma derivación con respecto a las otras dos coordenadas 
y escribiendo los resultados en forma matricial, tenemos 



' dNi > 




di 




dNi 




dr) 


> = 


dNi 




d( 





dx dy dz 
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. dz t 







(8.10) 



Los términos del primer miembro de la expresión anterior pueden ser 
evaluados, ya que las funciones JV, vienen definidas en coordenadas locales. 
Además, puesto que x, t/, z vienen expresadas en forma explícita por 
la relación que define a las coordenadas curvilíneas [Ec. (8.2)], se puede 
encontrar explícitamente la matriz J en función de las coordenadas locales.. 
Esta matriz se conoce como matriz jacobiana. 

Para encontrar ahora las derivadas globales basta con invertir J y escribir 



(8.11) 



Expresando J en función de las funciones de forma N' que definen la 
transformación de coordenadas (que, como hemos visto, son idénticas a 
las funciones de forma N cuando se emplea la formulación isoparamétrica), 
obtenemos 



' dNi ' 




' dNi ' 


dx 




di 


dNi 




dNi 


dy 
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2. di Vi, 
h. d( - Vi< 



dN[ 
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dN[ 
drj 
dN[ 

d( 1 



dN¡ 

di 
dN' 2 

dN[ 

di 



*ii yu 
*2, yi, 



(8-12) 

Para transformar las variables y la región sobre la cual se efectúa la 
integración seguiremos el procedimiento general, en el que aparece el 
determinante de J. Así, por ejemplo, un elemento de volumen es 



dx dy dz = det J di dr¡ d( 



(8.13) 
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Este tipo de transformación es válido independientemente del número de 
coordenadas utilizado. Para su justificación referimos al lector a los textos de 
matemáticas generales. Una explicación especialmente clara de esto puede 
encontrarse en Murnaghan. 8 f (ver también Apéndice 5). 

Suponiendo que puede encontrarse la inversa de J, hemos reducido ya el 
problema de la evaluación de las propiedades del elemento al de encontrar 
integrales del tipo de las que aparecen en la Ec. (8.5). 

Más expb'citamente, si las coordenadas curvib'neas están normabzadas 
según el tipo de prisma recto, podemos escribir dichas integrales como 

I-i l-i I-i n ' <)d( ¿n d< (814) 

Además, la integración se lleva a cabo en el interior de dicho prisma 
y no en la complicada forma distorsionada, resultando unos h'mites de 
integración mucho más sencillos. De forma similar, en problemas de una 
o dos dimensiones, las integrales resultantes serán de una o dos variables con 
h'mites de integración más sencillos. 

Mientras que en el caso anterior los h'mites de integración son sencillos, 
por desgracia la forma exph'cita de G no lo es. Exceptuando los elementos 
más simples, el proceso de efectuar la integración algebraicamente suele 
sobrepasar nuestras posibilidades matemáticas y ha de recurrirse a la 
integración numérica. Esto, como se verá en secciones siguientes, no es una 
dificultad grave y tiene la ventaja de que evita más fácilmente los errores 
algebraicos, pudiéndose escribir programas generales, no ligados a ningún 
elemento particular, para diversas clases de problemas. De hecho, en tales 
cálculos numéricos nunca se calcula exph'cit amenté la inversa de J. 

8.5.1 Integrales de superficie. En elasticidad y en otras aplicaciones aparecen 
con frecuencia integrales de superficie. Son típicas de estos casos las 
expresiones para calcular la contribución de las fuerzas de superficie al vector 
de fuerzas nodales equivalentes [véase Capítulo 2, Ec. (2.24 b)]: 

f = - j N T t dA 

El elemento dA se encontrará generalmente en una superficie donde una de 
las coordenadas (por ejemplo £) sea constante. 

La forma más conveniente de proceder es considerar que dA es un 

t Él determinante de la matriz jacobiana se conoce sencillamente en la literatura como 
"jacobiano" y suele escribirse 

detJ = W^X) 
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vector orientado en dirección normal a la superficie (ver Apéndice 5). Para 
problemas tridimensionales, formamos un producto vectorial 



dx ^ 






dí 






dy 




dy 


dí 




dr¡ 


dz 




dz 


di 







di dn 



y sustituyendo, integramos en el interior de un dominio 1 < rj < 1. 

En dos dimensiones aparece una longitud dS y en este 
sencillamente 



caso es 



í 5x1 

di 

dS = < - 

dz 
di 



di 



en superficies de 77 constante. 



8.6 Matrices del elemento. Coordenadas de área y volumen 

Las relaciones generales [Ec. (8.2)] de transformación de coordenadas 
y, por supuesto, todos los teoremas siguientes son igualmente válidos para 
cualquier sistema de coordenadas locales y podrían relacionar las coordenadas 
locales Li, L2)») <l ue aparecían con relación a triángulos y tetraedros en el 
capítulo anterior, con las coordenadas cartesianas globales. 

Ciertamente, la mayor parte de lo expuesto en el anterior capítulo es 

de las coordenadas. Sin embargo, surgen dos diferencias importantes. 

La primera se refiere al hecho de que las coordenadas locales no son 
independientes y en realidad son una más que las del sistema cartesiano. La 
matriz J tendría evidentemente forma rectangular y no poseería inversa. La 
segunda es simplemente la diferencia en los h'mites de integración, que tienen 
que corresponder con un elemento "generatriz" triangular o tetraédrico. 

La manera más sencilla, aunque quizás no la más elegante, de sortear 
la primera dificultad es considerar la última variable como dependiente de 
las otras. Así, por ejemplo, podemos introducir formalmente en el caso del 
tetraedro 
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í=x, 



(según la definición del capítulo anterior) y así mantener intacta la Ec. (8.9) 
y todas las demás hasta la Ec. (8.14). 

Como las funciones jVj vienen expresadas en función de Li, L 2 , etc., 
debemos observar que 

8Ni 1 _dN 1 dL 1 dNjdL 2 dNjdL* dNjdL< 
d£ ~ du di + dL 2 di + dL 3 d( + 8L A di { ' } 

Empleando la Ec. (8.15) se obtiene simplemente 

dNj dNj dNj 
di ~ dLi dL 4 

consiguiéndose las otras derivadas como expresiones similares. 

Los límites de integración de la Ec. (8.14) cambian ahora, sin embargo, 
para corresponder con los del tetraedro. En general, 

1 fl-ri fl-v-C_ 

G(Í, V ,0 ^ d V d( (8.17) 



// 7 

7o Jo Jo 



Obviamente se aplicará el mismo procedimiento en el caso de coordenadas 
de área en triángulos. 

Debe señalarse que de nuevo la expresión G precisa integración numérica, 
efectuándose ésta, no obstante, sobre la región generatriz no distorsionada, 
ya sea ésta tetraédrica o triangular. 



Figura 8.9 Prisma triangular distorsionado. 
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Finalmente, debe hacerse notar que cualquiera de los elementos 
estudiados en el capítulo anterior puede sér transformado en formas más 
complejas. En algunos, como el prisma triangular, se utilizan tanto 
coordenadas de área como rectangulares (Figura 8.9). Las observaciones 
acerca de la dependencia de las coordenadas se aplican de nuevo con relación 
al prisma, pero el proceso seguido en la sección presente habrá aclarado el 
procedimiento a seguir. 

8.7 Convergencia de los elementos en coordenadas curvilíneas 

Para considerar los aspectos de convergencia del problema formulado en 
coordenadas curvilíneas conviene volver al punto original de la aproximación, 
donde se definía un funcional de energía II, o una expresión integral 
equivalente (formulación débil), esencialmente mediante integrales de 
volumen similares a la Ec. (8.5), donde el integrando era función de u y 
de sus derivadas primeras. 

Así, por ejemplo, los principios variacionales de tipo energético discutidos 
en el Capítulo 2 (y otros del Capítulo 9) podrían formularse como sigue para 
una función escalar u 

"-¿'(-S'S 1 -")"*^--^ (818) 

La transformación de coordenadas cambia las derivadas de cualquier función 
mediante la relación jacobiana (8.11). Así pues, 



í du 




du 


) ~dx 
\ du 


, =j- 1 (í,'?)' 


al 
du 


[ai t 




dr, 



(8.19) 



pudiéndose expresar simplemente el funcional por una relación de la forma 
(8.18), sustituyendo s, y, etc., por i, r/, etc., manteniendo inalterado el 
máximo orden de diferenciación. 

Inmediatamente se deduce que si se escogen las funciones de forma en 
el espacio de coordenadas curvilíneas de manera que observen las reglas 
habituales de convergencia (continuidad y presencia de polinomios completos 
de primer grado), se producirá entonces convergencia. Más aún, todos los 
razonamientos relativos al orden de convergencia para elementos de lado h 
siguen siendo válidos, con tal que h se exprese en el sistema de coordenadas 
curvilíneas. 

Por supuesto, todo lo dicho anteriormente se aplica a problemas que 
relacionen derivadas de orden más elevado y a la mayoría de transformaciones 
unívocas de coordenadas. Adviértase que el test de la parcela, tal como 
se concibió en el sistema de coordenadas x, y, ... (Capítulos 2 y 11), 
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ya no es aplicable en general y en principio debería aplicarse imponiendo 
campos polinómicos en las coordenadas curvilíneas. En el caso de elementos 
isoparamét ricos (o subparamétricos), la situación es más ventajosa. En 
este caso, un campo lineal (derivada constante según x,y) puede siempre 
reproducirse mediante el desarrollo en coordenadas curvilíneas, y por 
consiguiente tales elementos pasarán el test de la parcela de orden mínimo 
de la forma estándar. 

Para demostrar esto consideremos un desarrollo isoparamétrico estándar 

n 

u = £iV ¿ = Na N = N«,7 7 ,C) (8.20) 

1=1 

con las coordenadas de los nodos definiendo la tranformación 

La cuestión es bajo qué circunstancias es posible que la expresión (8.20) 
defina un desarrollo lineal en coordenadas cartesianas: 

u = ai+a 2 x+a 3 y+a A z = a x +q 2 ^ NjXj+az Y] Njyi+a A NjZj (8.22) 
Si se toma 

«í = oci + a 2 x t + a 3 yi + a 4 Zj 

y se compara Ja expresión (8.20) con Ja (8.22) se observa que se obtiene una 
identidad entre ellas siempre que 

£M = i 

Como éste es el requisito normal para las funciones de forma de los elementos 
estándar [viz. Ec. (7.4)] se puede concluir que el siguiente teorema es válido. 

TEOREMA 3. Todos los elementos isoparamétrico s satisfacen el criterio de 
derivada constante 

Dado que los elementos subparamétricos pueden expresarse como casos 
particulares de la transformación isoparamét rica, este teorema es obviamente 
válido j>ara ellos. 

Tiene interés continuar estas consideraciones y ver bajo qué 
circunstancias se pueden conseguir desarrollos polinómicos de mayor orden 
mediante transformaciones. El sencillo caso lineal en el que se ha 
"adivinado" la solución debe desarrollarse considerando en detalle los 
términos polinómicos que aparecen en expresiones tales como la (8.20) y 
(8.22) y establecer las condiciones en las que se igualan los coeficientes 
adecuados. 
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Nodos transformados 




Figura 8.10 Transformación biüneal de los elementos subparamétricos cuadráticos 
de ocho y nueve nodos. 

Considérese el siguiente problema: las circunstancias bajo las que el 
cuadrilátero de la Figura 8.10, transformado bilinealmente, puede representar 
completamente cualquier desarrollo cuadrático cartesiano. Se tiene 



(8.23) 



y se aesea ser - capaar atr reprtAruvii- 



u = a x + a 2 x + a 3 y + a Á x 2 + a s xy + a 6 y' 



(8.24) 



Puesto que la forma bilineal de N[ contiene términos tales como 1,^,»] y 
£77, lo anterior se puede escribir como 
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donde (3 X a ¡3 9 dependen de los valores de a t a or 6 . 

Se trata ahora de emparejar los términos que provienen de los desarrollos 
cuadráticos de los tipos serendípitos y lagrangianos mostrados en la 
Figura 8.10(6) y (c): 

8 

u = ]T Níoí (8.26a) 
1 
9 

u ~ 12 N ^ (8.26b) 
1 

donde los términos son del tipo definido en el capítulo previo. 

Para el elemento de ocho nodos (serendípito) [Figura 8.10(6)] se puede 
escribir (8.26a) directamente usándolos coeficientes polinómicos 6¿,¿ = 1 — 8, 
en lugar de la variables nodales a¿ de la forma (teniendo en cuanta los 
términos que aparecen en el triángulo de Pascal): 

u = h + b 2 t + b 3 rj + b 4 ? + hir¡ + W + b 7 ín 2 + btfri (8.27) 

Es inmediatamente evidente que para valores arbitrarios de /?i a /3 S 
es imposible emparejar los coeficientes &i a b&, debido a la ausencia del 
término ( 2 rj 2 en la Ec. (8.27). [Sin embargo, si se utilizan expansiones de 
tipo serendípito de mayor orden (cuárticas, etc.) este emparejamiento seria 
evidentemente posible, y se puede concluir que los elementos de la familia 
serendípita de orden cuatro o mayor, linealmente distorsionados, son siempre 
capaces de representar campos cuadráticos.] 

Para el elemento lagrangiano de nueve nodos [Figura 8.10(c)] el desarrollo 
similar a (8.27) es 

u = fex + 6 2 £ + hrj + 6 4 f 2 + • • • + &8¿ 2 »7 + b 9 { 2 V 2 (8.28) 

y el emparejamiento de los coeficientes de las Ees. (8.28) y (8.25) se puede 
hacer directamente. 

Por tanto, se puede concluir que los elementos de nueve nodos representan 
mejor los polinomios cartesianos (cuando están distorsionados linealmente), 
y son preferibles para modelar soluciones "suaves". | En la Figura 8.11 se 
da una prueba de esto. En ella se consideran los resultados de un cálculo 
de elementos finitos, con elementos de ocho y nueve nodos, respectivamente, 
usados para reproducir la solución de una sencilla viga en donde se sabe 
que la respuesta exacta es cuadrática. Sin distorsión ambos elementos 
dan resultados exactos, pero al distorsionarlos sólo el de nueve nodos sigue 
haciéndolo mientras que el de ocho nodos da tensiones muy fluctuantes. 



t Los autores agradecen al Prof. M. Crochet de la Universidad de Lovaina por señalar 
esta sencilla demostración. 
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Figura 8.11 Elementos cuadráticos serendípitos y lagrangianos de ocho y nueve 
nodos en forma regular y distorsionada. Flecha elástica para una viga 
sometida a momento constante. Nótese la pobreza de los resultados 
del elemento de ocho nodos. 
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Razonamientos similares llevan a la conclusión de que en tres dimensiones 
sólo el elemento lagrangiano de 27 nodos es capaz de reproducir exactamente 
polinomios cuadráticos en coordenadas cartesianas cuando está deformado 
linealmente. 

El lector puede extender estos razonamientos a desarrollos de mayor 
orden, por ejemplo, a la modelización de respuestas cúbicas. Una discusión 
completa de tales problemas se puede encontrar en Wachspress. 9 

8.8 Integración numérica unidimensional 

Ya se vio en el Capítulo 4, al tratar un problema relativamente 
sencillo de distribución de tensiones en un cuerpo de revolución con 
elementos triangulares simples, que la integración exacta de las expresiones 
de las matrices de los elementos podría ser dificultosa. Ahora, para 
los más complejos elementos distorsionados, la integración numérica es 
imprescindible. 

Aquí resumiremos algunos fundamentos de la integración numérica, junto 
con tablas de los coeficientes numéricos convenientes. 

Para encontrar numéricamente el valor de la integral de una función de 
una variable puede seguirse uno de varios procedimentos. 10 

8.8.1 Cuadratura de Newton- Cotes.] En el procedimiento más obvio, 
los puntos en los que se precisa el valor de la función se determinan a 
priori — generalmente separados por intervalos iguales — , haciendo pasar un 
polinomio por los valores de la función en esos puntos y procediendo a su 
integración exacta [Figura 8.12(a)]. 

Como "n" valores de la función definen un polinomio de grado n - 1 , el 
error será del orden 0(/i n ), donde h es el tamaño del elemento. Esto conduce 
a la conocida fórmula de la cuadratura de Newton-Cotes. Las integrales 
pueden escribirse 

/= /_ 1 i /(0^ = ¿^*/«*) (8.29) 

para un intervalo de integración entre -1 y +1 [Figura 8.12(a)]. Por ejemplo, 
si n = 2, resulta la conocida regla del trapecio: 

/ = /(-l) + /(l) (8.30) 
para n = 3, obtenemos la regla "del tercio" de Simpson: 

I=\lñ-1) + 4/(0) + /(!)] (8.31) 



f "Cuadratura" es un término análogo al de "Integración numérica" . 
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/ 




0.86114 



Figura 8.12 Integraciones de Newton Cotes (a) y de Gauss (f>). Cada una integra 
exactamente un polinomio de séptimo grado [es decir, con un error 
de 0{h% 



y para n = 4: 



'=¿[/(-l) + 3/(-J)+3/(Í) + /(!)] 



(8.32) 



En el texto de Kopal, 10 pueden encontrarse las fórmulas para los valores 
de n hasta 21. 

8.8.2 Cuadratura de Gauss. Si en lugar de especificar a priori la posición 
de los puntos en los que se precisa el valor de la función hacemos que éstos 
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TABLA 8.1 

ABSCISAS Y COEFICIENTES DE PESO DE LA FÓRMULA DÉ 
LA CUADRATURA DE GAUSS 



i' f(x)dx = f^H i f(a j ) 
J ~ l j=l 



± a 



0-57735 02691 89626 

0-77459 66692 41483 
0 00000 00000 00000 

0-86113 63115 94053 
0 33998 10435 84856 

0-90617 98459 38664 
0-53846 93101 05683 
0-00000 00000 00000 



n= 1 
n = 2 
n = 3 

n = 4 

n = 5 



2 00000 00000 00000 

1 00000 00000 00000 

0-55555 55555 55556 
0-88888 88888 88889 

0-34785 48451 37454 
0-65214 51548 62546 

0-23692 68850 56189 
0-47862 86704 99366 
0-56888 88888 88889 



0-93246 95142 03152 
0-66120 938C4 66265 
0-23861 91860 83197 



017132 
0-36076 
0-46791 



44923 
15730 
39345 



79170 
48139 
72691 



0-94910 79123 42759 
0-74153 11855 99394 
0-40584 51513 77397 
0 00000 00000 00000 



0 12948 
0 27970 
0-38183 
0-41795 



49661 
53914 
00505 
91836 



68870 
89277 
05119 
73469 



0-96028 98564 97536 
0-79666 64774 13627 
0-52553 24099 16329 
0 18343 46424 95650 

0-96816 02395 07626 
0-83603 11073 26636 
0-61337 14327 00590 
0-32425 34234 03809 
0 00000 00000 00000 

0-97390 65285 17172 
0-86560 33666 88985 
0-67940 95682 99024 
0-43339 53941 29247 
0 14887 43389 81631 



n = 9 



n = 10 



010122 
0-22238 
0-31370 
0-36268 

0-08127 
0 18064 
0-26061 
0-31234 
0-33023 

0-06667 
0 14945 
0-21908 
0-26926 
0-29552 



85362 
10344 
66458 
37833 

43883 
81606 
06964 
70770 
93550 

13443 
13491 
63625 
67193 
42247 



90376 
53374 
77887 
78362 

61574 
94857 
02935 
40003 
01260 

08688 
50581 
15982 
09996 
14753 
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se encuentren en puntos que se determinan de manera que se alcance la 
mayor precisión posible, para un número de puntos dado pueden conseguirse 
resultados más exactos. De hecho, si consideramos de nuevo que 

/= //«)áe = ¿J¿/K¿) (8-33) 

y volvemos a suponer una expresión polinómica, es fácil ver que para n puntos 
tenemos 2n incógnitas (H{ y y por tanto se puede construir un polinomio 
de grado 2n — 1 y obtener su integral exacta [Figura 8.12(6)]. El error sería 
así de orden 0{h 2n ). 

Las ecuaciones simultáneas que se manejan son difíciles de resolver, pero 
algo de manipulación matemática demuestra que la solución puede obtenerse 
explícitamente en función de polinomios de Legendre. Por ello, este método 
particular suele ser conocido como cuadratura de Gauss-Legendre. 

En la Tabla 8.1 se muestran las posiciones y los coeficientes de peso para 
la integración de Gauss. 

En el análisis por elementos finitos los cálculos más complicados son los 
relativos a la determinación de los valores de /, que es la función a integrar. 
Por tanto, el procedimiento de Gauss es idealmente el más favorable, puesto 
que requiere un número mínimo de dichas evaluaciones, y a partir de ahora 
será utilizado exclusivamente. 

Pueden deducirse otras expresiones para las funciones integrales del tipo 

/= i' "(0/(0 de = ¿*¿/(fc) (8-34) 
J-i 1 

para formas de w(() preestablecidas, nuevamente integrando un desarrollo 
de /(£) hasta un determinado grado de precisión. 



8.9 Integración numérica en regiones rectangulares o prismáticas 
rectas 

La manera más evidente de calcular la integral 

es calcular primero la integral interior manteniendo r¡ constante, es decir, 

i' /(«,■?) ^ = Y,H j f(í j ,r l ) = rk( V ) (8.36) 
J ~ 1 j=l 

Calculando de igual manera la integral exterior, obtenemos 
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Í tf o 

5 i 6 



Figura 8.13 Puntos de integración para n = 3 en una región cuadrada. (Exacto 
para un polinomio de quinto grado en cada dirección). 

J ~ 1 i=l t=l ;'=1 t=l;=l 



Análogamente, para un prisma recto se obtiene 
•1 /•! rl 



(8.37) 



38) 



/=/ / / /(^,ow=EEEw«/tt^i,w (8 

En las expresiones anteriores se ha supuesto un número igual de puntos 
de integración en cada dirección. Evidentemente ello no es necesario y 
en ocasiones puede ser conveniente utilizar un número diferente en cada 
dirección de integración. 

Es de interés hacer notar que en realidad la suma doble puede 
interpretarse sin dificultad como una sencilla sobre (n x n) puntos en el caso 
de un rectángulo (o n 3 puntos en el caso de un cubo). Así, en la Figura 8.13 
se muestran los nueve puntos que dan por resultado integrales exactas de 
orden 5 en cada dirección. 

Podríamos, sin embargo, abordar el problema directamente y exigir una 
integración exacta de un polinomio de quinto grado en dos direcciones. En 
cada punto de Gauss han de determinarse dos coordenadas y el valor de / 
para introducirlos en una fórmula de ponderación del tipo 

1 = S-i /(e,7?) d( dn = T< wif{ ^ ríi) (8 - 39) 

Resulta que en este caso basta solamente con siete puntos para obtener 
el mismo grado de precisión. Irons 11 ha desarrollado y se han empleado 
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provechosamente 12 algunas fórmulas de este tipo para paralelepípedos 
tridimensionales . 



8.10 Integración numérica en regiones triangulares o tetraédricas 

Para un triángulo, las integrales en función de las coordenadas de área 
son de la forma 

,1 ,1-1! 

I = / / f(L x L 2 L 3 ) dL 2 ¿L x (8.40) 
Jo Jo 

TABLA 8.2 

FÓRMULAS PARA INTEGRACIÓN NUMÉRICA DE TRIÁNGULOS 

„ , _. _ „ Coordenadas _ 
Orden Figura Error Puntos . , Pesos 

Triangulares 


/ 

Lineal A. 


\\ R = 0(h*) a 1,1,1 1 


/ 

Cuadrático / 


\ R=0{k>) b 0,1,1 1 

c \ « §.«>.! 1 


A\ 

/ ° 

Cúbico 


\ 1 1 1 27 

\ a 3 ' 3 ' 3 48 

L r -\ b 0.6, 0.2, 0.2 ) 
T\\ R = 0(h 4 ) c 0.2, 0.6, 0.2 \ || 

d 0.2, 0.2, 0.6 J 


A \ 

Quinto /*V i 


a l,i,l 0.2250000000 

X b Qr„A.Al 

\ R = 0(h 6 ) c 0n<*i,0i \ 0.1323941527 
d A.A.aJ 

— Í\ / V 0.1259391805 
con 

a, = 0.0597158717 
A = 0.04701420641 
a, = 0.7974269853 
A = 0.1012865073 



184 



El Método de los Elementos Finitos 



TABLA 8.3 

FÓRMULAS PARA INTEGRACIÓN NUMÉRICA DE TETRAEDROS 



„. _ _ Coordenadas _ 
Nro. Orden Figura Error Puntos tetra ¿d r i cas Pesos 


1 Lineal / a* 


\ R = 0(h>) a Hl\ 1 


i / 

2 Cuadrático /*>• 

/ ü 
/ • 


v a a,/3,/3,/3 \ 
\ R = 0(h 3 ) b (3,a t (3,p \ 

•7/ d P,p,{3,<* \ 
/ a = 0.58541020 

/?= 0.13819660 


/e 

/ m 

3 Cubico / 


\ 1 1 1 1 4 

\ ° 4' 4> 4' 4 5 

\ h 1 1 1 1 9 
\ 0 2' 6' 6' 6 20 

•\ R - Ofh 4 ) c I I I I -9- 

—y? /I _ uyn ) C 6' 2' 6' 6 20 

• ^ / J 1111 9 
/ a 6' 6» 2' 6 20 

„ 1111 9 
e 6' 6' 6' 2 20 



De nuevo podríamos hacer uso de n puntos de Gauss y llegar a una 
expresión sumatoria como las empleadas en la sección anterior. Sin embargo, 
en los límites de integración aparece ahora la variable misma y es conveniente 
emplear puntos de Gauss especiales para integrales del tipo de la Ec. (8.34), 
en donde w es una función lineal. Dichas fórmulas han sido desarrolladas por 
Radau 13 y utilizadas provechosamente en el campo de los elementos finitos. 14 
Es, sin embargo, mucho más deseable (y estético) hacer uso de fórmulas 
especiales en las que no se dé preponderancia a ninguna de las coordenadas 
naturales L¿. Dichas fórmulas han sido deducidas por Hammer et a/. 15 y 
Felippa 16 y en la Tabla 8.2 17 se da una lista de los puntos de integración y 
sus coeficientes de peso correspondientes. (En la página 184 de la referencia 
6 se ofrece una relación más completa de fórmulas de orden más elevado 
deducidas por Cowper.) 

Se puede obviamente ampliar lo anterior al caso del tetraedro, y en la 
Tabla 8.3 se presentan algunas de las fórmulas correspondientes basadas en 
la referencia 15. 
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8.11 Orden de integración numérica necesario f 

Al sustituir la integración exacta por la numérica se introduce un error 
adicional en los cálculos y a primera vista parece que el mismo debería 
reducirse lo más posible. Es evidente que el coste de la integración numérica 
puede ser de bastante consideración, y en algunos de los primeros programas 
la formulación numérica de las características del elemento representaba un 
tiempo de computador comparable al de la subsiguiente resolución de las 
ecuaciones. Es de interés, pues, determinar: a) los requisitos de integración 
mínimos que permitan convergencia; y b) los requisitos de integración 
necesarios para que se preserve el orden de convergencia que resultaría si 
se efectuara una integración exacta. 

Se verá más adelante (Capítulos 11 y 12) que en realidad el empleo 
de órdenes de integración superiores a los realmente necesarios según b) 
constituye una desventaja segura, puesto que por razones muy claras los 
errores debidos a la discretización y a la integración inexacta se anulan 
mutuamente. 

8.11.1 Orden de integración mínimo para convergencia. En los problemas 
donde la aproximación está definida por el funcional de energía (o su 
equivalente expresión integral de Galerkin) ya se ha establecido que existirá 
convergencia con tal que pueda reproducirse cualquier valor constante 
arbitrario de las derivadas m- simas. En el caso presente m = 1 y se requiere 
por consiguiente que pueda integrarse correctamente un valor constante G en 
integrales dé la forma (8.5). Así pues, para que haya convergencia es preciso 
calcular correctamente el volumen del elemento J v dV . En coordenadas 
curvilíneas podríamos así sostener que J v det| J| d( dr] d( ha de ser calculada 
exactamente. 3,6 

Claramente se podría argüir que incluso esta condición es demasiado 
restrictiva, y que bastaría con calcular correctamente J v d( dr¡ d( para 
conseguir la convergencia. Según esto, basta con cualquier integración cuyo 
error sea del orden 0(h). Se verá que un orden de integración tan bajo suele 
ser impracticable, aunque en realidad ya ha sido empleado en el Capítulo 4 
para problemas de revolución. 

8.11.2 Orden de integración y pérdida de convergencia. En un problema 
genera! ya fiemos encontrado que ía evaluación efe ía energía aproximada 
mediante elementos finitos (y, por supuesto, todas las demás integrales que 
aparecen en una aproximación del tipo de Galerkin, viz. Capítulo 9) era 
exacta hasta el grado 2(p — m), donde p era el grado del polinomio completo 
presente y m el orden de las derivadas que aparecían en las expresiones 
correspondientes . 

f N. del T. El orden de integración se deñne como el número de puntos de integración que se 
toman en cada dirección local del elemento. Una Cuadratura de Gauss de orden n integra 
exactamente un polinomio de grado 2n — 1 en una dirección. 
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Si la integración numérica es exacta para un polinomio de grado 2(p— m), 
o presenta un error igual o menor que 0(/i 2 ( í>-m ) +1 ), no tendrá lugar 
entonces pérdida de convergencia.! Si en coordenadas curvilíneas tomamos 
una dimensión curvilínea de un elemento h la misma regla es aplicable. Para 
problemas de continuidad Cq (o sea, m = 1), las fórmulas de integración 
deben ser como sigue: 

p = 1, elementos lineales 

p = 2, elementos de segundo orden 0(h z ) 

p = 3, elementos de tercer orden 0(h 5 ) 

Más adelante se verá cómo se emplean estos resultados en la práctica, 
pero conviene advertir que para un cuadrilátero o un triángulo lineales basta 
un solo punto de integración. Para cuadriláteros (o paralelepípedos) la 
integración de Gauss 2 x 2 (o 2 x 2 x 2) es lo adecuado, y para triángulos (o 
tetraedros) cuadr áticos son precisas las fórmulas de las Tablas 8.2 y 8.3 para 
tres (y cuatro) puntos. 

Los teoremas fundamentales de esta sección se han presentado y 
demostrado numéricamente en diferentes publicaciones. 18-21 

8.11.3 Singularidad de las matrices debido a la integración numérica. El 
resultado final de toda aproximación mediante elementos finitos en problemas 
lineales es un sistema de ecuaciones de la forma 



Ka + f = 0 (8.41) 

al que se han incorporado las condiciones de contorno y que debe, tras 
despejar los parámetros a, proporcionar una solución aproximada a la 
situación planteada. Si dicha solución es única, como es el caso en los 
problemas reales bien planteados, la matriz K no debe ser singular. Hemos 
supuesto a priori que éste era el caso con la integración exacta, y en general 
así ha ocurrido. En la integración numérica puede presentarse singularidad 
para órdenes de integración bajos, y esto puede hacer que estos órdenes sean 
impracticables. Es fácil demostrar que, bajo ciertas circunstancias, debe 
aparecer singularidad de K, siendo mucho más difícil demostrar lo contrario. 
Nosotros, por consiguiente, nos concentraremos en el primer caso. 

En la integración numérica se sustituyen las integrales por una suma 
ponderada de relaciones lineales independientes entre los parámetros nodales 
a. Estas relaciones lineales proporcionan la única información para construir 
la matriz K. Si el número de incógnitas a es mayor que el de relaciones 
independientes disponibles en todos los puntos de integración, la matriz K 
es entonces singular. 



f Para un piincipio energético el uso de cuadraturas puede implicar la pérdida de 
acotación para ü(a). 
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X Puntos de Integración (3 relaciones independientes) 
o Punto nodal con 2 grados de libertad 




LINEAL CUADRÁTICO 





Grados de Relación 
Libertad Independiente 


Grados de Relación 
Libertad Independiente 


w 


4x2-3=5 > 1x3=3 
singular 


2x8-3 = 13 > 4x3 = 12 
singular 


w 


6x2-3=9 > 2x3=6 
singular 


13x2-3 = 23> 8x3 = 24 


(c) 


25 x 2 - 18 = 32 < 16 x 3 = 48 


48 x 2 = 96 < 64 x 3 = 192 



Figura 814 Comprobación de la singularidad de la matriz en problemas de 
elasticidad bidimensional (a), (b) y (c). 
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Para ilustrar este punto, consideremos problemas de elasticidad 
tridimensional que traten con elementos cuadriláteros lineales y parabólicos 
con cuadraturas de uno y cuatro puntos, respectivamente. 

En tales casos, en cada punto de integración se emplean tres 
"relaciones de deformación" independientes y el número total de relaciones 
independientes es igual a 3 x (número de puntos de integración). El número 
de incógnitas a es simplemente 2 x (número de nodos) menos el número de 
grados de libertad restringidos. 

Se muestran en las Figuras 8.14(o) y (b) un elemento aislado y un 
ensamblaje de dos elementos con las condiciones mínimas de desplazamiento 
en los apoyos que eviten sus movimientos como sólido rígido. Efectuando 
cálculos sencillos se demuestra que sólo es posible eliminar la singularidad en 
el caso de los elementos de segundo orden, y que todos los otros casos son 
estrictamente singulares. 

En la Figura 8.14(c) se consideran mallas superabundantemente 
apoyadas de ambos tipos de elementos, y en este caso las matrices que se 
obtienen para los dos tipos pueden no ser singulares, aunque pueden aparecer 
cuasi-singularidades locales que llevan a resultados no satisfactorios (viz. 
Capítulo 11). 

El lector podría muy bien considerar el mismo ensamblaje, pero 
nuevamente con las condiciones mínimas de ligadura de tres grados de 
libertad en los apoyos. El ensamblaje de elementos lineales con un solo punto 
de integración será singular, mientras que el formado por los de segundo 
orden se comportará correctamente. 

Por la razón recién apuntada, los elementos lineales de un solo punto no 
suelen utilizarse con frecuencia mientras que la cuadratura de cuatro puntos 
es casi universal, hoy en día, para elementos cuadráticos. 

En el Capítulo 11 volveremos al problema de convergencia y se indicarán 
los peligros debidos a las singularidades locales de los elementos. 

Sin embargo, es interesante mencionar que en el Capítulo 12 buscaremos 
de hecho la singularidad con fines especiales siguiendo precisamente los 
mismos razonamientos. 

8.12 Generación de mallas de elementos finitos mediante 
transformaciones. Función de comprobación 

Se habrá observado que es fácil obtener una subdivisión grosera del 
dominio a analizar con un número pequeño de elementos isoparamétricos. 
Si se utilizan elementos de segundo o tercer orden, el ajuste de éstos 
a contornos relativamente complejos es razonable, como se aprecia en la 
Figura 8.15(a), donde se especifica una región dividida mediante cuatro 
elementos cuadráticos. Este número de elementos sería demasiado pequeño 
a efectos de análisis, pero puede efectuarse automáticamente una simple 
subdivisión en elementos más pequeños sin más que, por ejemplo, asignar 
nuevas posiciones de nodos en los puntos centrales de las coordenadas 
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curvilíneas y deducir así un número mayor de elementos similares, tal como 
se muestra en la Figura 8.15(6). Por supuesto, la subdivisión podría llevarse 
a cabo progresivamente para engendrar una región de elementos triangulares. 
El proceso permite, pues, deducir con un número pequeño de datos iniciales 
(input data), una malla de elementos finitos de cualquier refinamiento que se 
desee. En la referencia 22 se desarrolla este procedimiento de generación de 
mallas para sólidos y superficies en dos y tres dimensiones que probablemente 
resulta ser uno de los medios de subdivisión más eficaces. 

La principal desventaja del método de generación sugerido es el hecho 
de que los contornos originalmente circulares de la Figura 8.15(o) están 
aproximados por sencillas parábolas y en ellas puede producirse un error 
geométrico. Para vencer esta dificultad se puede adoptar otro método de 
generación, desarrollado originalmente para representar formas complicadas 
de carrocerías de automóviles. 23,24 En este procedimiento de generación, la 
incógnita u se interpola mediante funciones de composición de manera que se 
satisfagan exactamente sus variaciones a lo largo de los bordes de un dominio 
cuadrado (£, 17). Si en una expresión paramétrica del tipo de la Ec. (8.1) se 
emplean las coordenadas x ey, podrá representarse entonces cualquier región 
compleja mediante un solo elemento. En realidad, así ha sido generada la 
región de la Figura 8.15 23 , habiéndose obtenido directamente una subdivisión 
de la malla sin ningún error geométrico en el contorno. 

Los procedimientos de composición son de importancia considerable y se 
han utilizado para originar algunas familias de elementos interesantes 25 (que 




Figura 8.15 Generación automática de una malla mediante elementos cuadráticos 
isoparamétricos. (a) Especificación de los puntos de la malla. (6) 
Subdivisión automática en elementos isoparamétricos más pequeños. 
(c) Subdivisión automática en triángulos de primer orden. 
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de hecho incluyen los elementos serendípitos como subclase). Para explicar 
el proceso, mostraremos a continuación cómo puede interpolarse una función 
con una variación en el contorno preestablecida. 

Consideremos una región — 1 < r¡ < 1, representada en la Figura 8.16, 
en cuyos bordes se especifica una función <f> [o sea, se dan <¡>(— 1 , 77), ^(1,77), 
y 4>(£>1)}- El problema que se presenta es interpolar una función 
0(^,77) para obtener una superficie alisada que reproduzca exactamente los 
valores de contorno. Escribiendo 

JV'(í) = (l-í)/2 iV 2 (í) = (l + í)/2 , . 

= (1 - r,)l2 JV 2 („) = (l+r,)/2 K ' 

I 

para nuestras habituales funciones lineales de interpolación en una dimensión, 
advertimos que 

P v <f> = N 2 ( V m,l) + N l (ri)4>U,-l) (8.43) 

interpola linealmente las funciones impuestas en la dirección 77, tal como se 
muestra en la Figura 8.16(6). Similarmente, 

P { ¿ = JV'ífMM) + -1) (8.44) 

interpola hnealmente en la dirección £ [Figura 8.16(c)]. Elaborando una 
tercera función que sea una interpolación lagrangiana de tipo lineal, como 
las que ya hemos encontrado con anterioridad [Figura 8.16(¿)], o sea, 



+ ^(í)jvV(-i.i) + N l (()N\ n )4>(-i, -1) 

observamos que 



(8.45) 



<f> = P v <t> + P C <f> - P ( Pr,<t> (8A6) 

es una superficie alisada que interpola exactamente las funciones de contorno. 

La extensión a funciones de orden de combinación más elevado es casi 
evidente, y el método para transformar la región cuadrilateral — 1 < £, 77 < 1 
en cualquier forma arbitraria es obvio inmediatamente. 

8.13 Dominios infinitos y elementos infinitos 

8.13.1 Introducción. En muchos problemas de ingeniería y de la física 
se presentan dominios infinitos o semi-infinitos. Un típico ejemplo de 
mecánica estructural puede ser, por ejemplo, el de excavación tridimensional 
(o axisimétrica) mostrado en la Figura 8.17. Aquí el problema es determinar 
las deformaciones en un semi-espacio semi-infinito debido a la disminución de 
carga con la especificación de desplazamientos nulos en el infinito. Problemas 
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(1, 1) 




Figura 8.16 Etapas de construcción de una interpolación por composición (a), (6), 
(c) y (d). 

similares abundan en electromagnetismo y en mecánica de fluidos, pero la 
situación ilustrada es típica. La cuestión es cómo se puede tratar tales 
problemas con un método de aproximación en que se usan elementos de 
tamaño decreciente en el proceso de modelización. La primera respuesta 
intuitiva es la ilustrada en la Figura 8.17, donde la condición de contorno 
en el infinito se impone en un contorno infinito situado a una distancia 
grande del objeto. Esto, sin embargo, presenta la cuestión de qué es una 
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Figura 8.17 Un dominio semi-infinito. Deformaciones en una cimentación debidas 
a la disminución de carga después de una excavación, (a) Tratamiento 
convencional y (6) uso de elementos infinitos. 

"distancia grande", y obviamente se pueden cometer errores substanciales 
si este contorno se sitúa suficientemente lejos. Por otro lado, llevar este 
contorno excesivamente lejos precisa la introducción de un gran número 
de elementos para modelar regiones de relativamente poco interés para el 
analista. 

Se han propuesto muchos métodos para evitar tales dificultades 
"infinitas". En algunos se usa una sucesión de mallas anidadas y se deriva una 
relación de recurrencia. 26 - 27 En otros, una solución exacta de tipo contorno 
se usa acoplada al dominio de elementos finitos. 28 " Sin embargo, sin duda, 
el tratamiento más efectivo y eficiente es el uso de "elementos infinitos", 30 - 33 ' 
desarrollados originalmente por Bettes. En este proceso los elementos finitos 
convencionales se acoplan a elementos del tipo mostrado en la Figura 8.17(6), 
que modelan de forma razonable el material que se extiende hasta el infinito! 
La forma de tales elementos y su tratamiento se consigue tranformándolos 32 * 33 
en un cuadrado unidad (o en una línea en una dimensión, o en un cubo en 
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tres dimensiones). Sin embargo, es esencial que la secuencia de funciones de 
prueba introducidas en el dominio transformado sea tal que ésta sea completa 
y capaz de modelar el comportamiento real a medida que la distancia radial 
r aumenta. Resulta ventajoso que las funciones de forma puedan aproximar 
una secuencia de la forma decreciente 




(8.47) 



donde C¿ son constantes arbitrarias y r es la distancia radial desde el "foco" 
del problema. 

En la subsección siguiente se introduce una función de forma capaz de 
hacer justamente esto. 

8.13.2 La función de transformación. La Figura 8.18 ilustra los principios de 
generación de la función de tranformación. 

Comenzaremos con una transformación uni dimensional a lo largo de la 
línea CPQ, que coincide con la dirección x. Considérese la siguiente función: 
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y se observa inmediatamente que 

£ = 0 corresponde a x = xq 
* 

£ — 1 corresponde a x = oo 

£ = — 1 corresponde a x — - í — — = i P 

donde es un punto a media distancia entre Q y P. 

Alternativamente la transformación se puede escribir directamente en 
función de las coordenadas de P y Q, o por simple eliminación de xc- Esto 
da, usando la notación anterior 



x = Nqxq + N P xp = 




(8.48b) 



Ambas formas dan una transformación que es independiente del origen 
de la coordenada x, ya que 



Nq + N p = 1 = N c + Nq (8.49) 

El significado del punto C es, sin embargo, de gran importancia. 
Representa el centro en el que se origina la "perturbación" y, como se 
mostrará a continuación, permite que se cumpla el desarrollo de la forma 
de la Ec. (8.47) suponiendo que r se mide desde C. Por tanto 



r = x-x c (8.50) 

Si, por ejemplo, la función incógnita u se aproxima mediante una función 
polinómica usando, digamos, funciones de forma jerárquicas, y dando 

u = a 0 + ctit + CL 2 Í 2 + a 3 £ 3 + • ■ • (8.51) 
se puede resolver fácilmente la Ec. (8.48a) para obtener 

x - x c r 

La substitución en la Ec. (8.51) muestra que se obtiene una serie de la 
forma dada por la Ec. (8.47), con la función lineal en £ correspondiendo a 
los términos 1/r, la cuadrática a 1/t* 2 , etc. 

Por tanto, en una dimensión se han cumplido los objetivos señalados y el 
elemento convergerá a medida que el grado de la serie polinómica, p, aumente. 
Ahora es necesario la generalización en dos y tres dimensiones. Es fácil 
ver que esto puede conseguirse por simples productos de la transformación 
unidimensional infinita con una función de forma de tipo "estándar" en las 
direcciones de 77 (y (), de la forma indicada en la Figura 8.18. 
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Primero, se generaliza la interpolación de las Ees. (8.48) para cualquier 
línea recta en el espacio x,j/,z y se escribe (para una h'nea tal como la 
CijPijQi en la Figura 8.18): 

*=-i4r* + ( 1+ íTíH 

y=-é-( yc > + { 1+ ih) yQi (8 ' 53) 

zc x + ^1 + z Qi ( en tres dimensiones) 



1-í 

Segundo, se completa la interpolación y se transforma todo el dominio 
£r)(() añadiendo una interpolación "estándar" en las direcciones tj((). Por 
tanto, para la interpolación lineal mostrada se puede escribir para el elemento 
PP1QQ1RR1 de la Figura 8.18, 



x = N 1 (rj) 



(8.54) 



y tranformar estos puntos de la manera mostrada. 

De forma similar se pueden usar interpolaciones cuadráticas y 
transformar un elemento como el mostrado en la Figura 8.19 usando funciones 
cuadráticas en 77. 

Por tanto, es una cuestión sencilla crear elementos infinitos y unir éstos 
a una malla de elementos estándar como se muestra en la Figura 8.17(6). El 
lector observará que en la generación de las propiedaddes de tales elementos 
sólo la matriz jacobiano de transformación es diferente de las formas estándar, 
por lo que sólo esto debe ser modificado en programas convencionales. 

El "origen" o "polo" de coordenadas C puede ser fijado arbitrariamente 
por cada h'nea radial, como muestra la Figura 8.18. Esto se hace con 
conocimiento de la solución física esperada. 

En la Figura 8.20 se muestra una solución al problema de Boussineq 
(carga puntual en un semi-espacio elástico). Se comparan los resultados 
usando desplazamientos prescritos o elementos infinitos, y se observan 
diferencias grandes en la solución. En este ejemplo se toma la carga puntual 
como polo de cada elemento por razones obvias. 

La Figura 8.21 muestra cómo elementos infinitos similares (de tipo lineal) . 
pueden dar excelentes resultados, incluso cuando se combinan con muy pocos 
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Figura 8.19 Tranformación de elemento infinito. Interpolación cuadrática en 77. 

elementos estándar. En este ejemplo se usa una solución de la ecuación de 
Laplace para el flujo de un fluido irrotacional (viz. Capítulo 10), y los polos 
de los elementos infinitos se eligen en puntos arbitrarios de la línea central 
del ala. 

Para concluir esta sección destacaremos que el uso de los elementos 
infinitos (y, de hecho, el de cualquier otro elemento finito) debe estar 
respaldado por un conocimiento analítico, y que no pueden esperarse 
"milagros". Por tanto, el usuario no debe esperar, por ejemplo, 
resultados excelentes tales como los mostrados en la Figura 8.20 para los 
desplazamientos de un problema de elasticidad plana. Es "bien sabido" que 
en este caso los desplazamientos para una carga arbitraria que no sea auto- 
equilibrada son infinitos, y los números obtenidos en los cálculos no lo serán. 
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Elemento Elemento estándar 

estándar infinito 




Figura 8.20 Carga puntual en un semi- espacio infinito (problema de Boussinesq). 

Elementos lineales estándar y elementos infinitos (E = l,f = 0.1, 
p=l). 

8.14 Elementos singulares por transformación para mecánica de 
fractura, etc. 

En el estudio de la mecánica de fractura a menudo se centra el 
interés en el punto singular, donde cantidades tales como las tensiones se 
vuelven (matemáticamente, pero no físicamente) infinitas. Cerca de tales 
singularidades las aproximaciones usuales de elementos finitos basadas en 
polinomios se comportan mal, y a menudo se han hecho esfuerzos para 
incluir funciones especiales en un elemento que modelen la función singular 
que se conoce analíticamente. Las referencias [34] a [69] proporcionan 
una extensa revisión bibliográfica del problema y de su solución mediante 
técnicas de elementos finitos. Una alternativa a la introducción de funciones 
especiales dentro de un elemento — que frecuentemente plantea problemas 
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Elementos infinitos 




Figura 8.21 Flujo irrotacional alrededor de la sección de ala NACA00 1 8. 29 (a) 
Malla de elementos isoparamétricos bilineales 'y elementos infinitos. 
(b) Resultados para la velocidad paralela a la superficie. Calculados 
y — analíticos. 

de continuidad con los elementos estándar adyacentes — es el uso de técnicas 
de transformación alternativas. 

Un elemento de este tipo, mostrado en la Figura 8.22(a), fue 
introducido casi simultáneamente por Henshell y Shaw 65 y Barsoum 66 67 para 
cuadriláteros, desplazando simplemente el nodo central de los elementos 
isoparaméricos cuadráticos a una distancia de un cuarto de la longitud del 
lado. 

Se puede demostrar (y se deja este ejercicio para el lector curioso) que 
a lo largo de ios lados del elemento las derivadas jjj (o deformaciones) 
varían según 1 / y/r, donde r es la distancia desde el nodo esquina en el que 
aparece la singularidad. Aunque se pueden obtener buenos resultados con 
tales elementos, la singularidad no queda, de hecho, bien representada en 
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□ -> 

Figura 8.22 Elementos singulares a partir de elementos isoparamétricos 
degenerados (o), (b) y (c). 

líneas que no estén sobre los lados del elemento. Un desarrollo sugerido 
por Hibbitt 68 consigue mejores resutados usando elementos triangulares de 
segundo orden [Figura 8.22(6)]. 

Realmente, el uso de elementos isoparamétaricos distorsionados o 
degenerados no se reduce a las singularidades elásticas. Rice 56 demuestra que 
en el caso de plasticidad se desarrolla una singularidad en la deformación de 
cortante del tipo 1/r y Levi et al.* 9 usan un cuadrilátero lineal isoparamétrico 
para generar una singularidad por el simple método de colapsar dos nodos, 
pero tratando sus desplazamientos independientemente. Una variante de esto 
se debe a Rice y Tracey. 42 

Los elementos que se acaban de describir son evidentemente simples de 
implementar sin cambio alguno en un programa estándar de elementos finitos. 

8.15 Ventajas computacionales de los elementos finitos integrados 
numéricamente 70 

Una ventaja considerable, posible con elementos finitos integrados 
numéricamente, es la versatilidad que puede conseguirse con un programa 
de computador único. 

Se observa que para un tipo de problemas dado, las matrices generales 
tienen siempre la misma forma [ver el ejemplo de la Ec. (8.8)] cuando se 
expresan mediante la función de forma y sus derivadas. 

Para proceder a la evaluación de las propiedades del elemento es 
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necesario: primero, definir la función de forma y sus derivadas; y segundo, 
especificar el orden de integración. 

El cálculo de las propiedades de los elementos se compone, por tanto, de 
tres partes distintas, tal como se muestra en la Figura 8.23. Para un tipo 
de problema dado, sólo es necesario cambiar la definición de las funciones de 
forma para poder usar un número variado de elementos. 



Definición de las 
funciones de forma 



Orden de 
Integración 



Figura 8.23 Esquema de los cálculos para efectuar numéricamente las integrales 
del elemento. 

Inversamente, podrán emplearse las mismas rutinas de las funciones de 
forma en muchas clases diferentes de problemas, tal como se expresan en el 
Capítulo 15. 

Se puede conseguir así con facilidad el uso de» diferentes elementos para 
comprobar la eficacia de un nuevo elemento en un contexto dado, o la 
ampliación de los programas al análisis de nuevas situaciones, evitando 
cálculos algebraicos excesivos (con sus inherentes probabilidades de error). 

El ordenador queda situado así en el sitio que le corresponde, o sea, en 
el de servidor obediente capaz de ahorrarnos trabajos rutinarios. 

La mayor ventaja práctica del empleo de rutinas generales para las 
funciones de forma es que sus errores pueden ser comprobados mediante 
un programa sencillo, con el test de la parcela (véase el Capítulo 11) jugando 
un papel crucial. 

La incorporación a un sistema como éste de elementos sencillos 
integrables exactamente no repercute en gran manera, puesto que los tiempos 
empleados en la integración exacta y en la numérica son, en estos casos, casi 
idénticos. 

8.16 Algunos ejemplos prácticos de análisis bidimensional de 
tensiones 71-77 

En los ejemplos de revolución siguientes se muestran algunas de las 
posibilidades de análisis bidimensional que ofrecen los elementos curvilíneos. 

8.16.1 Disco giratorio (Figura 8.24). En este caso sólo son necesarios 18 
elementos para obtener una solución adecuada. Es de interés observar que 



Formulación 

general 
para un tipo 
particular de 

matriz de 
los elementos 
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Figura 8.25 Depósito de agua cónico. 



202 



El Método de los Elementos Finitos 




Figura 8.26 Lámina semiesf erica delgada con bordes empotrados. Solución con 15 
y 24 elementos cúbicos. 

todos los nodos laterales de los elementos cúbicos se generan dentro de un 
programa y no necesitan ser especificados. 

8.16.2 Depósito de agua cónico (Figura 8.25). En este problema vuelven 
a utilizarse elementos cúbicos. Vale la pena advertir que usando un solo 
elemento para definir el espesor se representan adecuadamente los efectos de 
flexión en ambas zonas, gruesa y delgada, del recipiente. Como ya hemos 
visto, mediante elementos triangulares sencillos hubieran sido necesarias 
varias capas de elementos para obtener una solución adecuada. 

8.16.3 Cúpula semiesférica (Figura 8.26). Las posibilidades de análisis 
de láminas apuntadas en el ejemplo anterior se confirman aún más aquí 
para mostrar cómo un número limitado de elementos puede resolver 
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adecuadamente un problema de láminas delgadas utilizando precisamente 
el mismo programa. Este tipo de solución puede mejorarse todavía desde el 
punto de vista económico, haciendo uso de la conocida hipótesis de la teoría 
de láminas que implica que los desplazamientos varían linealmente a través 
del espesor. Con esto puede reducirse el número de grados de libertad. En 
el segundo volumen de este libro se tratarán métodos de esta clase. 

8.17 Análisis tridimensional de tensiones 

En el análisis tridimensional, como ya se sugirió en el Capítulo 5, los 
elementos más complicados presentan ventajas económicas considerables. 
Se muestran aquí algunos ejemplos representativos en los que se usan casi 
exclusivamente elementos serendípitos cuadráticos. En todos los problemas 
se ha utililzado la integración numérica tomando tres puntos de Gauss en 
cada dirección. 

8.17.1 Esfera giratoria (Figura 8.27). 6 Se comparan en este ejemplo las 
tensiones debidas a la acción centrífuga con sus valores exactos, siendo 
quizás una buena comprobación de la eficacia de los elementos fuertemente 
distorsionados. En este caso se emplean siete elementos y los resultados 
obtenidos exhiben una concordancia razonable con las tensiones exactas. 

8.17.2 Presa bóveda en un valle rígido. Este problema, quizás algo irreal 
desde un punto de vista técnico, fue tema de un estudio llevado a cabo por 
un comité de la Institution of Civil Engineers y proporcionó un excelente 
ensayo de un estudio de la convergencia en análisis tridimensional. En la 
Figura 8.28 se muestran dos subdivisiones en elementos cuadráticos y dos 
en elementos cúbicos. La convergencia de los desplazamientos de la línea 
media se muestra en la Figura 8.29, donde se observa que pueden obtenerse 
resultados bastante precisos, incluso con un solo elemento. 

La comparación de tensiones que aparece en la Figura 8.30 es sumamente 
interesante, aunque presenta una mayor "oscilación" cuando la subdivisión 
es más grosera. Los resultados de la subdivisión más tupida se pueden tomar 
como "exactos", como se comprueba mediante modelos y otros métodos 
alternativos de análisis. 

Los problemas anteriores ilustran la aplicabilidad general y la precisión 
alcanzables. Se incluyen a continuación dos ejemplos más representativos de 
situaciones reales. 

8.17.3 Vasija de presión (Figura 8.31). Análisis de un problema de 
biomecánica (Figura 8.32). Ambos muestran un número de subdivisiones 
suficiente para obtener resultados técnicamente aceptables. La vasija de 
presión, similar a la mencionada en el Capítulo 5, Figura 5.7, muestra cómo 
puede reducirse considerablemente el número de grados de libertad cuando 
se emplean elementos más complejos. 

El ejemplo de la Figura 8.32 muestra una perspectiva de los elementos 





Figura 8.28 Presa bóveda en valle rígido - diferentes subdivisiones en elementos. 
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Compresión Tracción 
Figura 8.30 Presa bóveda en valle rígido - tensiones verticales en la sección media. 
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No. total de elementos = 96 

No. total de nodos =707 

No. total de grados de libertad = 2121 



Figura 8.31 Análisis tridimensional de una vasija de presión. 
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Figura 8.32 Un problema de biomecánica. Solamente se representan los elementos 
lineales; se ha omitido la curvatura de los elementos. Nótese la forma 
degenerada de los elementos. 

empleados, obtenida directamente de los datos del análisis sobre un trazador 
automático. Estos gráficos son muy útiles no sólo para la visualización 
del problema, sino además porque constituyen parte esencial del proceso de 
comprobación de datos, ya que cualquier error geométrico de bulto puede 
descubrirse con facilidad. Asimismo se comprueba automáticamente la 
"conectividad" de todos los puntos especificados. 

La importancia de evitar errores en la entrada de datos en problemas 
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tridimensionales complicados es obvia, considerando su gran gasto de tiempo 
de computador. Éste, y por supuesto otros métodos de comprobación, 76 
deben formar parte esencial de todo sistema de cálculo. 

8.18 Simetría y repetibilidad 

En la mayoría de los problemas expuestos se ha hecho uso de la 
ventaja que proporciona la simetría de las fuerzas actuantes, o de la 
geometría, al imponer las condiciones de contorno, reduciendo así el problema 
completo a proporciones manejables. El empleo de condiciones de simetría 
es tan conocido para ingenieros y físicos que no es preciso plantearlas 
explícitamente. Menos conocido es, sin embargo, el uso de la repetibilidad 79 
cuando la misma carga y la misma estructura se repiten continuamente, tal 
como se muestra en la Figura 8.33 para una cáscada de alabes infinita. Es 
evidente que aquí cada una de las porciones que se representan sombreadas 
se comporta de manera idéntica a la siguiente y, por tanto, se pueden 
identificar fácilmente funciones como velocidades y desplazamientos en los 
puntos correspondientes de A A y BB, es decir, 

u 7 = U/j 

Esta identificación se lleva a cabo directamente en un programa de 
computador. 



Zona de análisis 
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Figura 8.33 Porciones repetidas y zona de análisis (en sombreado). 

En problemas relativos a turbinas o a rodetes de bombas se da 
con frecuencia una repetibilidad similar en coordenadas polares. En la 
Figura 8.34 se muestra un análisis tridimensional típico de una porción 
repetida de este tipo. 
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Figura 8.34 Sector repetitivo en el análisis de un rodete de bomba. 
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Capítulo 9 



GENERALIZACION DE LOS 
CONCEPTOS DE ELEMENTOS 
FINITOS. MÉTODOS DE RESIDUOS 
PONDERADOS Y VARIACIONALES 



9.1 Introducción 

Hemos visto hasta ahora un posible procedimiento para obtener 
soluciones aproximadas a problemas de elasticidad lineal. En ingeniería y en 
física surgen otros muchos problemas de medios continuos que generalmente 

de contorno que se imponen a la función o funciones incógnita. El objeto 
de este capítulo es demostrar que todos los problemas de este tipo pueden 
estudiarse por el método de los elementos finitos. 

El problema a resolver, expresado en la forma más general, es determinar 
una función desconocida u tal que satisfaga un determinado sistema de 
ecuaciones diferenciales 



A(u) = { A 2 (u) = o (9.1) 



en un "dominio" O, ya sea volumen, superficie, etc., (Figura 9.1), junto con 
ciertas condiciones de contorno 




en los contornos V del dominio (Figura 9.1). 

La función buscada puede ser un escalar o bien un vector de varias 
variables. Similarmente, la ecuación diferencial puede ser una sola o un 
sistema de ecuaciones simultáneas. Es por esta razón que se ha recurrido 
antes a la notación matricial. 

Todo cálculo por elementos finitos, siendo un método aproximado, busca 
una expresión aproximada de la solución, de la forma 
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Figura 9.1 Dominio í) y contorno T del problema. 



n 

u « ü = ^ N » a * = Na (9.3) 
i 

en la que N¿ son funciones de forma expresadas en función de variables 
independientes (tales como las coordenadas x, y, etc.), y donde todos o 
algunos de los parámetros a¿ son incógnitas. 

Recordemos que en el capítulo anterior se empleó una aproximación de 
las mismas características para estudiar problemas de elasticidad. Ya se vio 
entonces: a) que las funciones de forma normalmente se definen localmente 
para cada subdominio o elemento, y b) que se recuperan las propiedades de 
los sistemas discretos si las ecuaciones de aproximación se expresan en forma 
integral, como en las ecuaciones (2.22) y (2.26). 

Teniendo esto presente trataremos de expresar la ecuación de la cual 
hayan de obtenerse los parámetros desconocidos a¿ en una forma integral 
tal como 

j Gj(Ú) dü + J gj (Ü) dT = 0 i = 1 a n (9.4) 

donde Gj y gj representan funciones u operadores conocidos. 

Estas formas integrales nos permitirán obtener la aproximación elemento 
por elemento para luego proceder al ensamblaje mediante los procedimientos 
desarrollados en el Capítulo 1 para los sistemas discretos tipo, ya que si las 
funciones Gj y gj son integrables, tendremos 

jí Gj dÜ + j^ gj dT = fj Gj dÜ + Sj ¿r) (9.5) 
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donde Cl e es el dominio por cada elemento y T e la parte correspondiente de 
contorno del mismo. 

Se dispone de dos procedimientos distintos para obtener la aproximación 
en dichas formas integrales. El primero es el método de los residuos 
ponderados (también conocido como método de Galerkin), y el segundo 
consiste en determinar funcionales variacionales y buscar sus valores 
estacionarios. Ambos procedimientos serán tratados sucesivamente. 

Si las ecuaciones diferenciales son lineales, o sea, si podemos escribir (9.1) 
y (9.2) como 

A(u)eeLu + P = 0 enfi (9.6) 
B(u) = Mu + t = 0 en T (9.7) 

el sistema de ecuaciones de la aproximación (9.4) se convierte en un sistema 
de ecuaciones lineales de la forma 



Ka+f=0 (9.8) 

siendo 

m m 

Ko = E K <; * = £«? < 9 - 9 > 

El lector no acostumbrado a la abstracción puede encontrarse confuso 
ahora con relación al significado de los distintos términos. Presentaremos 
entonces algunos sistemas de ecuaciones diferenciales clásicos cuya solución 
buscaremos (y que aclararán un poco más los problemas). 

Ejemplo 1. Ecuaciones de transmisión estacionaria del calor por 
conducción en un dominio bidimensional: 

♦£(*)♦ 

B(<f>)=<t>-<f> = 0 enT¿ (9-10) 

= k^-q = 0 en L 
On 

donde (siendo n la normal a T) tf> = u representa la temperatura, k es 
la conductividad, y <f> y q son los valores de contorno, respectivamente, 
establecidos para la temperatura y el flujo térmico. 

En la ecuación anterior k y Q pueden ser funciones de la posición y, en 
problemas no lineales, de <f> y de sus derivadas. 



Ejemplo 2. Ecuación de la transmisión estacionaria del calor en dos 
dimensiones por conducción y convección: 
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«>=¿(>?*K('g)»2 + -g + «=° <•■■■ 



con las mismas condiciones de contorno que en el ejemplo anterior. Aquí, u y 
v son funciones conocidas de la posición y representan velocidades del fluido 
a través del cual se transfiere el calor. 

Ejemplo 3. Un sistema de tres ecuaciones equivalente al problema del 
Ejemplo 1: 



A(u) 



¿(**x) + ¿(fc*) + Q 
d<f> 



<7y~ 



dy 



(9.12) 



en 0, y 



B(u) = <j> - <j> = 0 en 

= <Zn — <Z = 0 en T q 

donde q n es el flujo normal al contorno. 

Aquí la función incógnita u está representada por el vector 




u = 



Este último ejemplo es típico de la llamada formulación mixta. En 
este tipo de problemas el número de incógnitas independientes que aparecen 
en las ecuaciones puede reducirse siempre mediante operaciones algebraicas 
adecuadas, dejando no obstante un problema resoluble [ej., obteniendo la 
Ec. (9.10) a partir de (9.12) eliminando q x y q y }. 

Si esto no puede hacerse [viz. Ec. (9.10)] se tiene una formulación, 
irreducible. 

Los problemas de forma mixta presentan ciertas complicaciones en su 
solución que serán tratados en el Capítulo 12. 

En el Capítulo 10 volveremos a dar ejemplos detallados dentro de este 
mismo campo, y a lo largo del texto presentaremos otros ejemplos diferentes. 
Éstos tres tipos de problemas nos serán, sin embargo, muy útiles en su forma 
completa o en la reducida a una dimensión (suprimiendo la variación en y) 
para ilustrar los procedimientos que se explican en este capítulo. 
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METODOS DE RESIDUOS PONDERADOS 

9.2 Equivalencia entre las ecuaciones diferenciales y las formas 
integrales o "débiles" 

Como el sistema de ecuaciones diferenciales (9.1) tiene que ser cero en 
todos los puntos del dominio íí, se deduce que 

j v T A(u) dü = j [ Vl Ai(u) + v 2 A 2 (u) + • • •] d(l = 0 (9.13) 

donde 



(9.14) 



es un conjunto de funciones arbitrarias de número igual al de ecuaciones (o 
componentes de u) del problema. 

Esto tiene importantes consecuencias. Puede afirmarse que si (9.1 S) 
se cumple para cualquier v, las ecuaciones diferenciales (9.1) deberán 
satisfacerse en todos los puntos del dominio. La prueba de la validez de 
esta afirmación es obvia si consideramos la posibilidad de que A(u) ^ 0 
en un punto o porción del dominio. Inmediatamente se puede encontrar una 
función v que haga la integral (9.13) distinta de cero, con lo que se demuestra 
lo afirmado. 

Si han de satisfacerse simultáneamente las condiciones de contorno 
(9.12), ello puede asegurarse eligiendo adecuadamente la función ü o bien 
imponiendo que 

J v r B[u) dT = j (v 1 B 1 {u) + v 2 B 2 {u) + • • •] dT = 0 (9.15) 

para cualquier conjunto de funciones v. 
Que la expresión integral 

/ v r A(u)<¿n+ / v T B(u)dr = 0 (9.16) 

se satisfaga para todos los v y v equivale a que satisfagan las ecuaciones 
diferenciales (9.1) y sus condiciones de contorno (9.2). 

En la discusión anterior hemos supuesto implícitamente que es posible 
calcular las integrales que aparecen en la ecuación (9.16). Esto nos restringe 
las posibles familias a las que deben pertenecer las funciones v y u. En 
general trataremos de evitar funciones que hagan infinito algún término del 
integrando. 

Se limita así en la ecuación (9.16) la elección de v y v a funciones finitas 
unívocas sin restringir la validez de las expresiones anteriores. 
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¿Qué restricciones han de imponerse a las funciones u 1} u 2 , etc.? La 
respuesta depende obviamente del orden de las derivadas que aparecen en las 
ecuaciones A(u) [o B(u)]. Consideremos, por ejemplo, una función u que sea 
continua pero cuya pendiente presente alguna discontinuidad en la dirección 
x, tal como se muestra en la Figura 9.2. Imaginemos que la discontinuidad 
se sustituye en una distancia muy pequeña A por una variable continua 
y que estudiamos el comportamiento de sus derivadas. Se ve fácilmente 
que aunque la derivada primera no esté definida, ésta es integrable; sin 
embargo, la derivada segunda tiende a infinito. Esta función sería adecuada 




Figura 9.2 Diferenciación de una función con la primera derivada discontinua 
(continuidad C 0 ). 
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para representar a u si en la ecuación diferencial sólo apareciesen derivadas 
primeras. Se dice que esta clase de funciones son de continuidad Cq. 

De manera similar es fácil ver que si en algún término de A o B aparecen 
derivadas de orden n, la función tendrá que ser tal que sus derivadas sean 
continuas hasta la de orden n — 1 (continuidad C n _i). 

En muchas ocasiones es posible efectuar una integración por partes en la 
ecuación (9.16) y sustituirla por una expresión alternativa de la forma 

/ C(v) T D(u)dO + / E(v) r F(u)<¿r = 0 (9.17) 
Jo Jr 

Ahora las derivadas que aparecen en los operadores de C a F son de menor 
orden que las que aparecen en los operadores A y B. En este caso se necesita 
una continuidad de menor orden al elegir las funciones u al precio de mayor 
orden de continuidad para v y v. 

La expresión (9.17) es ahora más "permisiva" que las Ees. (9.1), (9.2) o 
(9.16) que originalmente expresaban el problema y por ello es llamada forma 
débil de dichas ecuaciones. Es algo sorprendente, sin embargo, el hecho 
de que a menudo dicha forma sea físicamente más realista que la ecuación 
diferencial original, que implicaba un "alisamiento" excesivo de la verdadera 
solución. 

Las expresiones integrales de las formas (9.16) y (9.17) son la base 
de las soluciones aproximadas por elementos finitos, y más adelante serán 
analizadas con más detalle. Antes de ello aplicaremos la nueva formulación 
a un ejemplo. 

9.3 Forma débil de la ecuación de transmisión del calor por 
conducción con condiciones de contorno naturales y forzadas 

Consideremos ahora la expresión integral de la Ec. (9.10). La expresión 
(9.16) se puede escribir así 

(9.18) 

advirtiendo que v y v son funciones escalares y presuponiendo que una de 
las condiciones de contorno, tal como 

<¿-¿ = 0 

se satisface automáticamente mediante la elección adecuada de las 
funciones 4>. 

Ahora podemos integrar por partes la Ec.(9.18) para obtener una forma 
débil similar a la Ec.(9.17). Haremos uso aquí de las fórmulas generales para 
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este tipo de integración (las fórmulas de Green) cuya deducción se expone en 
el Apéndice 6 y que nos serán útiles en muchas ocasiones. 0 sea, 

tí('í)'*-ií(í)M i (íH 
(*S5) **— jí 5 (*SS) ** + Jt-(*S) — 

(9.19) 

Así pues, la Ec. (9.18) quedaría como 

f ídv dé dv dé \ í ( dé dé \ 

- L * s ^d- y k dy- Qv ) dx dy + % vk {/ x n * + dy n y ) dT+ 

+ J r dr = 0 (9 * 20) 

Teniendo en cuenta que la derivada respecto de la normal viene dada por 
dé dé dé ( , 

y, además haciendo 

v = -v (9.22) 

podemos escribir, sin pérdida de generalización (ya que ambas funciones son 
arbitrarias), la ecuación (9.20) como 

/ V T vkV4>dQ- í vQdSl- f vqdT- ( vk^-dT = 0 (9.23) 
donde el operador V es simplemente 




Observemos que: 

o) la variable (¡> desaparece de las integrales sobre el contorno T q y que las 
condiciones de contorno 
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correspondientes al mismo, se satisfacen automáticamente. Tal condición 
se conoce como condición de contorno natural \ y 
b) si <f> se toma de manera que satisfaga las condiciones de contorno forzadas 
^ — ^ = 0, podemos omitir el último término de (9.23) restringiendo la 
elección de las funciones v sólo a aquéllas que den v = 0 en T^. 

La expresión (9.23) es la forma débil de la ecuación de transmisión de 
calor por conducción equivalente a la Ec. (9.17). Admite coeficientes de 
conductividad k discontinuos y una temperatura <f> que exhiba derivadas 
primeras discontinuas (posibilidad real que no admitía la forma diferencial). 

9.4 Aproximación a formulaciones integrales: método de residuos 
ponderados (Galerkin) 

Si para expresar la función incógnita u tomamos una expresión 
aproximada como la (9.3), o sea, 

r 

u « ü = ^ N¿a¿ = Na 
i 

será evidentemente imposible que en el caso más general se satisfagan a la 
vez la ecuación diferencial y las condiciones de contorno. Las expresiones 
integrales (9.16) o (9.17) permiten efectuar una aproximación si, en lugar de 
cualquier función v, tomamos un conjunto finito de funciones preestablecidas 

v = w j v = Wj j = 1 a n (9.24) 

donde n es el número de parámetros incógnita a¿ que entran en el problema 
(n<r). 

Así pues, las ecuaciones (9.16) y (9.17) proporcionan un sistema de 
ecuaciones ordinarias, de las que pueden calcularse los parámetros a. Es 
decir, en el caso de la ecuación (9.16) tendremos el sistema 

J wjA(Na)dfi + J wjB(Na)ár = 0 ; = 1 a n (9.25) 

o bien, de (9.17), 

J C(yvj) Tl D{^B)dü + j E(wj) T F(Na)dr = 0 j = lan (9.26) 

Si tenemos en cuenta que A(Na) representa el residuo o error que se 
obtiene al sustituir la solución aproximada en la ecuación diferencial [y 
B(Na) el residuo obtenido al hacer esta sustitución en las condiciones de 
contorno], la expresión (9.25) será la integral ponderada de tales residuos. Por 
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ello este procedimiento de aproximación puede recibir el nombre de método 
de residuos ponderados. 

Fue Crandall 1 el primero en describir este método de la forma más 
general, señalando las diferentes expresiones con que ha sido utilizado 
desde finales del pasado siglo. Más recientemente, Finlayson 2 ha dado 
una exposición muy completa del mismo. Evidentemente, a efectos 
de ponderación se puede utilizar casi cualquier conjunto de funciones 
independientes w^, dando un nombre diferente a cada proceso de acuerdo 
con la función escogida. Así las funciones usadas más corrientemente son: 

1. Colocación por puntos 3 . 

Wj = Sj } donde Sj es tal que para x ^ Xj\ y 7^ j/j, Wj = 0 pero 
Wj dCl = I (matriz unidad). Este procedimiento equivale simplemente 
a hacer nulo el residuo en n puntos dentro del dominio, resultando 
innecesaria la integración. (w ; es admisible a pesar de que no satisface 
el criterio de integración expresado en la Sección 9.2, en virtud de sus 
propiedades). 

2. Colocación por sub dominios. 4 

w ; - = I en üj y cero en cualquier otro punto. Esencialmente esto hace 
que la integral del error sobre el subdominio especificado del dominio sea 
nula. 

3. Método de Galerkin (Bubnov-Galerkin). 5,6 

W J = ^j' Consiste simplemente en utilizar para la ponderación las 
funciones de forma originales. Como veremos, este método permite 
frecuentemente (pero no siempre) obtener matrices simétricas y por ésta 
y otras razones se adoptará casi exclusivamente para nuestras operaciones 
con elementos finitos. 

La expresión de "residuos ponderados" es muy anterior a la de "método 
de los elementos finitos". Este último emplea principalmente funciones 
definidas localmente (en el elemento) en la aproximación definida por la 
Ec.(9.3), pero los esquemas generales son idénticos. Puesto que el proceso 
conduce siempre a ecuaciones que, debido a su forma integral, permiten 
ser obtenidas como suma de las contribuciones de distintos subdominios, 
agruparemos todas las soluciones aproximadas mediante residuos ponderados 
bajo el nombre de método generalizado de los elementos finitos. Se encontrará 
con frecuencia que es ventajoso utilizar simultáneamente funciones de prueba 
definidas local y "globalmente". 

En matemática los nombres de Petrov- Galerkin 6 están frecuentemente 
asociados con el uso de funciones de ponderación tales que Wj ^ Ny. Es 
importante remarcar que el conocido método de aproximación de diferencias 
finitas es un caso particular de colocación con funciones base definidas 
localmente. 



GENERALIZACIÓN DE LOS CONCEPTOS DE ELEMENTOS FINITOS 225 



9.5 Ejemplos 

Para ilustrar el método de aproximación mediante residuos ponderados 
y su relación con el método de los elementos finitos, consideramos algunos 
ejemplos concretos. 

Ejemplo 1. Ecuación unidimensional de la transmisión del calor por 
conducción (Figura 9.3). El problema a analizar es el de la representación 
unidimensional de la transmisión del calor por conducción (9.10) con 
coeficiente de conductividad unidad (este problema podría igualmente 
representar muy bien otros muchos problemas de la Física, por ejemplo, la 
deformación de una cuerda bajo carga). En este caso, tenemos 

M4>) = ^! + Q = 0 (0<x<L) (9.27) 
dx 

con Q = Q(x) dado por Q = 1 (0 < x < L/2) y Q = 0 (L/2 < x < L). 

Las condiciones de contorno supuestas son simplemente 0=0, para x — 0 y 

x = L. 

En primer lugar, consideramos una solución aproximada en forma de serie 
de Fourier de uno o dos términos, o sea, 

V — «. TTXÍ 7TXÍ /n ^ 

4> « 4> = V oí sen — - N, = sen — - (9.28) 

donde i — 1 e ¿ = 1 y 2. Estas expresiones satisfacen exactamente las 
condiciones de -contorno y son continuas en todo el dominio. Por ello, para 
efectuar la aproximación podemos emplear con la misma validez la Ec.(9.16) o 
la (9.17). Emplearemos la primera, pues permite adoptar distintas funciones 
de ponderación. En la Figura 9.3 se representa el problema y su solución por 
colocación por puntos, por colocación por subdominios y por el método de 
Galerkin. \ 

Puesto que el desarrollo en serie elegido satisface a priori las condiciones 
de contorno no es necesario introducir éstas en la formulación, que 
simplemente viene dada por 



dx = 0 (9.29) 



Dejamos como ejercicio para el lector el desarrollo completo de este 
problema. 

En el campo de los elementos finitos es más interesante el uso de funciones 
definidas a intervalos (o localmente) en vez de funciones definidas globalmente 



| En el caso de colocación por puntos, usando t = 1, £» = L/2, nos encontramos con una 
dificultad acerca del valor de Q, ya que puede tomar los valores cero o uno. En este 
ejemplo hemos tomado el valor 1/2. 
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Figura 9.3 Conducción unidimensional del calor, (a) Solución con un término 
utilizando diferentes procedimientos de ponderación. (6) Solución con 
dos términos utilizando diferentes procedimientos de ponderación. 
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como en la Ec.(9.28). En este caso, para evitar imponer la continuidad de 
las derivadas primeras, emplearemos la expresión equivalente a la Ec. (9. 17), 
que se obtiene integrando por partes la Ec.(9.29). Esto da 



I. 



L \dwj d v-^ 



dx = 0 (9.30) 



Los términos correspondientes al contorno se anulan idénticamente si Wj = 0 
en ambos extremos. 

Las ecuaciones anteriores pueden escribirse así 

Ka + f=0 (9.31) 

! 

donde para cada "elemento" de longitud L e , 

' L ' dwjdNi 



> ¿ Jo dx dx 

/; = -/ WjQ 



dx 

dx 



(9.32) 



manteniéndose las reglas corrientes de la adición, o sea, 

Para el cálculo seguiremos el método de Galerkin, esto es, wj — Nj, y el 
lector observará que entonces la matriz K será simétrica, o sea, K{j — Kj{. 

Puesto que las funciones de forma sólo necesitan la continuidad C 0 , es 
conveniente buscar una solución aproximada lineal por intervalos, tal como 
se muestra en la Figura 9.4. Considerando un elemento típico ij como el 
representado, podemos escribir (trasladando el origen del eje x al punto i) 

Nj=x/L e Ni = (L e -x)/L e (9.34) 
obteniendo, para un elemento cualquiera, 

K ü = Kjj = 1/L e (9.35) 
i) = -QL e /2 = ff 

Dejamos para el lector el ensamblaje de una ecuación típica para el nodo 
i y le aconsejamos que lleve a cabo los cálculos que conducen a los resultados 
de la Figura 9.4 para subdivisiones en dos y tres elementos. 
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h — l' — H 

Funciones de forma lineales definidas localmente 



2-5 r 



I 




Figura 9.4 Solución por elementos finitos mediante el método de Galerkin del 
problema de la Figura 9.3, utilizando funciones de forma lineales 
definidas localmente. 

Al compararlos resultados de las Figuras 9.3 y 9.4 surgen inmediatamente 
varios puntos interesantes. Con funciones de forma globales alisadas, el 
método de Galerkin proporciona mejores resultados de conjunto que los 
obtenidos para el mismo número de parámetros incógnita a con funciones 
definidas localmente (a intervalos). Hallaremos que esto es el caso general 
de las aproximaciones de mayor orden, que producen una mejor precisión. 
Aún más, se observará que la aproximación lineal proporciona la solución 
exacta en los puntos nodales. Esto es una propiedad de la ecuación particular 
resuelta y desafortunadamente no representa una regla general aplicable a 
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los problemas generales 7 (ver también Apéndice 7). Por último, observará 
el lector cuan fácil es formar las ecuaciones cualquiera que sea el grado 
de subdivisión, una vez deducidas las propiedades del elemento [Ec.(9.35)]. 
No ocurre lo mismo si la aproximación es global, siendo entonces preciso 
realizar nuevas integraciones para cada parámetro que se introduce. Esta 
característica de repetibilidad es una de las ventajas del método de los 
elementos finitos. 

Ejemplo t. Transmisión estacionaria del calor en dos dimensiones por 
conducción y convección. Formulación de Galerkin. Este problema ya ha 
sido presentado en la Sección 9.1, y definido mediante la Ec.(9.11) con las 
condiciones de contorno adecuadas. La única diferencia con la ecuación de 
la conducción simple de calor, cuya forma débil ya fue establecida mediante 
la Ec. (9.23), estriba en los términos relativos a la convección. Así pues, 
sustituyendo v = Wj en (9.23) y añadiendo los términos de convección a la 
misma, podemos escribir inmediatamente la ecuación de residuos ponderados. 
Se obtiene así 

j v T wjkV4> da- J wj (^u^ + v ^J dU ~ J u W i® dü ~ J T w 3l dT = 0 

(9.36) 

siendo ^> — ^i^i tal que los valores impuestos de ^ se dan en el contorno 
r = <f> y a la vez Wj = 0 en dicho contorno. 

Estableciendo la aproximación de Galerkin, es decir, haciendo wj — Nj, 
obtenemos inmediatamente un sistema de ecuaciones de la forma 

Ka + f = 0 (9.37) 

donde 

K„ = ¡V^N,kVN t m - J a (N^ + N/-^) <tü = 

-/ n fa" 3? + ) dü (9 - 38a) 

fj = - J NjQdSl - J NjqdT (9.38b) 

De nuevo se pueden evaluar las componentes Kj{ y j{ para un elemento 
o subdominio típicos y formar las ecuaciones de los sistemas mediante los 
procedimientos generales. 

Es importante mencionar en este punto que es preciso prefijar los valores 
de algunos de los parámetros a¿ para que satisfagan las condiciones de 
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contorno, debiendo ser las ecuaciones de la aproximación iguales en número 
a los parámetros incógnita. No obstante esto, es conveniente formar todas 
las ecuaciones para todos los parámetros y establecer los valores fijos al final 
siguiendo las mismas técnicas descritas en el Capítulo 1 para la introducción 
de las condiciones de contorno en los problemas discretos generales. 

Debemos hacer notar otro punto concerniente a los coeficientes de la 
matriz K. La primera parte, que corresponde a la conducción del calor pura 
es simétrica [Kj{ — K¿j), pero la segunda no lo es y por ello es preciso 
resolver un sistema de ecuaciones asimétrico. Existe una razón básica para 
dicha asimetría que será analizada en la Sección 9.11. 

Para concretar el problema, consideremos el dominio Cl dividido en 
elementos cuadrados iguales de lado h (Figura 9.5). Para conservar la 
continuidad Co con nodos situados en los vértices, se pueden escribir 
funciones de forma dadas como productos de desarrollos lineales. Por 
ejemplo, para el nodo i tenemos, tal como se muestra en la Figura 9.5, 



y para el nodo j , 



hh 



(h-x) y 



Con estas funciones de forma se invita al lector a que evalúe las contribuciones 
de cada elemento y a que ensamble las ecuaciones para el punto 1 de la malla 
numerada que se muestra en la Figura 9.5. El resultado será (si no existen 
contornos del tipo T q y se supone que Q es constante dentro de cada elemento) 



(l uh vh\ (\ uh vh\ (\ uh vh\ 
ai "U"^"^J a2 ~U~í^~Í^J a3 "U"6Ík-3ikJ a4 - 
fl , uh vh \ fl uh vh\ (\ uh vh\ 
\3 + 12* " I2k) as " U + 3ib " 6k) a « " U + 12* " 6k) a?_ 

(1 uh vh\ (\ uh vh\ 



Esta ecuación es similar a las que obtendríamos aproximando las mismas 
ecuaciones mediante el método de diferencias finitas 8,9 de una forma bastante 
estándar. En el ejemplo tratado aparecen algunas dificultades cuando 
los términos de convección son grandes; en tales casos, la ponderación 
por el método de Galerkin no es aceptable y tienen que emplearse otros 
procedimientos. Esto se analiza con detalle en el segundo volumen. 
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x 



(a) Funciones de forma para un elemento cuadrado C 0 . 
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(6) Nodos "conectados " por la ecuación del nodo 1. 

Figura 9.5 Elemento cuadrado lineal de continuidad C 0 . (a) Funciones de forma 
para un elemento cuadrado. (6) Ecuación "conectada" para el nodo 1. 

9.6 El principio de los trabajos virtuales como "forma débil" de 
las ecuaciones de equilibrio en el análisis de sólidos y fluidos 

En el Capítulo 2 presentamos el concepto de elemento finito mediante 
su aplicación a la elasticidad, como parte de la mecánica de sólidos. La 
expresión integral necesaria para formular la aproximación era el principio 
de los trabajos virtuales, que se supuso constituía un principio fundamental 
y, por tanto, no necesitaba demostración. Esta opinión es compartida por 
muchos, que consideran el principio de los trabajos virtuales como una 
expresión, dentro del campo de la mecánica, mucho más fundamental que las 
tradicionales condiciones de equilibrio expresadas por las leyes de Newton. 
Otros discrepan de este punto de vista y opinan que todos los teoremas de 
trabajo derivan de las leyes clásicas que gobiernan el equilibrio de la partícula. 
Demostraremos en esta sección que la expresión de los trabajos virtuales no 
es sino una "forma débil" de las ecuaciones de equilibrio. 
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En un continuo tridimensional cualquiera, las ecuaciones de equilibrio de 
un volumen elemental pueden escribirse en función de las componentes del 
tensor de tensiones, simétrico y cartesiano, 10 como sigue 



da xx 


+ 


dr xy 


+ 


dr xz 


dx 




dy 




dz 




+ 


dr yx 
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dTy Z 


dy 




dx 




dz 


do zz 


+ 


dr xz 




dr yz 


dz 


dx 


+ 


dy 



> + 



(9.40) 



donde b r = [b x ,b y ,b z ] representa las fuerzas que actúan por unidad de 
volumen (pudiendo muy bien incluir efectos inerciales). 

En mecánica de sólidos, las seis componentes de la tensión serán 
generalmente funciones de las componentes del desplazamiento 

u T = [u,v,w] (9.41) 

y en mecánica de fluidos lo serán del vector de velocidades u, que tiene 
componentes similares. Así pues, las tres ecuaciones (9.40) se pueden 
considerar como una ecuación general de la misma forma que la (9.1), o 
sea, A(u) = 0. Para obtener una forma débil procederemos como antes, 
introduciendo un vector de funciones de ponderación arbitrario Su, definido 
como 



6u T = [Su, Sv,Sw] 
Podemos escribir ahora la expresión integral Ec.(9.13) como 

d(T x dr X y dr xz 



+Sv(...)+6w(...)jdV 



(9.42) 



(9.43) 



donde el volumen V es el dominio del problema. 

Integrando por partes cada término podemos escribir la ecuación anterior, 
una vez reordenada, como sigue 



- ly[°*Í^ ) + T *v{Í {8u)+ h {SV) ) + - 



Sub x — 6vb v — Swb, 



dV+ 



(9.44) 



+ j [Su(a x n x + r xy n y + r xz n z ) + Sv(. . .) + Sw(. . .)] dT = 0 
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donde la superficie V representa el área de la superficie del sólido (volvemos 
a emplear las fórmulas de Green del Apéndice 6). 

Podemos reconocer inmediatamente en los términos encerrados en el 
primer corchete los operadores de pequeñas deformaciones que actúan sobre 
Su, que pueden asociarse a su vez a un desplazamiento virtual (o a una 
velocidad virtual). Podemos por lo tanto introducir la deformación virtual 
(o velocidad de deformación) que por definición sería 



Se 



d_ 

dx 
d_ 

dy 
d 



(Su) 
(Sv) 
(Sw) 



SSu 



(9.45) 



donde los operadores de deformación se definen en el Capítulo 2 [Ec.(2.4)j. 
Análogamente, reconoceremos los términos de la segunda integral como 
correspondientes a fuerzas t: 



t = [tx,*y,<z] 3 



(9.46) 



que actúan por unidad de área de la superficie T. Disponiendo las seis 
componentes de la tensión en un vector <r y similarmente las seis componentes 
de la deformación virtual (o velocidad de la deformación virtual) en un vector 
Se y podemos escribir la ecuación (9.44) sencillamente así 



j Se T <rdV - J Su T bdV - j Su T t dT 



(9.47) 



que es la expresión de los trabajos virtuales empleada en las Ees. (2. 10) y 
(2.22) del Capítulo 2. 

Se deduce de lo anterior que el principio de los trabajos virtuales es 
precisamente una forma débil de las ecuaciones de equilibrio y es válido 
tanto si las relaciones entre tensiones y deformaciones (o entre tensiones 
y velocidades de deformación) son lineales como no lineales. 

La solución aproximada mediante elementos finitos presentada en* el 
Capítulo 2, corresponde de hecho a una formulación de Galerkin del método 
de residuos ponderados aplicado a la ecuación de equilibrio. Así pues, si 
tomamos Su como la función de forma 

Su = N (9.48) 
con la que el campo de desplazamientos está discretizado, o sea, 

u= (9.49) 
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junto con la relación constitutiva (2.5), nuevamente podremos determinar 
todas las expresiones fundamentales del Capítulo 2, que son tan esenciales 
para la solución de problemas de elasticidad. 

Expresiones similares serán vitales en el momento de formular problemas 
equivalentes en mecánica de fluidos. 

9.7 Discretización parcial 

En la aproximación seguida para resolver la ecuación diferencial 
[Ecs.(9.1)], mediante un desarrollo de la forma general expresada en la 
Ec.(9.3), se ha supuesto que las funciones de forma N incluían todas las 
coordenadas independientes del problema y que a era simplemente un 
conjunto de constantes. Las ecuaciones de la aproximación finales eran 
siempre, por tanto, de forma algebraica, de la cual podía determinarse un 
conjunto de parámetros único. 

En algunos problemas es conveniente proceder de una manera diferente. 
Así, por ejemplo, si las variables independientes son x, y y z podríamos 
expresar los parámetros a como funciones de z y efectuar la aproximación 
solamente en un dominio Í7 de x e y. Así, en lugar de la Ec. (9.3), tendríamos 

u = Na 

N = N(z,y) (9.50) 
a ~ a(z) 

Evidentemente, en la discretización final quedarán las derivadas de a con 
respecto a z y el resultado será un sistema de ecuaciones diferenciales 
ordinarias con z como variable independiente. En problemas lineales tal 
sistema de ecuaciones tendrá el aspecto 

Ka + Cá + ••• + !* = 0 (9.51) 

donde á = ^a(z), etc. 

Tal discretización parcial se puede emplear evidentemente de diferentes 
maneras, pero es especialmente útil cuando el sub dominio ffc no depende de 
z, o sea, cuando el problema es prismático. En tal caso, los coeficientes de la 
ecuación diferencial ordinaria (9.51) son independientes de z y la resolución 
del sistema puede llevarse a cabo eficazmente por los métodos analíticos 
corrientes. 

Este tipo de discretización parcial ha sido aplicado extensamente por 
Kantorovitch 11 y frecuentemente recibe este nombre. En el segundo volumen 
analizaremos estos procedimientos semianah'ticos en relación con los sólidos 
prismáticos, donde la solución final se obtiene en función de series de Fourier. 
El problema "prismático" más corriente es el que incluye el tiempo como 
variable, cuando el dominio fi no está sujeto a cambio. Es conveniente, a 
título de ejemplo, considerar aquí la ecuación de la conducción del calor en 
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dos dimensiones en régimen transitorio. Se obtiene ésta a partir de la Ec. 
(9.10) añadiendo el término que expresa el almacenamiento de calor c^, 
donde c es el calor específico. Tenemos ahora un problema definido en un 
dominio fi(x,y, t) y gobernado por la siguiente ecuación: 

con idénticas condiciones de contorno a las de (9.10). Tomando 

<j> » ¿ = ^2 N iai (9.53) 

con a t = a¿(t) y JV¿ = Ni(x,y) y utilizando el método de Galerkin seguimos 
exactamente los pasos descritos en las Ees. (9.36) a (9.38) para llegar a un 
sistema de ecuaciones diferenciales ordinarias 

Ka + C^ + f = 0 (9.54) 
di 

En este caso, la expresión de es idéntica a la de la Ec. (9.38a) 
(prescindiendo de los términos de convección), la de /¿ es idéntica a la de 
la Ec. (9.38b), y el lector puede comprobar que la matriz C viene definida 
por 



dj = f NicNj 

Jn 



dxdy (9.55) 



Como siempre,- la matriz C puede formarse por ensamblaje de las 
contribuciones de cada elemento. Se pueden aplicar varios procedimientos 
analíticos y numéricos a la solución de tales ecuaciones transitorias, tal como 
se discutirá en el segundo volumen. Sin embargo, para aclarar los detalles y 
las posibles ventajas del proceso de la discretización parcial, consideraremos 
un problema muy sencillo. 

Ejemplo. Consideremos un prisma cuadrangular de lado L en el que 
se satisface la ecuación de conducción del calor en régimen transitorio 
[Ec.(9.52)J y supongamos que la velocidad de producción de calor depende 
del tiempo según 

Q = Q 0 e~ Qt (9.56) 

(esto representa una aproximación a la cantidad de calor generado en la 
hidratación del hormigón). Se supone que para i = 0, <j> = 0 en todo el 
cuerpo. Además, tomaremos <j> = 0 en el contorno para todo instante. 

Como primera aproximación tomamos una función de forma 
correspondiente a una solución con un solo término: 

<f> = Niai 

^ = cosacos ^ (9.57) 
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Aproximación con dos términos 



Aproximación 
con un término 




« = 1 

Q-Qo*~ a ' 
6 = 0, t - 0 



Figura 9.6 Evolución térmica bajo régimen transitorio bidimensional dentro de un 
prisma cuadrangular y representación gráfica de las temperaturas en 
el centro. 

con x e y medidas desde el centro (Figura 9.6). 
Calculando los coeficientes, tenemos 



rL/2 rl 

Cu= / 

J-L/2 J-l 



7T 2 k 
2 



cNl dx dy = 



(9.58) 



-L/2 J-L/2 
>L/2 rL/2 
■L/2 J-L/2 
'L/2 rL/2 
■L/2 J-L/2 

Lo que nos lleva a una ecuación diferencial ordinaria de una sola incógnita d 

da-i 



J-L/2 J-L/2 * 



-at 



dt 



+ K nai +/i =0 



(9.59) 



con ai = 0 cuando t = 0. La solución de ésta se puede obtener fácilmente, tal 
como se muestra en la Figura 9.6 para valores específicos de los parámetros 
a y k/L 2 c. 

En la misma figura se muestra una solución con dos términos, con 
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N 2 = eos — — eos — — (9.0UJ 
L Li 

que el lector puede tratar de determinar para evaluar su comprensión del 
problema. Se ha omitido aquí el segundo término de la serie de Fourier, 
debido a la simetría de la solución. 

Nótese la notable precisión obtenida en este ejemplo mediante la solución 
aproximada con un solo término. 



9.8 Convergencia 

En las secciones anteriores hemos examinado cómo pueden obtenerse 
soluciones aproximadas mediante un desarrollo de la función incógnita 
expresada por ntedio de funciones de prueba o de forma. Más aún, hemos 
establecido las condiciones necesarias que han de satisfacer dichas funciones 
para que puedan calcularse en el dominio distintas integrales. Así, si algunas 
de las integrales contienen sólo valores de Ni o de sus derivadas primeras, 
Ni tendrá que ser de continuidad C 0 . Si contienen derivadas segundas, 
se necesita continuidad d, etc. El problema que todavía no nos hemos 
planteado es el del grado de. bondad de la aproximación y cómo podemos 
mejorarla sistemáticamente para acercarnos más a la solución exacta (ver 
Capítulo 14). La primera pregunta es casi imposible de contestar y presupone 
el conocimiento de la solución exacta. La segunda es más racional y puede 
contestarse si consideramos algún procedimiento sistemático según el cual 
pueda suponerse que tiene lugar el aumento del número de parámetros a en 
el desarrollo estándar de la Ec. (9.3), 

r 

ü = £ N¿a¿ 
i 

En algunos de los ejemplos hemos supuesto, en efecto, una serie de Fourier 
limitada a un número finito de términos, con una expresión única para las 
funciones de prueba en todo el dominio. En este caso, la adición de nuevos 
términos implicaría simplemente una ampliación del número de términos 
de la serie que se incluirían en el análisis, y como las series de Fourier 
presentan la conocida propiedad de representar cualquier función deseada con 
la precisión que se desee sin más que tomar el número de términos necesario, 
podemos decir que la aproximación converge a la solución exacta al aumentar 
el número de términos. 

En otros ejemplos de este capítulo hemos empleado funciones definidas 
localmente, siendo éstas fundamentales en el análisis mediante elementos 
finitos. En este caso hemos supuesto tácitamente que se obtiene convergencia 
al disminuir el tamaño de los elementos y, por consiguiente, al incrementar 
el número de parámetros nodales a. Es este tipo de convergencia el que 
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nos importa, habiendo sido ésta examinada ya en el contexto del análisis de 
sólidos elásticos efectuado en el Capítulo 2 (Sección 2.6). 
Evidentemente tenemos que determinar ahora: 

a) que al aumentar el número de elementos se pueden aproximar las 
funciones incógnita tanto como se desee, y 

b) de qué forma disminuye el error con el tamaño h de las subdivisiones 
del dominio (h podría ser aquí alguna dimensión característica de un 
elemento). 

El primer problema se refiere a estudiar si el desarrollo es completo (en 
el sentido de los términos que contiene), y aquí supondremos que todas las 
funciones de prueba son polinomios (o al menos, que incluyen ciertos términos 
de un desarrollo polinómico). 

Obviamente, como la solución aproximada que aquí se analiza 
corresponde a la expresión integral débil tipificada por las Ees. (9.13) o 
(9.17), es necesario que cada término que aparezca bajo el signo integral 
pueda ser aproximado en el límite tanto como sea posible y, en particular, 
tome un valor constante en una zona infinitesimal del dominio í). 

Si en cualquiera de dichos términos aparece una derivada de orden m, 
será evidentemente necesario, para obtener en el límite dicho valor constante, 
que el polinomio definido localmente sea al menos de grado m. 

Diremos, pues, que una condición necesaria para que el desarrollo sea 
convergente, es el criterio de desarrollo completo: si en la expresión integral 
aparecen derivadas m-ésimas, ha de ser alcanzable un valor constante en 
el dominio del elemento para la derivada m-ésima cuando el tamaño del 
elemento tienda a cero. 

Este criterio se satisface automáticamente si los polinomios que aparecen 
en la función de forma N son completos hasta el grado m-ésimo. Este 
criterio es asimismo equivalente al de deformación constante postulado en 
el Capítulo 2 (Sección 2.5). Sin embargo, esto debe satisfacerse sólo en el 
límite cuando h —* 0. 

Si el grado de un polinomio completo empleado en el desarrollo mediante 
eiementos finitos es p > m, podrá averiguarse el orden de c&nvergencta 
observando la aproximación con la cual dicho polinomio puede seguir el 
desarrollo en serie de Taylor local de la incógnita u. Evidentemente, el 
orden de error será simplemente 0(/t p+1 ) puesto que sólo podemos obtener 
correctamente términos hasta un grado p. 

El conocimiento del orden de convergencia es de gran ayuda para 
averiguar la bondad de la aproximación cuando se estudian diferentes mallas 
de tamaños decrecientes, aunque en el Capítulo 14 se verá que esta velocidad 
asintótica de convergencia difícilmente se alcanza si aparecen singularidades 
en el problema. Una vez más, hemos reestablecido algunas de las condiciones 
que se examinaron en el Capítulo 2. 
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A este nivel no se estudiarán las aproximaciones que no satisfagan las 
condiciones de continuidad postuladas, excepto para hacer la observación 
de que en muchos casos pueden ser convergentes y ciertamente dar mejores 
resultados (véase Capítulo 11). 

En lo anterior nos hemos referido a la convergencia de un tipo de elemento 
dado a medida que el tamaño de éste se reduce. A menudo esto se denomina 
convergencia tipo h. 

Por otro lado, es posible considerar una subdivisión en elementos de un 
tamaño dado y obtener convergencia a la solución exacta incrementando el 
orden p de los polinomios del elemento. A esto se le llama convergencia tipo 
p, que obviamente está asegurada. 

En general, la convergencia tipo p es más rápida por grado de libertad 
introducido. Ambos tipos se discuten más a fondo en el Capítulo 14. 

PRINCIPIOS VARIACIONALES 

9.9 ¿Qué son los "principios variacionales"? 

¿Qué son los principios variacionales y cómo pueden utilizarse para 
determinar soluciones aproximadas a problemas de medios continuos? A 
estas cuestiones están dirigidas las secciones siguientes. 

Definamos primero: un "principio variacional" especifica una cantidad 
escalar (funcional) II, definida por una expresión integral 

n = L F ( u - é u - • •) dn + i E ("• £ u * • • •) dr (9 - 6i) 

en la cual u es la función incógnita y F y E son operadores especificados. La 
solución para el problema del continuo es una función u que hace estacionario 
a II con respecto a variaciones pequeñas Su. Así pues, en el caso de los 
problemas del continuo, la "variación" es 

SU = 0. (9.62) 

Cuando pueda encontrarse un "principio variacional", inmediatamente 
podrán establecerse medios para obtener soluciones aproximadas bajo ia 
forma integral general adecuada para el análisis mediante elementos finitos. 

Suponiendo un desarrollo con funciones de prueba en la forma 
acostumbrada [Ec.(9.3)] 

n 

u « ü = ^ N¿a¿ 
i 

podemos sustituir ésta en la Ec.(9.61) y escribir 
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fTT an an . an . 

SU = —¿ai + ^— Ssl 2 + ...= - — SsL n = 0 
o&i aa 2 Ca n 



(9.63) 



Siendo esto cierto, para cualquier variación ¿a se obtiene un sistema de 
ecuaciones 



an 
a a 



an 
aai 

an 
aa„ 



(9.64) 



de las que podemos determinar los parámetros a t . Estas ecuaciones 
son expresiones integrales similares a las necesarias para la aproximación 
mediante elementos finitos, puesto que la definición inicial de H se dio en 
función de integrales definidas dentro del dominio y en el contorno. 

El proceso de encontrar la estacionaridad respecto a los parámetros a es 
un problema clásico y está asociado a los nombres de Rayleigh 12 y Ritz. 13 
Dicho proceso es de gran importancia en el anáfisis por elementos finitos y 
ha sido identificado por muchos investigadores como "proceso variacional". 

Si el funcional n es de "segundo grado", o sea, si la función u y sus 
derivadas aparecen con exponentes menores o iguales a dos, la ecuación (9.64) 
se reducirá a una expresión lineal del tipo general similar a la Ec.(9.8), es 
decir, 



f^Ka + f = 0 
aa 



(9.65) 



Se demuestra fácilmente que entonces la matriz K será siempre simétrica. 
Para ello consideremos la variación más general del vector dU/da.. Se puede 
escribir ésta así 



/an 
Va a 



_a 
a a 



= K r ¿a 



(9.66) 



donde Kr es generalmente conocida como matriz tangente, teniendo gran 
importancia en los análisis no lineales. Ahora, es fácil ver que 



K T¿. 



a 2 n 



Ki 



(9.67) 



Por consiguiente, es simétrica. 
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Para un funcional de segundo grado se obtiene, de la ecuación (9.65), 

6 (^j = K¿a o K = K r (9.68) 

y, por tanto, existiría simetría. 

El hecho de que aparezcan matrices simétricas siempre que exista un 
principio variacional es una de las ventajas más importantes del empleo de 
procedimientos variacionales para la discretización. Sin embargo, a menudo 
surgen formas simétricas directamente a partir del método de Galerkin. En 
tales casos se concluye que el principio variacional existe, pero no es preciso 
usarlo directamente. 

¿Cómo se presentan entonces dichos principios variacionales? ¿Es 
siempre posible construir uno para problemas continuos? 

Para responder a la primera pregunta advirtamos que con frecuencia 
los aspectos físicos del problema pueden expresarse directamente en forma 
variacional. Teoremas como el de la minimización de la energía potencial 
total para el equilibrio de los sistemas mecánicos, el principio de mínima 
disipación de la energía en fluidos viscosos, etc., pueden ser conocidos del 
lector y son considerados por muchos como las bases de la formulación. Ya 
hemos hecho referencia anteriormente al primero de dichos principios en la 
Sección 2.4 del Capítulo 2. 

Los principios variacionales de esta clase se llaman "naturales", 
pero desgraciadamente no existen para todos los problemas de medios 
continuos, mientras que sí pueden formularse siempre ecuaciones diferenciales 
perfectamente definidas. 

Sin embargo, hay otra categoría de principios variacionales que podríamos 
denominar "imaginarios". Tales principios imaginarios se pueden construir 
siempre para cualquier problema expresado por ecuaciones diferenciales, 
ya sea aumentando el número de funciones incógnita u, mediante las 
variables adicionales conocidas como multiplicadores de Lagrange, o bien por 
procedimientos que impongan un mayor grado de continuidad, como en los 
problemas de mínimos cuadrados. En las secciones que siguen se discutirán, 
respectivamente, tales principios variacionales "naturales" e "imaginarios". 

Antes de proseguir, vale la pena hacer notar que además de que las 
ecuaciones que se obtienen por medios variacionales son simétricas, a veces 
resultan otras ventajas. Cuando son aplicables los principios variacionales 
"naturales" , la cantidad II puede presentar por sí misma un interés especial. 
Si ello es así, el procedimiento variacional preséntala ventaja de que el cálculo 
de dicha cantidad es fácil. 

Observará el lector que si el funcional es de segundo grado y Deva a la 
ecuación (9.65), el "funcional" aproximado II se puede escribir simplemente 
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n = ^a T Ka + a r f (9.69) 

Que esto es cierto puede ser fácilmente comprobado por el lector mediante 
una sencilla diferenciación.! 

9.10 Los principios variacionales "naturales" y su relación con las 
ecuaciones diferenciales del problema 

9.10.1 Ecuaciones de Euler. Si consideramos las definiciones expresadas en 
la Ees. (9.61) y (9.62), observaremos que para hacer el funcional estacionario 
podemos escribir, tras diferenciar, 

¿II = J ¿u T A(u) dü + jf ¿u T B(u) dT = 0. (9.70) 

Como la expresión anterior ha de ser cierta para cualquier variación ¿u, 
deberá ser 

A(u) = 0 en Ü (9.71) 

y 

B(u) = 0 en T 
Si A coincide exactamente con las ecuaciones diferenciales que gobiernan 
el problema y B con sus condiciones de contorno, el principio variacional 
será natural. Las ecuaciones (9.70) y (9.71) son conocidas como las 
ecuaciones diferenciales de Euler que corresponden al principio variacional 
que exige la estacionaridad de II. Es fácil demostrar que para todo 
principio variacional se puede establecer el sistema de ecuaciones de Euler 
correspondiente. Desafortunadamente, la inversa no es cierta y sólo ciertas 
formas de ecuaciones diferenciales son ecuaciones de Euler de un funcional 
variacional. En la sección siguiente consideraremos las condiciones necesarias 
de existencia de principios variacionales y daremos las normas para establecer 
II a partir de un sistema de ecuaciones diferenciales lineales adecuadas. 
En esta sección continuaremos suponiendo que el principio variacional es 
conocido. 

Para ilustrar el procedimiento, consideremos un ejemplo concreto. 
Supongamos que el problema se especifica exigiendo la estacionaridad del 
funcional 

f Obsérvese que 

6n = |¿(a T )Ka + ±a T K¿a + ¿a T f 

Como K es simétrica, 

¿a T Ka = a T K<Sa 

y resulta 

¿n = áa T (Ka + f) = 0 
que es cierto para todo ¿a T y, por tanto, 

Ka + f = 0 
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n =/ n [HS) + H2) -H dft -/ r , #dr (972) 

en el cual k y Q dependen sólo de la posición y 8<j> es tal que 8<j> = 0 en 
donde y T g son los contornos del dominio 0. 

Efectuemos la variación siguiendo las reglas de la diferenciación. Se puede 
escribir 

ra = (973) 



Como 



'(2)-¿w) (9 - 74) 

podemos integrar por partes (como en la Sección 9.3) y obtener, teniendo en 
cuenta que 8<¡> = 0 en T^, 

«-jí**[í(*S)+¿('S)H* ,+ JÍ. , *( 1 £- f ) M 

(9.75a) 

Esta expresión es similar a la Ec.(9.70) e inmediatamente vemos que las 
ecuaciones de Euler son 



en Ü 



B{(f>) = k^--q = 0 enL (9.75b) 

un 

Si imponemos el valor de <j> de manera que <f> = <f> en y 8<f> = 0 en 
ese contorno, el problema será exactamente el que ya se ha discutido en 
la Sección 9.3 y el funcional (9.72) representará una manera alternativa de 
definir el problema de la conducción bidimensional del calor. 

En este caso hemos "adivinado" el funcional, pero el lector observará que 
la operación variacional podría haberse efectuado para cualquier funcional 
dado, y establecer así sus correspondientes ecuaciones de Euler. 

Continuemos con el problema para obtener una solución aproximada al 
problema lineal de la conducción del calor. Tomando, como siempre, 

4>^4> = Y^ Níclí = Na (9.76) 

si sustituimos esta aproximación en la expresión del funcional II [Ec.(9.72)], 
obtenemos 
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(9.77) 



Y diferenciando respecto a uno cualquiera de los parámetros aj tenemos 
dU í u /V dN i \ dN J jo f i /V- 9Ni \ dNj 

- J^QNjdü- jf qNjdT 
y el sistema de ecuaciones que soluciona el problema es 

Ka + f - 0 (9.79) 



(9.78) 



f .dNi dNj f dN { dNi 

fj = ~ í NjQdü- f NjqdT 



(9.80) 



Observará el lector que las ecuaciones de aproximación son aquí idénticas a 
las obtenidas en la Sección 9.5 para el mismo problema según el método 
de Galerkin. No resulta aquí, pues, ninguna ventaja del empleo de la 
formulación variacional, e incluso podemos predecir ahora que el método 
de Galerkin y el variacional deben dar la misma solución en los casos en que 
existan principios variacionales naturales. 

9.10.2 Relación del método de Galerkin con las aproximaciones mediante 
principios variacionales. En el ejemplo precedente hemos visto que las 
aproximaciones obtenidas siguiendo principios variacionales y el método de 
los residuos ponderados de Galerkin son idénticas. Que esto es así se deduce 
directamente de la ecuación (9.70), en donde la variación se dedujo en función 
de las ecuaciones diferenciales originales y de las condiciones de contorno 
asociadas al problema. 

Si consideramos la aproximación polinómica habitual [Ec. (9.3)] 

u « ü = Na 

podemos escribir que la variación de esta aproximación es 



éü = N¿a 



(9.81) 
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e introduciendo la expresión anterior en (9.70), obtenemos 

6U = ¿a T í N r A(Na)díí + ¿a T / N r B(Na)dr (9.82) 

Jíi Jt 

Siendo cierto lo anterior para cualquier ¿a, será necesario que la 
expresión que quede entre paréntesis sea cero. Como el lector reconocerá 
inmediatamente, esto es simplemente la forma de Galerkin del método de los 
residuos ponderados analizada con anterioridad [Ec.(9.25)], y con esto queda 
demostrada la identidad de ambos procesos. 

Hemos de subrayar, no obstante, que esto sólo es cierto si las ecuaciones 
de Euler del principio variacional coinciden con las ecuaciones que gobiernan 
el problema original. Por ello, el método de Galerkin tiene un mayor campo 
de aplicabilidad; 

Hemos de hacer notar en este punto otra particularidad. Si consideramos 
un sistema de ecuaciones [Ec.(9.1)¡ 

f iti(u) 1 
A(u) = A,(u) = 0 

donde ü = Na, la ecuación de los residuos ponderados de Galerkin se 
convierte en (prescindiendo de las condiciones de contorno) 

/ N T A{ü)dü = 0 (9.83) 

Jn 

Esta expresión no es única ya que podemos ordenar el sistema de ecuaciones 
A de muchas maneras. Sólo una de éstas corresponderá exactamente con las 
ecuaciones de Euler de un principio variacional (si éste existe), y el lector 
puede comprobar que para un sistema de ecuaciones ponderadas según el 
procedimiento de Galerkin, en el mejor caso, solamente una de las diferentes 
maneras de ordenar el vector A nos dará un sistema de ecuaciones simétrico. 

Consideremos como ejemplo el caso de la conducción unidimensional del 
calor (Ejemplo 1, Sección 9.5), redefinido como sistema de ecuaciones con 
dos incógnitas: la temperatura d> y el flujo de calor q. Sin tener en cuenta 
por ahora las condiciones de contorno, podemos escribir dichas ecuaciones 
como sigue 



A(u) = 




(9.84) 



o como sistema de ecuaciones lineales, 
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A(u) = Lu + b = 0 



en las que 



L 



1, 



dx 



d 

S' 0 



W ■-{: 



(9.85) 



Escribimos la función de prueba empleando una interpolación distinta para 
cada función 



u = £N t a t N¿ = 



N¡ 0 
0 N? 



y aplicando el método de Galerkin se llega a un sistema habitual de ecuaciones 
lineales con 



K i; = / Nf LNj dx = ( 



N¡N¡, -N}-N] 



N¡-Nl 0 



dx 



(9.86) 



Esta expresión proporciona, tras integrar por partes, un sistema de 
ecuaciones simétrico, j y 

Kij = Kjz (9-87) 
Si simplemente se invirtiera el orden de las ecuaciones, o sea, poniendo 



A(u) 



dq 
dx 



dx 



(9.88) 



la aplicación del método de Galerkin nos conduciría a ecuaciones asimétricas, 
muy distintas a las que aparecen utilizando principios variación ales. Este 
segundo tipo de aproximación de Galerkin ofrece claramente menos ventajas, 
debido a la pérdida de la simetría en las ecuaciones resultantes. Se ve 
fácilmente que el primer sistema corresponde exactamente con las ecuaciones 
de Euler de un principio variacional. 



Puesto que / N* —N' dx = - f N?-^-N* dx+ términos de contorno. 
J dx 3 J 3 dx 
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9.11 Establecimiento de principios variacionales naturales en el 
caso de ecuaciones diferenciales lineales autoadj untas 

9.11.1 Teoremas generales. Las reglas generales para deducir principios 
variacionales naturales a partir de ecuaciones diferenciales no lineales son 
complicadas, e incluso las comprobaciones a efectuar para determinar si 
dichos principios existen no son nada sencillas. Sin embargo, Veinberg, 14 
Tonti 15 y Oden, 16 entre otros matemáticos, han trabajado mucho en este 
campo. 

El problema es más sencillo si las ecuaciones diferenciales son lineales, 
pudiéndose encontrar un estudio completo para este caso en los trabajos 
realizados por Mikhlin, 17,18 que se presentan brevemente en esta sección. 

Sólo consideraremos aquí el establecimiento de principios variacionales 
para sistemas de ecuaciones lineales con condiciones de contorno forzadas, 
tales que al efectuar la variación satisfagan ¿u = 0 en el contorno. La 
ampliación a condiciones de contorno naturales es fácil y la omitimos. 

Escribiendo un sistema de ecuaciones diferenciales lineales en la forma 



A(u) = Lu + b = 0 (9.89) 

en donde L es un operador diferencial lineal, se puede demostrar que los 
principios variacionales lineales exigen que el operador L sea tal que 

/ j> T ls 1 dü = í 7 r L^<¿í! + t.c. (9.90) 
Jn Jn 

cualesquiera que sean los conjuntos de funciones ^ y 7. En lo anterior, 
"t.c." representa los términos de contorno, de los cuales prescindimos en 
este contexto. La propiedad requerida para el operador anterior es la de ser 
autoadjunto o simétrico. 

Si el operador L es autoadjunto, se puede escribir el principio variacional 
inmediatamente como 



r Lu + u r b 



dü + t.c. 



(9.91) 



Para comprobar la veracidad de la expresión anterior, hay que considerar 
su variación. Así pues, escribimos 



*II= / [WLu + iu r ¿(Lu) + ¿u T b 

Jn L 2 2 

Teniendo en cuenta que para todo operador lineal 



dü + t.c. 



(9.92) 



í(Lu) = LSu 



(9.93) 
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y que, en virtud de la identidad (9.90), u y Su se pueden considerar como 
dos funciones cualesquiera, podemos escribir la Ec.(9.92) como sigue 



¿11= / ¿u r (Lu + b)dft + t. 
Jtt 



(9.94) 



Observemos inmediatamente que el término entre paréntesis, o sea la 
ecuación de Euler del funcional, es idéntica a la ecuación postulada 
originalmente y, por consiguiente, está verificado el principio variacional. 

Todo esto nos proporciona una manera sencilla de obtener y comprobar 
expresiones variacionales naturales para las ecuaciones diferenciales del 
problema. 

Consideremos dos ejemplos. 

Ejemplo 1. Primeramente un problema regido por una ecuación 
diferencial similar a la conducción del calor, esto es, 



VV + *Í> + Q = o 



(9.95) 



donde c y Q dependen sólo de la posición. 

Podemos escribir lo anterior de la manera general expresada por la Ec. 
(9.89) siendo 



L = 



dx^dy^ 



b = Q 



(9.96) 



Comprobando que L es un operador autoadjunto (lo que se deja para el 
lector como ejercicio), obtenemos inmediatamente un principio variacional 



dxdy 



(9.97) 



satisfaciendo <j> las condiciones de contorno forzadas, o sea, <j> = <¡> en 
Integrando por partes los dos primeros términos, obtenemos 



dx dy 



(9.98) 



teniendo en cuenta que los términos del contorno con <j> prefijada no alteran 
el principio. 



Ejemplo 2. El segundo problema se refiere al sistema de ecuaciones ya 
examinado en la sección anterior [Ees. (9.84)-(9.85)J. De nuevo se puede 
comprobar que el operador es autoadjunto. El funcional se escribe ahora así 
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■-¿(MU -.*]{»}♦{»}'{:})*- 

Se deja para el lector la comprobación de que la expresión anterior es correcta 
efectuando su variación. 

Los dos ejemplos anteriores ilustran la sencillez de la aplicación de las 
expresiones generales. Observará el lector que el operador será normalmente 
autoadjunto si el orden de diferenciación es par. Si el orden es impar, el 
operador sólo será autoadjunto cuando esté representado por una matriz 
antisimétrica, como ocurre en el segundo ejemplo. 

9.11.2 Corrección para obtener operadores autoadjuntos. A veces, un 
operador lineal que no sea autoadjunto puede corregirse de manera que se 
transforme en autoadjunto sin alterar la ecuación básica. Consideremos, por 
ejemplo, un problema regido por la siguiente ecuación diferencial lineal, 

^ + «^+/?¿ + í = 0 (9.100) 
dx 2 dx 

donde a y ¡3 son funciones de x. Es fácil ver que el operador L es escalar: 

(9l0l) 

y que no es autoadjunto. 

Sea p una función de x, por el momento indeterminada. Demostraremos 
que es posible convertir la ecuación (9.100) en una forma autoadjunta al 
multiplicarla por esta función. El nuevo operador se transforma en 

L = P L (9.102) 
Para comprobar la simetría con dos funciones cualesquiera ^ y 7» escribimos 

J V(P¿7) dx = jf [v>P^T + + dx 

Integrando por partes el primer término, obtenemos 



(9.103) 



-/[-^£ + *£(--í) + ^ 



(9.104) 



dx + t.c. 
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Los términos que presentan simetría (y, por tanto, son autoadjuntos) son 
el primero y el último. El término central sólo será simétrico si se anula, es 
decir, si 

pa - ^ = 0 (9.105) 
dx 

o 

— = adx 
? 

p = ef Qdx (9.106) 

Con esta expresión de p el operador se convertirá en autoadjunto, y podrá 
encontrarse fácilmente un principio variacional para el problema representado 
por la expresión (9.100). 

Guymon et al. 19 han utilizado procedimientos similares para deducir 
formas vari ación ales en el caso de una ecuación de difusión por convección no 
autoadjunta. (Esta falta de simetría se observa en la ecuación que aparece 
en la Sección 9.5, Ejemplo 2.). Este problema se discute más a fondo en el 
Apéndice 7. 

Un método similar para crear funcionales variación ales se puede extender 
al caso particular de que la Ec. (9.89) no sea lineal, y 

b = b(u,x,...) (9.107) 
Observando bien la Ec. (9.92) vemos que podríamos escribir 

í(u T b) = í(g) (9.108) 



g = y b r du 

Esta integración es generalmente muy fácil de realizar. 

9.12 ¿Máximo, mínimo o punto de ensilladura? 

Hasta ahora, al estudiar principios variacionales hemos supuesto 
simplemente que en el punto de la solución ¿II = 0, o sea, que el funcional es 
estacionario. Con frecuencia se desea saber si II es un máximo, un mínimo, o 
simplemente un punto de ensilladura. Si se trata de un máximo o un mínimo 
la aproximación estará siempre "acotada", es decir, que nos dará valores 
aproximados de II que serán mayores o menores que los correctos. Esto en 
sí puede ser de importancia práctica. 

Cuando en cálculo elemental consideramos un punto estacionario de una 
función II de una sola variable a, estudiamos la variación de dll con da y 
escribimos 
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d(dü) = d (gU) = ^(daf (9.109) 

El signo de la segunda derivada determina si II es un mínimo, un máximo, 
o simplemente estacionario (punto de ensilladura), tal como se muestra en 
la Figura 9.7. Por analogía con el cálculo de variaciones consideremos los 
incrementos de 6H. Teniendo en cuenta que la expresión general de esta 
cantidad viene dada por la Ec. (9.63), y empleando la expresión de la 
segunda derivada dada por la Ec. (9.66), podemos escribir en función de 
los parámetros de la discretización 

6(611) ,= 6 (?^) T 6a = 6* T 6 (^j = ¿a r K r ¿a (9.110) 

Si en la expresión anterior 6(6IL) es siempre negativa, es obvio que II se 
estará aproximando a un máximo. Si es siempre positiva, II será un mínimo. 
Pero si el signo es indeterminado, ello nos indica que existe un punto de 
ensilladura. 

Puesto que 6a es un vector arbitrario, lo afirmado equivale a la condición 
de que la matriz Kr sea definida negativa para un máximo o definida 
positiva para un mínimo. Así pues, la forma de la matriz Kr (o de K 
en problemas lineales, que es igual a ella) es de gran importancia en los 
problemas variacionales. 




Figura 9.7 Máximo, mínimo y punto de ensilladura de un funcional II de una 
variable. 
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9.13 Principios variacionales condicionados. Multiplicadores de 
Lagrange y funciones adjuntas 

9.13.1 Multiplicadores de Lagrange. Consideremos el problema de hacer 
estacionario un funcional II, función de la incógnita u, la cual obedece un 
cierto sistema adicional de relaciones diferenciales 

C(u) = 0 en O (9.111) 
Podemos introducir esta condición formando otro funcional 

ñ(u,A) = n(u)+ / x T c(u)dn (9.112) 

Jn 

en el cual A es un conjunto de funciones de las coordenadas independientes 
en el dominio íl conocidas como multiplicadores de Lagrange. La variación 
del nuevo funcional es ahora 

S5 = m+ í 6\ T C(u)dü+ í X T 6C{u)dü (9.113) 
Jn Jn 

que es cero si C(u) = 0 (y, por tanto, 6C = 0), y simultáneamente, 

ÍII = 0 (9.114) 

De una manera similar se pueden introducir condiciones en ciertos puntos o 
en el contorno. Por ejemplo, si se impone la condición de que u cumpla que 

E(u) = 0 en T (9.115) 
añadiremos al funcional original el término 

j A T E(u)ár (9.116) 

siendo A ahora una función desconocida definida sólo en T. Alternativamente, 
si la condición definida por C es aplicable a uno o más puntos del sistema, 
entonces la simple adición de A r C(u) al funcional original en dichos puntos 
introducirá un número discreto de condiciones. 

Parece, por tanto, que siempre es posible modificar un funcional para 
incluir cualesquiera condiciones prescritas sin más que introducir funciones 
adicionales A. En el proceso de "discretización" tendremos que emplear ahora 
funciones de prueba para describir tanto u como A. 

Escribiendo, por ejemplo, 

ü = ^N¿ ai = Na Á = ^Ñ¿b¿ = Ñb (9.117) 
obtendremos un sistema de ecuaciones 
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de 



da 
dU 
db 



= 0 



■{:} 



(9.118) 



del cual pueden obtenerse ambos conjuntos de parámetros a y b. Es, sin 
embargo, paradójico que el problema "condicionado" haya resultado tener 
mayor número de parámetros desconocidos que el original y realmente una 
solución más complicada. A pesar de todo, encontraremos que el empleo 
de los multiplicadores de Lagrange nos será muy útil para formular ciertas 
expresiones variacionales de física y haremos uso de ellos de forma más 
general en el Capítulo 12. 

El hecho de que el número de parámetros aumente al introducir una 
condición quizás pueda ilustrarse mejor con un problema algebraicamente 
sencillo en el que se desea hallar el valor estacionario de una función de 
segundo grado de dos variables ^ y o 2 : 



II = 2a\ - 2a x a 2 + a\ + 18a! + 6a 2 



sujeta a la condición 



<*i — 0-2 = 0 



(9.119) 



(9.120) 



La manera evidente de proceder sería introducir la "condición" en la 
función II y obtener 



n 



24aj 



y para imponer la estacionaridad, escribir 
dU 



= 0 = 2a! + 24 



ai = a 2 



12. 



(9.121) 



(9.122) 



Introduciendo un multiplicador de Lagrange A, se puede encontrar 
alternativamente la estacionaridad de 

ñ = 2a\ - 2a x a 2 + a 2 2 + 18a a + 6a 2 + A(a a - a 2 ) (9.123) 
y escribir tres ecuaciones simultáneas 

dcii da-i d\ ^ ^ 

La solución del sistema anterior nos lleva de nuevo a la solución correcta 



ai = a 2 = —12 A = 6 
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pero con un esfuerzo considerablemente mayor. Desgraciadamente, en la 
mayoría de los problemas de medios continuos las condiciones no se pueden 
eliminar directamente de una forma tan fácil. f 

Antes de proseguir, es interesante investigar la forma de las ecuaciones 
que resultan del funcional modificado II expresado en la Ec.(9.112). Si las 
ecuaciones de Euler del funcional original II formaban un sistema 

A(u) = 0 (9.125) 

tendremos entonces que 

£Ü= í ¿u T A(u)dí)+ / SX T C(u)dü+ ( \ T 6Cdü (9.126) 
Jn Jn Jn 

Sustituyendo las funciones de forma (9.117) podemos escribir, si las 
condiciones forman un sistema de ecuaciones lineales, 

C(u) = Lju-f d 

ín = ¿a r I N T A(ü) dQ + 6b T Ñ r (L! ü + d ) dU+ (g m) 

+ 6sl t ( (L 1 N) r Ídn = 0 
Jn 

Como esto ha de ser cierto para todas las variaciones ¿a y ¿b, obtenemos un 
sistema de ecuaciones 

/ N T A(ü)dn+ / (L 1 NfÁdíí = 0 

Jq Jn 

( Ñ r (Liü + d)d« = 0 (9.128) 
Jn 

Si A es un sistema de ecuaciones lineales, el primer término de la ecuación 
primera es precisamente la aproximación variacional ordinaria sin condiciones 

Ka + f (9.129) 

e introduciendo de nuevo las funciones de prueba (9.117) podemos escribir 
las ecuaciones aproximadas (9.128) como un sistema lineal: 



K c c 



K¿, K o']W + {SH (9130) 



Szabo y Kassos 20 han empleado dicha eliminación directa en el campo de los 
elementos finitos, encontrando que, sin embargo, implica una considerable manipulación 
algebraica. 
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donde 

Kl b = í Ñ^Ndft (9.131) 
Jn 

Evidentemente el sistema de ecuaciones es simétrico pero ahora tiene ceros en 
la diagonal y, por tanto, la cantidad variacional II es puramente estacionaria. 
Podrán encontrarse dificultades de cálculo más adelante a menos que el 
proceso que se siga para solucionar el sistema permita que haya términos 
nulos en la diagonal. 

9.13.2 Identificación de los multiplicadores de Lagrange. Condiciones de 
contorno forzadas y principios variacionales modificados. Aunque se han 
introducido los multiplicadores de Lagrange como un artifico matemático, 
necesario para hacer que se cumplan ciertas condiciones exteriores que ha de 
satisfacer la expresión variacional original, encontraremos que en la mayoría 
de las situaciones reales pueden identiñcarse con ciertas cantidades físicas, 
de importancia para el modelo matemático original. Esta identificación se 
deducirá inmediatamente de la definición del principio variacional establecida 
en la Ec. (9.112) y a través de la segunda de las ecuaciones de Euler 
correspondientes al mismo. La variación 6Ü, escrita en la Ec. (9.113), nos 
proporciona a través de sus dos primeros términos la ecuación de Euler 
original del problema correspondiente al funcional II y la ecuación de la 
condición. El último término se puede siempre volver a escribir como sigue 

/ X T 6C(u)dü= ( ¿u r R(A, u) dft + t.c. (9.132) 
Jn Jn 

imponiendo la condición de que 

R(A,u) = 0 (9.133) 

Esto nos permite identificar A. 

En los tratados de cálculo variacional aparece con frecuencia esta 
identificación y dirigimos al lector al excelente texto de Washizu 21 donde 
encontrará numerosos ejemplos. 

Aquí introduciremos esta identificación mediante el ejemplo considerado 
en la Sección 9.10.1. Como hemos visto, el principio variacional de la 
Ec.(9.72) establecía la ecuación que rige el problema de la conducción del 
calor y sus condiciones de contorno naturales, con tal que la condición de 
contorno forzada 

C{<t>) = <t>-$ = 0 (9.134) 
se cumpliera en al elegir las funciones de prueba para <¡>. 
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Esta condición de contorno forzada puede considerarse siempre como 
una condición impuesta al problema original. Podemos escribir como sigue 
la expresión variacional condicionada 

n = II + / \(<f> - dT (9.135) 

donde II viene dado por la Ec.(9.72). 

Al efectuar la variación, podemos escribir 

m = m+ / a(¿-?)<¿r+ / 6<¡>\dT (9.136) 

con SU dado ahora por la expresión (9.75a) aumentada en la integral 



L 



6<f>k^-dT (9.137) 
On 



de la cual habíamos prescindido anteriormente (puesto que habíamos 
supuesto 6<f> = 0 en T^). Además de las condiciones expresadas en la 
Ec. (9.75b), exigimos ahora que se cumpla 

J 8\{4> - $) dT + jf 64>(\ + k^j dT = 0 (9.138) 

lo que debe ser cierto para todas las variaciones 8\ y 8<f>. La primera integral 
simplemente reitera la condición 

4>-j = 0 enT¿ (9.139) 
La segunda define A como 

A = -fcg (9.140) 

Teniendo en cuenta que k^ es igual al flujo -q en el contorno T^, se ha 
conseguido una interpretación física del multiplicador. 

Una vez que se ha identificado la variable lagrangiana, podemos 
establecer un principio variacional modificado reemplazando A por su valor 
identificado. 

Podríamos así escribir una nueva expresión para el ejemplo anterior: 



n = n- / 



k^{4>-4>)dT (9.141) 



en la que II viene dado de nuevo por la expresión (9.72), pero <f> no está 
sometida a ninguna condición de contorno. El empleo de estos principios 
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variacionales modificados puede servir para restablecer la continuidad entre 
elementos, y parece que con este objeto han sido introducidos por Kikuchi 
y Ando 22 . En general, éstos presentan interesantes nuevos procedimientos 
para establecer principios variacionales útiles. 

Chen y Mei 23 y Zienkiewicz et al. 2A han ampliado aún más estas 
expresiones. Washizu 21 analiza muchas de estas aplicaciones en el 
campo de la mecánica de estructuras. El lector puede comprobar que 
el principio variacional definido en la expresión (9.141) conduce a que 
todas las condiciones de contorno del ejemplo considerado se satisfacen 
automáticamente. 

La utilización de principios variacionales modificados devuelve el 
problema al número inicial de funciones o parámetros incógnita por lo que 
resulta ventajosa desde el punto de vista del cálculo. 

9.13.3 Un principio variacional general. Funciones y operadores adjuntos. 
El método de los multiplicadores de Lagrange conduce a un procedimiento 
inmediato para "crear" un principio variacional para cualquier sistema de 
ecuaciones: 

A(u) = 0 (9.142) 

Si consideramos las ecuaciones anteriores como un sistema de condiciones, 
podemos obtener en general un funcional variacional sin más que hacer II = 0 
en la Ec. (9.112) y escribir 

ñ = / X T A(u)dü (9.143) 

imponiendo ahora la condición de estacionaridad para todas las variaciones 
¿X y Su. La nueva expresión variacional ha sido, sin embargo, introducida 
a expensas de duplicar el número de variables del problema discretizado. 
Considerando únicamente el caso de ecuaciones lineales, o sea, 

A(u) = Lu + g = 0 (9.144) 

y discretizando vemos que, siguiendo los pasos implicados en las ecuaciones 
(9.126) a (9.130), el sistema final de ecuaciones adquiere ahora la forma 



con 



/ñ 

Jü 



(9.146) 
T &dü 
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Las ecuaciones son completamente independientes una de otra y el segundo 
sistema se puede resolver separadamente para obtener todos los parámetros a, 
que describen las incógnitas en las que estábamos originalmente interesados, 
sin considerar los parámetros b. Obsérvese que este segundo sistema de 
ecuaciones es idéntico al que resulta de seguir un proceso, a primera vista 
arbitrario, de residuos ponderados. Hemos, pues, cerrado el ciclo y obtenido 
las expresiones de residuos ponderados de la Sección 9.9 a partir de un 
principio variacional general. 

La función X que aparece en el principio variacional de la Ec. (9.143) se 
conoce como función adjunta de u. 

Efectuando la variación de la Ec. (9.143) es fácil ver que las ecuaciones 
de Euler correspondientes son tales que 

A(u) - 0 (9.147) 

y 

A*(u) = 0 

donde el operador A* es tal que 

j X T SA{u)dü = J Su T A\X)dü (9.149) 

El operador A* es el llamado operador adjunto y solamente aparece en 
problemas lineales (ver Apéndice 7). 

Para comprender el significado total del operador adjunto se recomienda 
al lector que consulte textos de matemáticas. 25 

9.14 Principios variacionales condicionados. Funciones de 
penalización y el método de los mínimos cuadrados 

9.14.1 Funciones de penalización. En la sección anterior hemos visto cómo el 
proceso de introducción de multiplicadores de Lagrange nos permite obtener 
principios variacionales condicionados a expensas de aumentar el número 
total de incógnitas. Más aún, hemos mostrado que incluso en problemas 
lineales las ecuaciones algebraicas que han de resolverse se complican con 
la aparición de términos diagonales nulos. En esta sección consideraremos 
un procedimiento alternativo para la introducción de condiciones carente de 
estos inconvenientes. 

Considerando nuevamente el problema de obtener la estacionaridad de II 
con un sistema de condiciones C(u) = 0 en el dominio íí, observamos que el 
producto 



(9.148) 



C T C = c\ + c¡ + . 



(9.150) 
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donde 

C r = [C„ c„ ...] 

debe ser siempre una cantidad positiva o nula. Evidentemente se encuentra 
este último valor cuando se satisfacen las condiciones y obviamente la 
variación 

6(C T C) = 0 (9.151) 

cuando el producto alcanza dicho mínimo. 

Ahora podemos escribir inmediatamente un nuevo funcional, 

H = n + a J C T (u)C(u) dü (9.152) 

donde a es un "número de penalización" , e imponer que la solución del 
problema condicionado sea estacionaria. Si II es de por sí un mínimo 
de la solución, a debe ser entonces un número positivo. La solución 
obtenida haciendo estacionario el funcional II satisfará las condiciones sólo 
aproximadamente. Cuanto mayor sea el valor de a más cerca estaremos de 
satisfacer las condiciones. Más aún, parece evidente que el procedimiento es 
más adecuado para casos en que II sea un mínimo (o máximo) absoluto, pero 
incluso se puede usar provechosamente cuando es simplemente un punto de 
ensilladura. El procedimiento es igualmente aplicable tanto para condiciones 
en el contorno, como para simples condiciones aisladas. En este último caso 
no es necesario efectuar la integración. 

Para aclarar ideas consideremos de nuevo el problema algebraico de la 
Sección 9.13, en donde se buscaba hacer estacionario el funcional dado por 
la Ec. (9.119) sujeto a una condición. Siguiendo el método de la función de 
penalización podríamos buscar ahora el mínimo del funcional 

ñ = 2a\ - 2a x a 2 + a\ + 18a! + 6a 2 + a(o! - a 2 ) 2 (9.153) 

respecto de la variación de ambos parámetros a x y o 2 . Escribiendo las dos 
ecuaciones simultáneas 

f = 0 f = 0 (9.154) 

encontramos que a medida que el valor de a aumenta nos acercamos a la 
solución correcta. En la Tabla 9.1 se muestran los resultados que demuestran 
la convergencia. 

Observará el lector que en un problema formulado de la forma precedente 
la condición no introduce parámetros incógnita adicionales, pero tampoco 
disminuye su número inicial. Si el principio variacional original es de mínimo, 
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TABLA 9.1 



a = 


1 


2 


6 


10 


100 


«i = 


-1200 


-1200 


-1200 


- 1200 


-1200 


a, 


-13-50 


-1300 


-12-43 


- 12-78 


-12-03 



las matrices obtenidas por este procedimiento serán siempre de definición 
marcadamente positiva. 

El método de las funciones de penalización ha demostrado ser muy 
efectivo para aplicaciones prácticas, 26 y en realidad muchas veces se emplea 
intuitivamente. Una de tales aplicaciones "intuitivas" se ha efectuado ya 
cuando impusimos los valores de los parámetros de contorno de la forma 
indicada en el Capítulo 1, Sección 1.4. 

En el ejemplo allí presentado (y frecuentemente en el ensamblaje de 
ecuaciones de elementos finitos), las condiciones de contorno forzadas no 
se introducen a priori, y el problema da por resultado, tras el ensamblaje, 
un sistema de ecuaciones 



Ka + f = 0 (9.155) 
que se puede obtener de un funcional (si K es simétrica) 

H = VlCa + a r f (9.156) 

¿ 

Introduciendo un valor de ai , o sea, escribiendo 



ai - a! = 0 (9.157) 
se puede modificar el funcional para dar 

Ü=U + a(a 1 -a 1 ) 2 (9.158) 

obteniéndose 

T n = K 1X + 2a 7i = /i - 2aai (9.159) 

quedando invariables el resto de los coeficientes de la matriz. Este 
procedimiento es el mismo que adoptamos en el Capítulo 1 para modificar 
las ecuaciones, introduciendo valores dados de a x (aquí 2a sustituye a a, 
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el "número elevado" de la Sección 1.4). Campbell 27 ha estudiado muchas 
aplicaciones de esta naturaleza "discreta". 

Como segundo ejemplo consideraremos el problema de la flexión de una 
viga, examinado ya en el Capítulo 2 (Sección 2.10). Este problema se puede 
plantear como la minimización de la energía potencial total, dada por 

n = \[ EI {i¿í dx - [ w * dx ( 9 - 160 > 

Como la formulación anterior exige que w sea de continuidad C\, es 
interesante investigar la posibilidad de una reformulación que imponga sólo 
continuidad C 0 . Tal alternativa sería imponer la minimización de 

i 

r L i /d$\ 2 r L 

n = l 2 EI {T x ) dx -J 0 W * dx < 9161 ) 



sujeta a la condición 



dw 



= 0 (9.162) 



Evidentemente, 0 es aquí la aproximación del giro y II es ahora una función 
de dos variables, 0 y w, que puede ser interpolada con continuidad C 0 . 

Podemos introducir ahora una expresión variacional modificada usando 
la función de penalización: 



■re-) 



n = n + a/ — -9) (9.163) 



donde a es un número grande. 

El ingeniero de estructuras reconocerá inmediatamente el significado 
físico de a, que no es otro que el de la rigidez al esfuerzo cortante 

a = ^GA (9.164) 

y que la formulación presentada corresponde a una viga en la que las flechas 
y los giros de las secciones varían independientemente, y el término adicional 
representa la energía de deformación absorbida por los esfuerzos cortantes. 

Los elementos de placa y láminas gruesas estudiados en el segundo 
volumen no son sino extensiones del proceso expuesto aquí. 

En otro contexto, 26,28 es fácil demostrar que el empleo de un coeficiente de 
Poisson elevado (y — > 0,5) para el estudio de sólidos o fluidos incompresibles 
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equivale de hecho a introducir un término de penalización para suprimir toda 
compresibilidad permitida por una variación arbitraria del desplazamiento. 

El uso de una función de penalización en el contexto de elementos finitos 
presenta ciertas dificultades: 

Primero, el funcional condicionado (9.152) lleva a ecuaciones de la forma 

(Kj + aK 2 )a + f = 0 (9.165) 

donde Ki deriva de las funciones originales y K 2 de las condiciones impuestas. 
Cuando a aumenta, la ecuación anterior degenera en: 

K 2 a = -i/a -> 0 

y a = 0 a menos que K 2 sea una matriz singular. Esta singularidad no se 
produce siempre y en el Capítulo 12 examinaremos los procedimientos para 
introducirla. 

Segundo, con valores de a finitos pero elevados se encuentran dificultades 
numéricas. Teniendo en cuenta que los errores de discretización pueden ser 
de orden comparable a los debidos a no satisfacerse las condiciones, podemos 
hacer 

a — constante(l//i) n 

asegurando una convergencia hacia la solución correcta. Fried 29,30 estudia 
detalladamente este problema. 

En la referencia 31 se encontrará un estudio más general acerca del tema 
completo, así como en el Capítulo 12 donde se aclara la relación entre los 
multiplicadores de Lagrange y las formas penalizadas. 

9.14.2 Aproximación mediante mínimos cuadrados. En la Sección 9.13.3 
hemos visto cómo mediante principios variacionales condicionados se puede 
obtener un. principio variacional general si las ecuaciones de las condiciones 
se transforman en las ecuaciones que gobiernan el problema 

C(u) = A(u) (9.166) 

Obviamente se puede seguir el mismo procedimiento para el método de la 
función de corrección imponiendo que II = 0 en la Ec. (9.152). Podemos, 
por tanto, escribir una "expresión variacional" 

!!= í (Al + A 2 2 + .")dn = í A T (u)A(u)dfi (9.167) 
Jn * Jq 

para cualquier sistema de ecuaciones diferenciales. En la expresión anterior 
se supone que u satisface las condiciones de contorno (condición de contorno 



264 



El Método de los Elementos Finitos 



forzada), y se prescinde del parámetro a puesto que éste se transforma 
simplemente en un multiplicador. 

Evidentemente la expresión anterior equivale simplemente a la condición 
de que la suma de los cuadrados de los residuos de las ecuaciones diferenciales 
sea mínima para la solución correcta. Dicho mínimo es obviamente cero, y 
el proceso es simplemente el conocido método de aproximación de mínimos 
cuadrados. 

Es igualmente evidente que la solución correcta podría obtenerse 
minimizando cualquier funcional de la forma 

H= /( Pl 4[+p 2 ^ + ...)díl = / A r (u)pA(u)díí (9.168) 
Jn Jn 

donde pi, p 2 , • ■ • i etc., son funciones o constantes de valor positivo y p es 
una matriz diagonal 



Pi 



L 0 



Pi 



P3 



(9.169) 



La anterior alternativa es conveniente a veces puesto que da diferente 
importancia a la satisfacción de componentes individuales de la ecuación y 
permite mayor libertad para escoger la solución aproximada. Una vez más, 
dicha función de ponderación se podría escoger de manera que asegurase una 
relación constante entre los términos contribuidos por los distintos elementos, 
aunque este método no ha sido todavía puesto en práctica. 

Los métodos de mínimos cuadrados del tipo que acabamos de mostrar 
constituyen un procedimiento alternativo muy eficaz para obtener formas 
integrales a partir de las que se puede iniciar una solución aproximada, 
habiéndose usado recientemente con considerable provecho. 32,33 Puesto 
que los principios variacionales de mínimos cuadrados se pueden escribir 
para cualquier sistema de ecuaciones diferenciales sin introducir variables 
adicionales, se plantea la pregunta de cuál es ía diferencia entre éstas y las 
obtenidas de los principios variacionales naturales examinados previamente. 
Efectuando la variación en algún caso particular, encontrará el lector que 
las ecuaciones de Euler que se obtienen ya no coinciden con las ecuaciones 
diferenciales originales, sino que resultan ser derivadas de mayor orden de las 
mismas. Esto introduce la posibilidad de que, si se utilizan condiciones de 
contorno incorrectas, aparezcan soluciones falsas. Aún más, generalmente se 
necesitarán funciones de prueba cuyo orden de continuidad sea superior. Esto 
puede ser un inconveniente grave, pero frecuentemente evitable definiendo el 
problema originalmente mediante un sistema de ecuaciones de menor orden. 
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Consideramos ahora la forma general de las ecuaciones discretizadas que 
resultan de la aproximación por mínimos cuadrados en el caso de los sistemas 
de ecuaciones lineales (prescindiendo de nuevo de las condiciones de contorno 
que se impongan). Así pues, si tomamos 

A(u) = Lu + b (9.170) 
y empleamos la aproximación habitual 

ü = Na (9.171) 
podemos escribir, tras sustituir en (9.168), 



[(LN)a + b] r p[(LN)a + b] díí (9.172) 



611= f ¿a T (LN) T p[(LN)a + b]<¿ft+ / [(LN)a + b] T p(LN)¿adft (9.173) 
Jn Jn 

o, puesto que p es simétrica, 

¿ff = ¿a r j|2 j (LNfpíI'N^ííj a + j^(LN) r pb¿n| (9.174) 

Esto conduce inmediatamente a la ecuación de la aproximación bajo su forma 
usual: 

Ka + f=0 (9.175) 

y el lector puede observar que la matriz K es simétrica y definida positiva. 

Para ilustrar lo anterior con un ejemplo real, consideremos un problema 
regido por la ecuación (9.95) de este capítulo, para el cual ya hemos 
obtenido una expresión variacional natural [Ec.(9.98)] en el que sólo estaban 
implicadas las derivadas primeras que exigen continuidad C 0 para u. Si 
utilizamos ahora el operador L y el término b definido en la Ec. (9.96), 
obtenemos el sistema de ecuaciones de la aproximación, donde 



K tj = 2 / (V 2 Ni + cJV¿)(V a JVj + cNj) dx dy 
J n 

f i= í {V 2 Ni + cNi)Qdxdy 
Jn 



(9.176) 



Observará el lector que en este caso es necesario que las funciones de 
forma N sean de continuidad C\. 
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Un procedimiento alternativo para evitar esta dificultad es escribir la Ec. 
(9.95) como sistema de primer orden. Este puede escribirse así 



A(u) = 



ox oy 



(9.177) 



o, introduciendo un vector u como incógnita, 

u r = [*,fc<l»l = (Na) r 
la forma lineal general (9.170) puede escribirse como 

Lu + b = 0 

donde 



(9.178) 



d_ 
d_ 

¿y 



d 


d ' 


dz' 


dy 


-i. 


0 


o, 


-1 



b = 



(9.179) 



El lector puede sustituir ahora dicha ecuación en la Ec.(9.174) para 
obtener las ecuaciones de la aproximación bajo formas que sólo exigen 
un orden de continuidad Co, obtenido, sin embargo, a costa de introducir 
variables adicionales. Estas formas se han empleado extensivamente dentro 
del contexto de elementos finitos. 32,33 



9.15 Observaciones finales 

En este extenso capítulo se han presentado las posibilidades generales 
de empleo del método de los elementos finitos para casi todo problema 
matemático o físico que admita un modelo matemático. Los procedimientos 
esenciales de la aproximación se han expuesto de la forma más sencilla 
posible, presentando al mismo tiempo un panorama absolutamente completo 
que debe permitir entender al lector toda la literatura especializada y 
desde luego efectuar ejercicios por su cuenta. En los capítulos que siguen 
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TABLA 9.2 

APROXIMACIÓN MEDIANTE ELEMENTOS FINITOS 



i 

Forma Integral de problemas continuos 
función de prueba 
u = £ N;a¡ 



l 

Modelo 
físico 



Principios variacionales 



I 

Integral de residuos ponderados 
de ecuaciones de gobierno en 
derivadas parciales 
(formulación débil) 



Importantes 
principios 
físicos 



Formas 
lagrangianas 
restringidas 

Función 
adjunta 



Formas de 
funciones de 
penalización . 



I 

Principios 

físicos 
generales 
(ej. trabajos virtuales) 



1 

Varias 
funciones 
de peso 



Colocación 
(puntual o 
subdominio) 



Mínimos 
cuadrados 



Galerkin 

(Wj = N 3 ) 



aplicaremos a distintos problemas reales únicamente una selección limitada 
de los métodos que aquí se han mencionado. No obstante, en algunos 
mostraremos que es posible efectuar determinadas ampliaciones del proceso 
(Capítulo 12), y en otros (Capítulo 11) cómo la violación de algunas de las 
reglas expuestas aquí puede efectuarse provechosamente. 

Los numerosos procedimientos de aproximación examinados caen dentro 
de varias categorías. Para recordar éstas al lector, se presenta en el Cuadro 
9.2 una clasificación de los métodos seguidos aguí y en el Capítulo 2. 
Solamente uno de los aspectos del método de los elementos finitos mostrados 
en el cuadro no ha sido considerado aquí y es el modelo físico directo. En 
dichos modelos se parte de un concepto "atómico" más que de uno continuo. 
A pesar de que las posibilidades que ofrecen dichos modelos son de gran 
interés, su estudio cae fuera del alcance de este libro. 

En todos los problemas continuos examinados, el primer paso es siempre 
elegir funciones de forma o de prueba adecuadas. Ya se han introducido 
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algunas expresiones sencillas de dichas funciones a medida que ha sido 
necesario, pero pueden utilizarse algunas de las funciones de forma más 
elaboradas presentadas en los ejemplos de elasticidad. El lector que haya 
captado la esencia del presente capítulo, no tendrá ninguna dificultad 
para aplicar el método de los elementos finitos a cualquier problema físico 
debidamente definido. Se puede consultar las referencias 34 a 38 para ampliar 
la lectura. 

Los métodos tratados no incluyen específicamente dos técnicas conocidas: 
los métodos de diferencias finitas y los métodos de solución de contorno 
(a veces llamados elementos de contorno). En un sentido general éstos 
pertenecen al método de los elementos finitos generalizados que se han 
discutido aquí. 34 

1. Los procedimientos de diferencias finitas siempre representan una 
aproximación basada en funciones de forma locales, discontinuas, con 
ponderación por colocación (aunque la derivación real del algoritmo de 
aproximación se basa en desarrollos de Taylor y es generalmente más 
simple). 

Dado que los métodos de Galerkin o variacionales dan, en un sentido 
energético, la aproximación óptima, este subconjunto tiene únicamente 
la ventaja de su simplicidad computacional, a menudo a costa de pérdida 
de precisión. 

2. Los métodos de solución de contorno eligen las funciones de prueba 
de forma que la ecuación de gobierno se satisfaga automáticamente. 
Comenzando, por tanto, a partir de la ecuación general de aproximación 
(9.25) se observa que sólo restan los términos de contorno. Volveremos 
sobre tales aproximaciones en el Capítulo 13. 
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Capítulo 10 



PROBLEMAS DE CAMPOS EN RÉGIMEN 
PERMANENTE: 

TRANSMISIÓN DEL CALOR, 
POTENCIAL ELÉCTRICO Y MAGNÉTICO, 

FLUJO DE UN FLUIDO, ETC. 

10.1 Introducción 

Si bien los detalles de la mayor parte de los capítulos precedentes han 
tratado de problemas relativos a medios continuos elásticos, los mismos 
métodos generales son aplicables a una gran variedad de problemas físicos. 
Esta posibilidad se ha señalado ya en el Capítulo 9, y en éste estudiaremos 
con más detalle una amplia categoría de dichos problemas. 

En primer lugar, consideraremos situaciones regidas por la ecuación 
"cuasi-armónica" general, de la que son casos particulares las conocidas 
ecuaciones de Laplace y Poisson 1-6 . Los problemas físicos abarcados por 
esta categoría son numerosos y variados. Citando sólo aquéllos que aparecen 
con mayor frecuencia en la ingeniería, señalaremos: 

- Transmisión del calor por conducción 

- Filtración a través de medios porosos 

- Flujo irrotacional de fluidos ideales 

- Distribución del potencial eléctrico (o magnético) 

- Torsión de barras prismáticas 

- Flexión de vigas prismáticas, etc. 

- Lubricación de cojinetes 

La formulación desarrollada en este capítulo puede aplicarse por igual a 
todos estos problemas, por lo que se hará poca mención de las magnitudes 
físicas reales. Con la misma facilidad pueden tratarse dominios isótropos que 
anisót ropos. 

En la primera parte del capítulo se estudian problemas bidimensionales 
para generalizar seguidamente los conceptos a tres dimensiones. Se observará 
que de nuevo intervienen las mismas "funciones de forma" de continuidad Co 
ya utilizadas anteriormente en la formulación de problemas de elasticidad 
bi o tridimensionales. La diferencia principal reside en que ahora cada 
punto del espacio está asociado sólo a una cantidad escalar desconocida (la 
función incógnita), mientras que en los ejemplos estudiados anteriormente 
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se buscaban varias cantidades desconocidas representadas por el vector de 
desplazamientos . 

En el Capítulo 9 se estudiaron las formulaciones "débil" y variacional 
aplicables a las ecuaciones de Laplace y Poisson (véase Secciones 9.3 y 
9.10.1). En las secciones que siguen se generalizan estos procedimientos para 
una ecuación cuasi-armónica general, indicándose el campo de aplicación de 
un procedimiento unificado único mediante el cual los ordenadores pueden 
resolver una gran variedad de problemas físicos. 



10.2 Ecuación cuasi-armónica general 

10.2.1 Expresión general. En muchos problemas físicos se estudia el fenómeno 
de difusión o flujo de una cierta cantidad, como el calor, la masa, o una 
sustancia química, etc. En tales problemas, la velocidad de transferencia 
por unidad de superficie, q, puede escribirse en función de sus componentes 
cartesianas: 



q r = tac» 9y> íz] 



(10.1) 



Si la velocidad a la que se genera (o desaparece) esa cantidad por unidad 
de volumen es Q, en régimen estacionario o permanente, la condición de 
continuidad o de equilibrio dará 



dq x dq y dq z 

dx dy dz V 



(10.2) 



Introduciendo el operador gradiente 



dx 
d_ 

dy 

d_ 
dz 



(10.3) 



la ecuación anterior puede escribirse 



V r q - Q = 0 



(10.4) 



En general, las velocidades de flujo están relacionadas con el gradiente 
de algún potencial <j>. Este puede ser la temperatura en el caso del flujo de 
calor, etc. La relación más general será de la forma 
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-{£} 



dx 
d£ 
dy 
d¿ 
dz 



-kV<j> 



(10.5) 



donde k es una matriz de dimensiones 3x3, generalmente simétrica por 
razonamientos energéticos. 

La ecuación final de comportamiento del "potencial" <f> se obtiene 
sustituyendo la expresión (10.5) en la ecuación (10.4), para dar 



V r kV¿+Q = 0 



(10.6) 



ecuación que tiene que resolverse en el dominio ü. Las condiciones de 
contorno para dicho dominio serán una u otra de las siguientes: 
1. En IV 

4> = <f> (10.7a) 



esto es, el potencial está prescrito. 
2. En Tq } la componente normal del flujo, q n , viene dada por 

q n = q + <*<!> 

donde a es un coeficiente de transferencia o radiación. 
Puesto que 



(10.7b) 



q n = q r n 



n = [n x , n y , n z ] 



donde n es el vector de cosenos directores de la normal a la superficie; 
esta condición puede volver a escribirse inmediatamente como 

-(kV¿) T n -q-a<f> = 0 (10.7c) 

donde q y a son valores dados. 

10.2.2 Formas particulares. Si consideramos la expresión general de la 
Ec. (10.5), definida para un sistema de coordenadas x, y, z arbitrario, se 
encontrará que siempre puede determinarse otro sistema de coordenadas 
locales x', y', z' , en el que la matriz k' sea diagonal. En dicho sistema 
tendremos 



k' = 



k x , 0 
0 k,j 



(10.8) 



y la ecuación de comportamiento [Ec. (10.6)] se puede escribir (prescindiendo 
del índice prima) 
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cambiando convenientemente las condiciones de contorno. 
Finalmente, para un material isótropo podemos escribir 

k = ifcl (10.10) 

donde I es la matriz unidad. Esto conduce a la sencilla ecuación (9.10) ya 
discutida con detalle en el Capítulo 9. 

10.2.3 Forma débil de la ecuación cuasi- armónica general [Ec. (10.6)]. 
Siguiendo los razonamientos del Capítulo 9, Sección 9.2, se puede obtener 
la forma débil de la Ec. (10.6) escribiendo que 

í v[V T kV<f> + Q]dÜ- í v[{kV<j>) T n-q-a<l>\dT = 0 (10.11) 
Jíi JT q 

para todas las funciones v que sean nulas en T^. 

Integrando por partes (véase Apéndice 6) resulta la expresión débil 
siguiente, que equivale a que se satisfagan las ecuaciones diferenciales de 
comportamiento del sistema y las condiciones de contorno naturales (10.7b): 

/ V T vkV<f>dü- ( vQdü- ( v(a<f> + q) dT = 0 (10.12) 

Jíi Jíi Jr q 

Nos quedan por imponer las condiciones de contorno forzadas (10.7a). 

10.2.4 Principio variacional. Dejaremos como ejercicio para el lector la 
comprobación de que el funcional 

H = l í (V4>fkV<f> dü- í QtdÜ+l í a<f> 2 dT + / q<f> dT (10.13) 
2 Jíi Jíi 2 J Tq J Tq 

satisface, al ser minimizado [con la restricción expresada por la condición 
(10.7a)], las ecuaciones originales del problema establecidas por las 
Ees. (10.6) y (10.7). 

Las operaciones algebraicas necesarias son exactamente las mismas que 
las expuestas en la Sección 9.10 del Capítulo 9 y pueden efectuarse como 
ejercicio. 

10.3 Discretización en elementos finitos 

Esto puede efectuarse sobre la hipótesis de una función de interpolación 

<¿ = ^ JV>i = Na (10.14) 
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que empleará bien la formulación débil expresada en la Ec. (10.12), o la forma 
variacional de la Ec. (10.13). En el primer caso, si de acuerdo con el método 
de Galerkin tomamos 

v = Ni (10.15) 

la expresión resultante será idéntica a la obtenida minimizando la expresión 
variacional. 

Así pues, sustituyendo la Ec. (10.5) en la Ec. (10.12), se obtiene la 
expresión general 

^ j V r iV i kVN dü - j N { aN dT j a - jf N { Q dü + jf N { q dT = 0 

(¿ = l,...,n) (10.16) 
o un sistema general de ecuaciones de discretización de la forma 

Ha + f = 0 

con 

Hij = f V T N{ k VNj dfl+ í NiocNj dT 
Jíi Jr q 

fi = - í NiQdü+ í Niq dT 
Jíi Jr q 

teniéndose .que imponer en los contornos T^ los valores prescritos de <j>. 

Advirtamos que aparece una "rigidez" adicional asociada a los contornos 
especificada por una constante de radiación a, pero aparte de esto la analogía 
con los problemas de estructuras elásticas es completa. 

Efectivamente, las operaciones a realizar en un programa de ordenador 
serían las mismas, incluso las de cálculo de cantidades análogas a las 
tensiones. Tales cantidades son, obviamente, las velocidades de flujo 

q =-kV<¡> = -(k VN)a (10.18) 

y, de acuerdo con las indicaciones del Capítulo 12, deben calcularse en los 
puntos óptimos (de integración), en concordancia con el grado de la expresión 
polinómica empleada. 

Puede volver a utilizarse cualquiera de los desarrollos Co, 
transformaciones isoparamétricas, etc., estudiadas en los Capítulos 7 y 8. 

10.4 Casos particulares desde el punto de vista económico 

10.4.1 Medios anisótropos y heterogéneos. Es evidente que las propiedades 
del material, definidas por la matriz k pueden variar de elemento a elemento 
en forma discontinua. Esto está implícito para las dos maneras de expresar 



(10.17) 
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y 




I ; ► x 

Figura 10.1 Material anisótropo. Coordenadas locales según las direcciones 
principales de estratificación. 

el problema, la forma débil y el principio variacional. 

Generalmente, las propiedades del material sólo se conocen con respecto 
a los ejes principales (o de simetría); si estas direcciones son constantes en el 
interior del elemento conviene emplear en la formulación ejes locales definidos 
para cada elemento, tal como se muestra en la Figura 10.1. 

Operando en dichos ejes, solamente es necesario definir tres coeficientes 
k Xi k y y fc 2 , obteniéndose por supuesto una considerable economía en el 
volumen de cálculos, ya que para obtener los coeficientes de la matriz H [Ec. 
(10.17)] sólo es preciso efectuar una multiplicación por una matriz diagonal. 

Es importante advertir que puesto que los parámetros a son escalares, 
no es necesario transformar las matrices calculadas en coordenadas locales 
antes del ensamblaje de las matrices globales. 

Por consiguiente, en la mayoría de los programas de cálculo sólo se define 
la diagonal de la matriz k. 

10.4.2 Problemas bidimensionales. Expresándola ecuación de comportamien- 
to (10.9) en coordenadas locales se obtiene, para dos dimensiones 
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Figura 10.2 División de una región bidimensional en elementos triangulares. 

Discretizando según la ecuación (10.16) se llega a unas matrices de formas 
ligeramente simplificadas. Prescindiendo de los términos en a y g, podemos 
escribir 



dl^dN^ dN t dNj 
kx dx dx + ky dy dy 



^ dx dy 



(10.20) 



No parecen necesarias en este punto más consideraciones. Puede sin 
embargo ser interesante particularizar la expresión anterior para el elemento 
triangular más sencillo, que no obstante es de gran eficacia (Figura 10.2). 

Haciendo 



Ni = 



aj + bjx 4- cjy 
2A 



como en la Ec. (3.8) del Capítulo 3, se puede escribir la matriz de "rigidez' 
del elemento, como 



H € 



kx 
4A 



bjbj bjb m 
sim. bmb m 



k y f¿5 
4 A [sim. c m c m 



f-1 CjCjTi 



(10.21) 
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Las matrices de carga se obtienen sencillamente de la misma manera y así 
el lector podrá demostrar, por ejemplo, que la matriz correspondiente a Q 
tiene por expresión 

^"^{l} (10 ' 22) 

resultado muy simple (prácticamente "evidente"). 

Se puede también expresar la ecuación en coordenadas cilindricas, forma 
que se utiliza para la resolución de problemas de revolución. La ecuación 
diferencial es en tal caso 

La expresión variacional podría ahora ser transformada adecuadamente 
pero es más sencillo sustituir los valores (k r r) y (k z r) como "conductividades" 
modificadas y utilizar directamente las expresiones anteriores. En este caso 
será preferible efectuar las integrales numéricamente como se hizo en los 
problemas equivalentes del Capítulo 4. 

10.5 Ejemplos. Estimaciones de la precisión 

Se demuestra fácilmente que si se ensamblan las matrices de "rigidez" 
obtenidas explícit amenté para elementos triangulares en mallas "regulares", 
como las de la Figura 10.3(a), se obtienen ecuaciones de distribución idénticas 
a las que se obtendrían utilizando los métodos conocidos de diferencias 
finitas 7 . 

Evidentemente, las soluciones obtenidas por ambos métodos serán 
coincidentes, e igualmente lo serán los órdenes de aproximación.! 

Si se utiliza una malla "irregular" basada en una distribución de nodos 
en vértices cuadrados, aparece una diferencia evidente entre los dos métodos 
[Figura 10.3(6)], la cual se limita al vector de "cargas" F\ Las ecuaciones 
ensambladas presentarán "cargas" ligeramente diferentes de un nodo a otro, 
pero cuya suma seguirá siendo la que se obtiene mediante las expresiones 
establecidas según el método de las diferencias finitas. Así pues, los resultados 
sólo difieren localmente y tendrán los mismos valores medios. 

Se muestra en la Figura 10.4 un ejemplo comparativo entre los resultados 
obtenidos mediante una malla "irregular" y una solución por relajación 
mediante la aproximación por diferencias finitas de menor orden. Los dos 
métodos dan resultados del mismo orden de magnitud, como era de esperar. 
Sin embargo, puede demostrarse que en los problemas unidimensionales el 
algoritmo de los elementos finitos da soluciones exactas en los nodos, mientras 



f Esto sólo es cierto en caso de que únicamente se impongan los valores de <j) en el contorno. 
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que en general el método de las diferencias finitas no. Por consiguiente, en 
general podrá obtenerse una precisión superior mediante el método de los 
elementos finitos. Otras ventajas de los elementos finitos son: 

1. Permiten tratar con simplicidad medios heterogéneos y anisótropos 
(particularmente cuando la dirección de anisotropía es variable). 

2. Se puede variar la forma y dimensiones de los elementos de manera que se 
adapten a contornos arbitrarios y permitan analizar con mayor precisión 
dominios en los que la variación del funcional buscado es rápida (ver, 
Capítulo 14). 

3. Las condiciones de contorno correspondientes a una "radiación" o a un 
gradiente dado se introducen de manera natural y con una precisión mejor 
que en los procedimientos clásicos de diferencias finitas. 

4. Se pueden utilizar fácilmente elementos de órdenes elevados para 
aumentar la precisión sin complicar la definición de las condiciones de 
contorno, dificultad que siempre surge cuando se utilizan aproximaciones 
mediante diferencias finitas de orden elevado. 

5. Finalmente, pero de gran importancia, se pueden utilizar para el 
ensamblaje y la solución programas estándar para cálculo de estructuras. 

Se presentarán ahora dos ejemplos más sofisticados que servirán para 
ilustrar la precisión alcanzable en la práctica. El primero es el problema de 
la torsión pura de la barra heterogénea representada en la Figura 10.5. La 
ecuación diferencial fundamental es, en este caso, 




Figura 10.5 Torsión de una barra hueca compuesta de dos metales. <f>/G0L 2 x 10*. 
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donde <f> es la función de tensión, G es el módulo de rigidez transversal y 6 
el ángulo girado por unidad de longitud de la barra. 

En la solución mediante elementos finitos que aquí se presenta, la sección 
hueca estaba representada por un material cuyo módulo de rigidez transversal 
es del orden de 10 -3 comparada con el del resto de los materiales. \ Los 
resultados coinciden bastante bien con los obtenidos mediante una solución 
precisa obtenida por diferencias finitas 8 . 

En la Figura 10.6 se muestra un ejemplo relativo al flujo a través de una 
cimentación porosa anisótropa. 

En este caso, la ecuación de comportamiento es 




(10.25) 



en la que H es la altura piezométrica y k x y hy representan los coeficientes de 
permeabilidad en la dirección de los ejes principales (oblicuos). Los resultados 
se comparan en este caso con los obtenidos mediante la solución exar ta. En 
este ejemplo se aprecian claramente las ventajas de las mallas con elmentos 
de tamaño variable. 



10.6 Algunas aplicaciones prácticas 



10.6.1 Filtración en un medio ahisótropo. El primero de los problemas trata 
sobre el flujo a través de un medio estratificado heterogéneo, anisótropo y de 
geometría compleja. La ecuación fundamental sigue siendo la Ec. (10.25). Sin 
embargo, es necesario introducir en el programa de cálculo una modificación 
que permita tener en cuenta la variación de las direcciones principales x' e 
y 1 al pasar de un elemento a otro. 

El cálculo no presenta dificultades y la definición del problema junto con 
su solución se representa en la Figura 10. 7. 3 

10.6.2 Flujo térmico de revolución. La ecuación de la transmisión del calor 
para los problemas con simetría de revolución puede escribirse como sigue en 
su forma clásica 



d_ 
dr 



f Se empleó este artificio para evitar ciertas dificultades debidas a la "conexión múltiple" 
del dominio estudiado y permitir así el uso de un programa general. 
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Figura 10.7 Filtración bajo una presa cimentada en un terreno muy heterogéneo 
y deformado. 



si no hay fuentes generadoras de calor. En esta expresión, T representa la 
temperatura y A; la conductividad. Las coordenadas x e y se reemplazan 
aquí por las cilindricas r y z, que representan las distancias radial y axial, 
respectivamente . 

En la Figura 10.8 se ha representado la distribución de temperatura en 
la vasija de presión de un reactor nuclear 1 para una transmisión estacionaria 
de calor cuando se somete la cara interior a un incremento uniforme de 
temperatura. 

10.6.3 Presiones hidrodinámicas sobre superficies en movimiento. Si una 
superficie sumergida se desplaza en un fluido con una distribución de 
aceleraciones dada y un movimiento de pequeña amplitud, se puede 
demostrar 9 que, prescindiendo de la compresibilidad del fluido, las 
sobrepresiones resultantes satisfacen la ecuación de Laplace: 

V 2 p = 0 



En los contornos, fijos o móviles, las condiciones de contorno son del tipo 2 
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[véase Ec. (10.76)] y vienen dadas por 



dp 



dn = ~ pan 



(10.27) 



en la que p es la densidad del fluido y a n la componente normal de la 
aceleración de los puntos en el contorno. 

En las superficies libres, la condición de contorno es simplemente 
(ignorando las ondas de superficie) 



p = 0 



(10.28) 



El problema entra, por tanto, dentro de la categoría de los estudiados en 
este capítulo. 

Consideremos, a título de ejemplo, el caso del muro vertical sometido a la 
presión del agua contenida en un depósito representado en la Figura (10.9), 
y determinemos la distribución de presiones en los puntos de la superficie del 
muro y del fondo del depósito para cualquier movimiento de los puntos 1 a 
7 del contorno. 

Se representa la división del dominio en elementos (42 en total), 
habiéndose empleado en este caso elementos cuadrilaterales. Para que los 
resultados sean válidos cualquiera que sea el sistema de aceleraciones, se han 
resuelto siete problemas distintos. En cada uno de ellos, sucesivamente, se 
ha impuesto a la porción de contorno adyacente al punto considerado, una 
aceleración unidad, lo que equivale a aplicar sucesivamente en los puntos 
1 a 7 "cargas" de valor p^L, pL, . . ., pL, p\L. Para una distribución de 
aceleraciones arbitraria, las presiones que se producen en los puntos 1 a 56 se 
pueden agrupar en forma de matriz función de la aceleración de los puntos 1 
a 7. Así pues 

( Pi 




(10.29) 



P7 

Pía 
Pi\ 

P28 
P35 
P42 
PA9 
P56 

donde la matriz M viene dada en la Tabla 10.1 

Se pueden calcular ahora las presiones correspondientes a una 
distribución de aceleraciones cualquiera. Por ejemplo, si la aceleración a 
es uniforme, las presiones se calcularán haciendo 
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Muro móvil 



H 



x(a n )Lp 

¿ = f-f ! 6 Subdivisión por elementos finitos 

] — t 



I — - 4 

I — ► 5 
I — - 6 

1—7 
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Figura 10.9 Problema de un muro que se desplaza horizontalmente en un depósito. 
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Aceleración Aceleración linealmente 
constante variable 

0 A 

Figura 10.10 Distribución de presiones en el muro móvil y en el fondo del depósito. 



TABLA 10.1 



1 


0 


0 


0 


0 


0 


0 


0 


2 


0 


0-7249 


0-3685 


0-2466 


01963 


0-1743 


0 0840 


3 


0 


0-3685 


0-9715 


0-5648 


0-4210 


0-3644 


01744 


4 


0 


0-2466 


0-5648 


11459 


0-7329 


0-5954 


0-2804 


5 


0 


01963 


0-4210 


0-7329 


1-3203 


0-9292 


0-4210 


6 


0 


01744 


0-3644 


0-5954 


0-9292 


1-5669 


0-6489 


7 


0 


01680 


0-3488 


0-5607 


0-8420 


1-2977 


11459 






14 


0 


01617 


0-3332 


0-5260 


0-7548 


1-0285 


0-6429 


21 


0 


01365 


0-2754 


0-4171 


0-5573 


0-6793 


0-3710 


28 


0 


0 0879 


0-1731 


0-2519 


0-3187 


0-3657 


0-1918 


35 


0 


0 0431 


0-0838 


01195 


01478 


0-1661 


0 0863 


42 


0 


0-0186 


0 0359 


00150 


0-0626 


0-0699 


0-0362 


49 


0 


0 0078 


0-0150 


0 0213 


0 0261 


0 0291 


0-0151 


56 


0 


0-0069 


00134 


0-0190 


0 0232 


0 0259 


00134 



(L = H/6) 



í-1 








H 




1¿J 







(10.30) 



La distribución de presiones resultante sobre el muro y el fondo del depósito 
se ha representado en la Figura 10.10. Los resultados para las presiones sobre 
el muro coinciden con un error inferior al 1% con la conocida solución exacta 
obtenida por Westergaard 10 . 
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Para cualquier otro movimiento se pueden obtener las presiones de 
manera análoga. Si, por ejemplo, el muro está articulado en su base y oscila 
alrederor de ese punto, estando el punto más alto (punto 1) sometido a una 
aceleración a, se tiene 



r i 

5 



di 

a 7 



a < 



(10.31) 



De esta expresión resulta la distribución de presiones representada en la 
Figura 10.10. 

La importancia de la obtención de una "matriz de influencia" como ésta 
es considerable en problemas de vibraciones. Si el "muro" oscila, en general 
su aceleración no será conocida. Según la Ec. (10.29) podemos escribir la 
relación entre las presiones de los puntos 1 a 7 y sus aceleraciones; así, 
llamando M 0 a la parte superior de la matriz M, tendremos 







í-1 






[=M 0 < 




► = M 0 a 











(10.32) 

Estas presiones se traducen en las fuerzas nodales 

(10.33) 











H 




. = AM 0 < 










1¿J 



donde A es una matriz adecuada que distribuye el efecto de las cargas, y a 
representa las aceleraciones de los puntos nodales del muro. En el segundo 
volumen de este libro se discutirán con más detalle este problema y otros 
similares. 

En la Figura 10.11 se muestra la solución de un problema bidimensional 
análogo. 4 En este caso se ha obtenido una buena precisión utilizando 
elementos tetraédricos sencillos. 

En muchos problemas prácticos basta con calcular dichas masas 
"adicionales" simplificadas y el método descrito aquí se ha empleado para 
ello en numerosas ocasiones. 11-13 

10.6.4 Problemas de electrostática y magneto st ática. En este tipo de 
problemas es frecuente la necesidad de determinar intensidades de campo 
adecuadas, siendo las ecuaciones de comportamiento del tipo cuasi- armónico 
general aquí estudiado. Así pues, se pueden usar directamente las mismas 
fórmulas. Una de las primeras aplicaciones a este tema, realizada ya en 1967, 4 
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P Densidad 

ib) 

Figura 10.11 Presiones en una superficie de retención acelerada en un fluido 
incompresible. 
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Figura 10.12 Distribución tridimensional del potencial electrostático alrededor de 
un aislante de porcelana en un recipiente conectado a tierra 9 . 



fue al estudio de las distribuciones de campos electrostáticos totalmente 
tridimensionales regidas por ecuaciones de Laplace (Figura 10.12). 

En la Figura 10.13 se muestran los resultados obtenidos por Winslow 6 
en 1966 utilizando elementos triangulares para analizar campos magnéticos 
bidimensionales. Estos primeros trabajos estimularon una considerable 
actividad en este área de estudio, habiéndose publicado desde entonces 
numerosos trabajos sobre el tema. 14-17 

Los problemas de magnetismo son de particular interés puesto que en su 
formulación interviene un vector potencial de tres componentes, lo que hace 
que la formulación de estos problemas sea diferente a la estudiada en este 
capítulo. Vale la pena, por tanto, presentar aquí una variante reciente que 
permite emplear los programas generales de esta sección para el análisis de 
este problema. 18 " 20 

En la teoría del electromagnetismo para campos estacionarios, el 
problema está regido por las ecuaciones de Maxwell, que son 
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Figura 10.13 Campo en las proximidades de un imán (según Winslow 6 ). 



V T x H = - J 

B =/zH (10.34) 
V r B =0 

siendo las condiciones de contorno tales que para una distancia infinita a 
la perturbación, H y B tienden a cero. En la expresión anterior, J es una 
densidad de corriente eléctrica dada, que circula por conductores; H y B 
son vectores de tres componentes que representan la intensidad del campo 
magnético y la densidad de flujo, respectivamente; \i es la permeabilidad 
magnética que varía (en un sistema absoluto de unidades) desde la unidad en 
el vacío a varios miles en los cuerpos magnéticos, y x representa el producto 
definido en el Apéndice 5. 

Las fórmulas anteriores dependen del hecho de que es relativamente fácil 
calcular un campo H s , que satisfaga exactamente las ecuaciones (10.34) 
cuando fi = 1 en todo el dominio. Este campo está dado en cada punto, 
definido por un vector de posición r, por la integral 
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4 Jn 



Jx(r r ' ] dü (10.35) 



(r-r') 



t\2 



En la expresión anterior, r' se refiere a las coordenadas de dÜ y obviamente 
el dominio de integración sólo incluye conductores eléctricos donde J ^ 0. 
Una vez conocido H 5 se puede escribir 

H = H s + H m 

y sustituyendo en la Ec. (10.34) se tiene un sistema 

V r x H m =0 

B=/z(H s + H m ) (10.36) 
V T B =0 

Si introducimos ahora un potencial escalar <j) que defina H m como 

H m = V4> (10.37) 

encontramos que la primera de las Ees. (10.36) se satisface automáticamente 
y, tras eliminar B en las otras dos, la ecuación fundamental se convierte en 

V T /zV¿ + V r //H 5 = 0 (10.38) 

con <j> — » 0 en el infinito. Esta ecuación tiene precisamente la forma general 
de las estudiadas en este capítulo [Ec. (10.6)], estando Q representado por el 
segundo término, que ahora sí está definido. 

Surge, sin embargo, una dificultad manifiesta si /x varía en forma 
discontinua, como efectivamente cabe esperar que ocurra en los límites de 
separación entre dos materiales. 

El término Q no estará entonces definido, y en la discretización estándar 
de la Ec. (10.16) o (10.17) el término 

/ N t Q dü = ( J\r¿V T /xH, dSl (10.39) 
Jn Jn 

aparentemente no tiene significado. 

La integración por partes viene nuevamente en nuestra ayuda y 
observamos que 

J^N t V T fiH s dÜ = - J^V T N if iH s + J^NifiHsiidT (10.40) 

Como en las regiones en que ¿i es constante, V r H s = 0, la única 
contribución a los términos relativos a las fuerzas viene dada por la integral de 
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superficie del segundo término sobre los límites de separación donde existan 
discontinuidades . 

La introducción del potencial escalar permite que los problemas de 
magnetost ática bi y tridimensionales puedan resolverse mediante el programa 
general empleado para todos los problemas de esta sección. En la 
Figura 10.14 se representa la solución del caso tridimensional típico de 
un transformador. En este caso se emplearon elementos isoparamétricos 
cuadráticos del tipo "ladrillo". 18 

Los problemas de magnetostática típicos son de gran no linealidad puesto 

que 

fi = /x(|H|) donde |H| = yj H% + JJJ + Hj (10.41) 

! 

En el Volumen 2 se estudiará el tratamiento de esta clase de no 
linealidades. 

En éste y otros problemas en que los contornos se extienden hasta 
el infinito se puede obtener una economía considerable haciendo uso de 
elementos infinitos, discutidos en el Capítulo 8. 

Las Figuras 10.15 y 10.16 muestran aplicaciones más complejas de los 
procedimientos descritos anteriormente en problemas asociados a reactores 
nucleares de fusión. 20,21 ' 22 En este caso se usó una formulación con dos 
potenciales, que es computacionalmente más eficiente. 22 

10.6.5 Problemas de lubricación. De nuevo nos encontramos una ecuación 
de Poisson de tipo general que rige la distribución del lubricante bajo un 
patín que resbala sobre un plano. En el caso más sencillo de un lubricante de 
densidad y viscosidad constantes, la ecuación que ha de resolverse (ecuación 
de Reynolds) es la siguiente: 




(10.42) 



donde h es el espesor de la película de lubricante, p la presión desarrollada, 
\l la viscosidad y V la velocidad del patín en la dirección x. 

La Figura 10.17 representa la distribución de presiones para un caso 
típico de un patín con un escalón. 23 La condición de contorno es simplemente 
que la presión en el mismo sea nula; es interesante advertir que el escalón, 
tras integrar el segundo miembro de la ecuación (10.42) es equivalente a 
una "carga lineal", tal como ocurría en el caso de discontinuidad magnética 
mencionado antes. 

Evidentemente pueden tratarse casos más generales de problemas de 
lubricación tomando en consideración movimientos verticales del patín 
(compresión de la peh'cula) y la compresibilidad del lubricante; en este campo 
se han realizado numerosos trabajos. 24- 

Flujos irrotacionales y flujos con superficie libre. La ecuación 
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Subdivisión en elementos 




v (cm) 

(a) Intensidad del campo H 




(b) Potencial escalar en el plano z = 4.0 cm 



Figura 10.14 Transformador tridimensional. 
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Figura 10.16 Dos vistas de un árbol de levas para una aplicación de inspección 
de partículas magnéticas, mostrando isoh'neas de densidad de flujo 
y vectores de campo (Programa TOSCA, cortesía de Vector Fields 
Ltd., Oxford, Reino Unido) 



296 



El Método de los Elementos Finitos 



Contorno de ph\/6fiUL 




h = & iV pulg 
Figura 10.17 Patín plano escalonado. Distribución de presiones. 



fundamental de Laplace que rige el flujo de fluidos viscosos en problemas 
de filtración se puede aplicar también a problemas de flujo irrotacional de 
fluidos en el exterior de la capa límite creada por efecto de viscosidad. Los 
ejemplos que ya hemos visto bastan para ilustrar la aplicabilidad general del 
método en relación con este tipo de problemas. Martin 32 y otros 33-38 citan 
diversos ejemplos suplementarios. 

Si no intervienen efectos de viscosidad, puede demostrarse entonces que 
el flujo de un fluido que parta del reposo debe ser irrotacional, o sea, 



_ du dv 
z dy dx ' 



etc. 



(10.43) 



donde u y v son las componentes de la velocidad. 

Esto implica la existencia de un potencial de velocidades que dé 



dx dy 
(o u = -V4>) 



(10.44) 



Si, además, el flujo es incompresible, la ecuación de continuidad [véase 
Ec. (10.2)] ha de satisfacerse; es decir, 



V r u = 0 



(10.45) 
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x 



Figura 10.18 Problemas típicos de superficie libre con una h'nea de corriente 
que satisface también una condición adicional de presión = 0. 
(a) Corriente en cascada. (6) Filtración en una presa de tierra. 



y, por tanto, 

V T V<¿ = 0 (10.46) 

Alternativamente, para un flujo bidimensional puede introducirse una 
función de corriente que defina las velocidades como 

r -% (10,7, 

y estas componentes satisfacen idénticamente la ecuación de continuidad. La 
condición de irrotacionalidad es ahora 



V T VV> = 0 (10.48) 

y así, el problema del flujo de un fluido puede formularse de una forma u 
otra. Puesto que de nuevo es aplicable la formulación general, hay poco más 
que añadir, y si el lector desea conocer algunos ejemplos puede consultar las 
referencias citadas. 

Salta a la vista la similitud de este tipo de problemas con los de filtración 
previamente estudiados. 39,40 

Un tipo particular de flujo merece atención especial. Nos referimos al caso 
en que el flujo está limitado por una superficie libre no conocida a priori. 

Este tipo de problemas está representado por dos casos típicos: el de una 
corriente en cascada [Figura 10.18(a)] y el flujo a través de una presa de tierra 
[Figura 10.18(6)]. En ambos la superficie libre es una h'nea de corriente y su 
posición es en los dos casos desconocida a priori, pero debe determinarse de 
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manera que en esa superficie se cumpla una condición suplementaria. Por 
ejemplo, el segundo problema, si se formula en función del potencial H, viene 
regido por la ecuación (10.25). 

Al ser la superficie libre una línea de corriente, se debe satisfacer en ella 
la condición 




(10.49) 



Además, la presión debe ser nula en dicha superficie por estar en contacto 
con la atmósfera. Como 

H = ^ + y (10,50) 

donde 7 es el peso específico del fluido, p la presión del fluido e y la altura con 
respecto a un sistema de referencia arbitrario (horizontal), se debe cumplir 
en la superficie que 

H = y (10.51) 

Puede procederse de manera iterativa para hallar la solución. Partiendo 
de una superficie libre dada, se resuelve el problema estándar. Luego se lleva 
a cabo una comprobación para ver si se verifica la Ec. (10.51), y si no, se 
ajusta la superficie haciendo la nueva y igual a la H recién hallada. Basta con 
algunas iteraciones para ver que la convergencia es bastante rápida. Taylor 
y Brown 41 describen un proceso de este tipo. Se han desarrollado principios 
variacionales especiales para tratar este problema y los lectores interesados 
pueden consultar las referencias 42 a 50. 



10.7 Observaciones finales 

Hemos mostrado cómo puede escribirse una formulación general para la 
solución de problemas cuasi- armónicos estacionarios y cómo un programa 
único basado en dicha formulación es aplicable a una gran variedad de 
problemas físicos. Desde luego, la selección de problemas tratados no es en 
absoluto exhaustiva y existen muchos otros ejemplos de aplicación de gran 
interés práctico. Sin duda, el lector encontrará analogías adecuadas para sus 
propios problemas. 
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EL TEST DE LA PARCELA, 
INTEGRACIÓN REDUCIDA Y 
ELEMENTOS NO CONFORMES 

11.1 Introducción 

En el Capítulo 2 se ha hecho referencia brevemente al test de la 
parcela como una forma de probar la convergencia de los elementos en 
desplazamientos para problemas de elasticidad en los que las funciones de 
forma violan los requisitos de continuidad. En este capítulo se tratará con 
mas detalle este test, aplicable a todas las formas de elementos finitos, y se 
mostrará que: 

a) es una condición necesaria para probar la convergencia de cualquier 
aproximación de elementos finitos y, además, que debidamente extendido 
e interpretado, puede proporcionar 

b) una condición suficiente de convergencia, 

c) una valoración de la velocidad (asintótica) de convergencia del elemento 
probado, 

d) una prueba de la robustez del algoritmo, y 

e) un procedimiento para desarrollar nuevas y precisas formas de elementos 
finitos que violen los requisitos de compatibilidad (continuidad). 

Aunque el test es en principio superfluo para elementos que satisfacen 
a priori todos los requisitos de continuidad, mediante aproximaciones 
polinómicas correctas e integración exacta, tiene, no obstante, gran utilidad 
ya que proporciona: 

f) una prueba de que la programación ha sido correcta. 

Por todas las razones citadas anteriormente el test de la parcela ha sido 
desde sus comienzos, y continúa siendo, la prueba más importante para los 
programas prácticos de elementos finitos. 

El test original fue introducido por Irons 1-3 basado en razonamientos 
físicos y podría ser interpretado como una prueba que determinara si una 
parcela de elementos (Figura 11.1) sujeta a deformación constante reproducía 
exactamente el comportamiento constitutivo del material y proporcionaba 
las tensiones correctas cuando se hacía infinitamente pequeña. Si así 
era, se podía argumentar que el modelo de elementos finitos representaba 
el comportamiento del material real y, en el límite, a medida que el 
tamaño de los elementos disminuyese reproduciría, por tanto, exactamente 
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a constante 



e x dx 

— i H — I h dx H 

Figura 11.1 Una parcela de elementos y un volumen de continuo sujetos a 
deformación constante e x . Una interpolación física del test de la 
parcela de deformación constante o de desplazamiento lineal. 

el comportamiento de la estructura real. 

Claramente, aunque este test tendría que ser superado solamente cuando 
el tamaño del elemento de la parcela fuera infinitesimal, para la mayoría de 
los elementos en los que se usan polinomio el tamaño de la parcela no tendría 
de hecho relevancia y el requisito de que el test de la parcela fuese superado 
para cualquier tamaño de elemento se convirtió en rutinario. 

Obviamente el desplazamiento de sólido rígido de la parcela no causaría 
deformación, y si se reprodujeran las leyes contitutivas adecuadas no se 
producirán cambios de tensión. El test de la parcela garantiza, por lo tanto, 
que no se produzca deformación bajo movimientos de sólido rígido. 

Cuando se utilizan coordenadas curvilíneas el test de la parcela debe 
satisfacerse en el límite, pero generalmente no ocurrirá así para una 
parcela de tamaño finito. (Una excepción a esto es el sistema de 
coordenadas isoparamétricas en los problemas discutidos en el Capítulo 8). 
Por tanto, para muchos problemas como los de láminas, donde se usan 
coordenadas curvilíneas locales, este test debe retringirse a parcelas de 
tamaño infinitesimal y, basándose en consideraciones físicas solamente, 
parece ser una condición necesaria y suficiente de convergencia. 

Numerosas publicaciones sobre la teoría y la práctica del test han 
seguido a las citadas publicaciones originales, 4-6 y Strang 7,8 les añadió 
respetabilidad matemática. Aunque algunos autores han formulado dudas 
sobre su validez, 9,10 éstas han sido totalmente refutadas, 11,12 y si el test 
se usa como aquí se describe satisface los requisitos a) a d) mencionados 
anteriormente. 

11.2 Requisitos de convergencia 

Se considera en lo sucesivo el test de la parcela aplicado a la solución de 
un conjunto de ecuaciones diferenciales 



A(u) = L(u) + g = 0 



(11.1) 
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en el dominio fi junto con las condiciones 

B(u) = 0 (H.2) 

en el contorno V del dominio. 

La aproximación de elementos finitos es de la forma 

u«tt = Na (11.3) 

donde N son las funciones de forma definidas en cada elemento, fi e > y a son 
parámetros incógnita. 

Aplicando los procedimientos estándar de aproximación por elementos 
finitos (ver Capítulos 2 y 9) el problema se reduce en el caso lineal a un 
conjunto de ecuaciones algebraicas 

Ka = f (11.4) 

que al ser resuelto proporciona una aproximación a la ecuación diferencial y 
a sus condiciones de contorno. 

Lo que se entiende por "convergencia" en el sentido de la aproximación es 
que la solución aproximada, ú, debería tender a la solución exacta u cuando 
el tamaño de los elementos h se acerca al cero (con un esquema de subdivisión 
determinado)! Expresado matemáticamente, se debe encontrar que el error 
en cualquier punto (cuando h es suficientemente pequeño) llega a ser 

\u-ü\ = 0(h<!)<Chl (11.5) 

donde q > 0 y C son constantes positivas dependientes de la posición. 

Esto debe cumplirse también para todas las derivadas de u definidas en 
la aproximación. 

Llamamos orden de convergencia en la variable u al valor del índice q en 
la definición anterior. 

Para asegurar convergencia es necesario que la aproximación satisfaga 
tanto las condiciones de consistencia como de estabilidad. 13 

El requisito de consistencia asegura que a medida que el tamaño de los 
elementos h tiende a cero, la ecuación de aproximación (11-4) representa 
de forma exacta la ecuación diferencial (11.1) y las condiciones de contorno 
(11.2) (al menos en sentido débil). 

La condición de estabilidad se traduce simplemente en el requisito de 
que la solución del sistema de ecuaciones discretas (11.4) sea única y evite 
mecanismos espúreos que pueden estropear la solución para cualquier tamaño 
de los elementos. 

Para problemas lineales en los que se resuelve el sistema de ecuaciones 
algebraicas (11.4) como 



= K" 1 f 



(11.6) 
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esto significa simplemente que la matriz K debe ser no-singular para todos 
los posibles ensamblajes de elementos. Sin embargo, este requisito puede ser 
a veces demasiado exigente si, por ejemplo, se adopta una solución iterativa. 

El test de la parcela se ha usado tradicionalmente como un procedimento 
para verificar el requisito de consistencia; la estabilidad se comprobaba 
independientemente asegurando la no- singularidad de las matrices. 14 Más 
aún, generalmente se probaba sólo la consistencia en la satisfacción de 
la ecuación diferencial (11.1), pero no de sus condiciones de contorno 
naturales. En lo que sigue se mostrará cómo todos los requisitos necesarios de 
convergencia pueden ser verificados mediante un test de la parcela concebido 
adecuadamente. 

Una singularidad "débil" en un elemento aislado puede a veces ser 
permisible y algunos elementos que la muestran han sido, y todavía son, 
usados en la práctica con éxito. Uno de estos casos es el elemento 
isoparamétrico de ocho nodos con una cuadratura de Gauss de 2 X 2, al 
que nos referiremos más tarde. Se observa que este elemento muestra a 
veces un comportamiente peculiar (aunque su uso tiene muchas ventajas 
que se describen en el Capítulo 12). Un elemento que falla ocasionalmente 
se denomina no robusto y el test de la parcela proporciona un medio para 
valorar el grado de robustez. 

11.3 El test de la parcela simple (formas A y B) — una condición 
necesaria de convergencia 

Consideremos primero la condición de consistencia que requiere que en 
el límite (cuando h tiende a cero) la aproximación de elementos finitos 
de la Ec. (11.4) modelice exactamente la ecuación diferencial (11.1) y las 
condiciones de contorno (11.2). 

Si se considera una "pequeña" región de dominio (de tamaño 2h) se puede 
desarrollar la función incógnita u y las derivadas esenciales que aparecen en la 
forma débil en serie de Taylor. De aquí se concluye que para la convergencia 
de la función y su primera derivada en problemas de ecuaciones de segundo 
orden y dos dimensiones, se requiere que alrededor de un punto i que se 
supone está en el origen de coordenadas, 

con p > 2. La aproximación de elementos finitos debería por tanto reproducir 
exactamente el problema para cualquier forma lineal de u a medida que h 



(11.7) 
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TestA TestB 
a prescrito en todos los nodos a prescrito en el contorno de la parcela 

KijUj = fi verificado en el nodo i ai = K~ l (fi- Kijaj)(j = i) se resuelve 

Figura 11.2 Test de la parcela en las formas A y B. 



tiende a cero. Obviamente se pueden escribir condiciones similares para 
problemas de mayor orden. Este requisito se verifica mediante la actual 
interpretación del test de la parcela ilustrado en la Figura 11.2. 

Así se calcula primero un solución lineal arbitraria de la ecuación 
diferencial y su correspondiente conjunto de parámetros a [viz. Ec. (11.3)] 
en todos los "nodos" de una parcela que ensamble completamente la variable 
nodal a{ (esto es, que proporcione todos los términos de la ecuación que le 
corresponde). 

En el test A simplemente se sustituyen los valores exactos de los 
parámetros a en la i-ésima ecuación y se verifica que 

Kijaj-fi^O (11.8) 

En el test B sólo se sustituyen los valores de a correspondientes al 
contorno de la "parcela" y se halla a; de la forma 

a i =K¡¡ 1 (fi-K ij a j ) j¿i (11.9) 

y se compara con el valor exacto. 

Ambos tests de la parcela verifican sólo el cumplimento de la ecuación 
básica y no de las aproximaciones de contorno, ya que éstas han sido excluidas 
explí ci t ament e . 

Se mencionó antes que el test se debe verificar, en principio, sólo para 
una parcela infinitesimalmente pequeña de elementos; sin embargo, para 
ecuaciones diferenciales de coeficientes constantes y con una transformación 
de Jacobiano constante el tamaño de la parcela es inmaterial y el test se 
puede llevar a cabo en una parcela de dimensiones arbitrarias. 

De hecho, si los coeficientes no son constantes existe la misma 
independencia con respecto al tamaño siempre que un conjunto constante 
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Figura 113 Transformación polar de coordenadas. 



de dichos coeficientes se use en la formulación del test. (Esto se aplica, 
por ejemplo, en problemas axial-simétricos en los que coeficientes del tipo 
1/radio aparecen en las ecuaciones y cuando se les aplica el test de la parcela 
es necesario simplemente suponer tales cantidades constantes al hacer los 
cálculos). 

Si se usan elementos transformados, curvilíneos, no es obvio que el 
test de la parcela planteado en coordenadas globales deba ser satisfecho. 
Aquí, en general, puede existir convergencia en las coordenadas originales, 
pero un test de la parcela de tamaño finito puede no satisfacerse. Sin 
embargo, de nuevo, si se especifica la naturaleza de la subdivisión sin 
cambiar la función de transformación, en el límite el jacobiano es localmente 
constante y las condiciones anteriores pueden aplicarse. Para ilustrar este 
punto consideremos, por ejemplo, un conjunto de elementos en los que las 
coordenadas locales sean simplemente las coordenadas polares mostradas en 
la Figura 11.3. Con funciones de forma polinómicas de r y 8 el test de la 
parcela del tipo descrito anteriormente no se verificará para elementos de 
tamaño finito, sin embargo, en el límite, cuando el tamaño del elemento 
tiende a cero, si será satisfecho. Por tanto, es evidente que la verificación del 
test de la parcela es una condición necesaria que debe ser satisfecha siempre 
cuando el tamaño de la parcela es infinitesimal. 

Esta condición, a la que nos referimos como satisfactón débil del test de la 
parcela no siempre es fácil de verificar, particularmente si la programación del 
elemento no permite fácilmente la consideración de coeficientes o jacobianos 
constantes. En la Sección 11.9 se discutirá en detalle su implement ación, 
que, sin embargo, es sólo necesaria para formas de elementos muy especiales. 
Es ciertamente afortunado que los elementos isoparamétricos estándar 
reproduzcan exactamente el polinomio lineal en coordenas globales (viz. 
Capítulo 8) y por esta razón no se requiere tratamiento especial, a menos que 
se introduzca algún otro crimen (tal como integración selectiva o reducida). 
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11.4 Test de la parcela generalizado (test C) y test para un 
elemento aislado 

El test de la parcela descrito en la sección precedente se mostró como 
condición necesaria de convergencia de la formulación, pero no establece 
condiciones suficientes. En particular, se omitió la verificación de la 
aproximación de la "carga" de contorno para el caso en que se especifiquen 
condiciones "naturales" (ej., ecuaciones de elasticidad). Tampoco se verificó 
la estabilidad de la aproximación. Fácilmente puede construirse un test que 
sí incluya una prueba de todas estas condiciones, y que puede verse en la 
Figura 11.4 como test C. En éste la parcela de elementos se ensambla como 
en los casos anteriores, pero se le somete a condiciones de contorno naturales 
presentas (o fuerzas en su perímetro). La matriz ensamblada para la parcela 
completa se escribe de la forma 



Ka = f 

Fijando sólo el número mínimo de parámetros a necesarios para obtener 
una solución físicamente válida (ej., eliminando los movimientos de sólido 
rígido en un ejemplo de elasticidad o un único valor de la temperatura en 
un problema de transmisión del calor) se busca la solución para los restantes 
valores de a y se comparan con la solución exacta. 

Ahora cualquier singularidad de la matriz K será observada y, como 
el vector f incluye todos los términos de fuente y de fuerzas de contorno 
necesarios, la formulación quedará completamente verificada (siempre que, 
naturalmente, haya el suficiente número de casos de prueba). 

Con las fuerzas en el contorno incluidas es por supuesto posible reducir 
el tamaño de la parcela a un único elemento y esta forma alternativa del test 
C se ilustra en la Figura 11.4(6), y se conoce como test para un elemento 
aislado 12 . Este test es evidentemente requisito para una buena formulación 
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Elementos de nueve 




(o) (b) 

Figura 11.5 (a) Modos de energía nula (singulares) para los elementos cuadráticos 
de ocho y nueve nodos y (6) para una parcela de elementos bilineales 
con un único punto de integración. 

de elementos finitos ya que, a veces, una parcela mayor puede no revelar 
las inestabilidades inherentes a un elemento aislado. Esto ocurre en el bien 
documentado caso del elemento isoparamétrico de ocho nodos con integración 
(reducida) de cuatro puntos de Gauss en problemas de deformación/tensión 
plana, donde el modo singular de deformación de un elemento aislado (viz. 
Figura 11.5) desaparece cuando se ensamblan varios elementos. f Debe 



f Esta ñgura muestia también una singularidad similar para una parcela de cuatro 
elementos bilineales con una cuadratura de un único punto, y se hace notar la forma 
similar de los modos de energía nula (viz. Capítulo 8, Sec. 8.11.3). 
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notarse, sin embargo, que la verificación del test del elemento aislado no 
es condición suficiente de convergencia. Para esto se requiere al menos un 
contorno elemental interno para verificar que la consistencia de la solución 
de una parcela se conserva entre los elementos. 

11.5 Test de la parcela de mayor orden 6,8 

Los tests de la parcela discutidos en las dos secciones anteriores 
aseguraban (al ser verificados) que existía convergencia, pero no 
comprobaban el orden de esta convergencia, más allá de asegurarnos que 
en el caso de la Ec. (11.7) los errores en u eran, al menos, de orden 
0(h 2 ). Es una cuestión sencilla determinar la mayor velocidad asintótica 
de convergencia de un elemento dado simplemente imponiendo, en vez de 
una solución lineal, soluciones polinómicas exactas de mayor orden. El 
mayor valor de tales polinomios para el cual se consigue una completa 
verificación del test de la parcela evalúa automáticamente la correspondiente 
velocidad de convergencia. Se sobreentiende que para dichas soluciones 
exactas generalmente deberán incluirse términos de fuente no nulos en la 
ecuación original (11.1). 

Además, el test C junto con un test de la parcela de mayor orden pueden 
ser usados para ilustrar cualquier tendencia a la aparición de "bloqueo" (ver 
Capítulo 12). Por lo tanto, se puede establecer la robustez del elemento en 
relación a varios parámetros (ej., coeficientes de Poisson cercanos a 0.5 para 
problemas de elasticidad en deformación plana). 

11.6 Aplicación del test de la parcela a elementos de elasticidad 
plana con cuadraturas "estándar" y "reducidas" 

En las próximas secciones se consideran varias aplicaciones del test de 
la parcela para la evaluación de modelos de elementos finitos. En cada caso 
se considera sólo uno de los test que deben ser implementados. Para la 
evaluación completa de una formulación es necesario considerar todas las 
posibles soluciones polinómicas esenciales independientes, además de una 
variedad de configuraciones de las parcelas que verifiquen los efectos de 
la distorsión de los elementos, así como interconexiones alternativas en la 
malla que se usen comúnmente en los análisis. Es importante que tanto la 
consistencia como la estabilidad sean evaluadas en un test llevado a cabo 
adecuadamente. 

En el Capítulo 8 (Sección 8.11) se discutió el orden mínimo de integración 
numérica (sin pérdida de velocidad de convergencia) necesario para varios 
problemas de elementos finitos. Sin embargo, también se vio que en algunos 
problemas dicho orden mínimo de integración llevaba a matrices singulares. 
Si se define la integración estándar como aquella que evalúa exactamente la 
rigidez de un elemento (al menos en su forma no distorsionada), entonces 
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{ a) Parcela de cinco demeatos { *) Parcela de un elemento 

Figura U.6 Parcela para la evaluación de problemas de tensión plana integrados 
numen c amen t e 

cualquier orden de integración menor se llama generalmente reducida. 

Dicha mtegracaón reducida tiene algunos méritos en ciertos problemas 
por razones que se discutirán en el próximo capítulo, pero puede causar 
irregularidades que deberían ser descubiertas en un test de la parcela (lo que 
supiementa y unifica los argumentos de la Sección 3.11.3). A continuación 
se muestra la aplicación del test de la parcela a varios problemas típicos. 

Se considera primero un problema de tensión plana que se muestra en 
la Figura 11.6(a). El material es lineal, elástico isótropo con propiedades 
E = 1000 y v = 0.3. SI procedimiento de elementos finitos usado se 
basa en la formulación en desplazamientos utilizando funciones de forma 
isoparamétricas de cuatro nodos e integración numérica. Los análisis se 
llevan a cabo utilizando el elemento plano y el programa descritos en el 
Capitulo 15. Puesto que el cálculo de la rigidez incluye sólo primeras 
derivadas de los desplazamientos ia formulación converge siempre que el test 
de la parcela sea verificado para todas las soluciones poünómicas lineales en 
desplazamientos. Aquí se considera solo una de las seis soluciones poünómicas 
lineales independientes necesarias para verificar la satisfacción del test. La 
solución considerada es 



u = 0.002* (n 1Q) 

v = -0.0006y 

que produce fuerzas de volumen nulas y tensiones nulas excepto 



<r«=2 (11-11) 

En la Tabla 11.1 se da la solución correspondiente a los deplazamientos 
nodales que satisfacen la Ec. { 11.10) exactamente. 
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TABLA U.l 

SOLUCIÓffDS LA PARCELA DELA FIGURA 11.6. 



Coordenadas Desplazamientos calculados Fuerzas 



Nodo t 


Lroora 


Vi 




f{ 






1 


0.0 


0.0 


0.0 


0.0 


-2 


0 


2 


2.0 


0.0 


0.0040 


0.0 


3 


0 


3 


2.0 


3.0 


0.0040 


-0.00186 


2 


0 


4 


0.0 


2.0 


0.0 


-0.00120 


-3 


0 


5 


0.4 


0.4 


0.0008 


-0.00024 


0 


0 


6 


1.4 


0.6 


0.0028 


-0.00036 


0 


0 


7 


1.5 


2.0 


0.0030 


-0.00120 


0 


0 


3 


0.3 


1.6 


0.0006 


-0.00096 


0 


0 



El test de U parcela se lleva a cabo primero Mandolina cuadratura 
«Jila «estándar" 2 x 2 para calcular la rigidez de cada elemento r ta 
fu-^Tde reaecón resultad en lo, nodos. Para el tes. de la parceU A se 
coaTu todos lo. nodos y se presenben todos los despla.anuento. nodales a 
lo, valores espeemeado, en la Tabla U.l. Las tensmne» se calculan en los 
lo, valores ra ¡jo-iii ,„i» v »« 1* 1 v todos resultan exactos salvo 

puntos de Gaussseleccaonadoslxl^x^yJxSytodosresui 

.rrores de redondeo (se usó precisión de 84 tal en un VAX 11/. 5 U« cual 
D 7oduce errores de redondeo menores de 10" 15 en las cant.dade* calculadas), 
[a! reácdÓn« también se calcularon para todos lo, nodo, y de nuevo 
£d Z u áticas a lo, valore, mostrado, en 1. Tabla U.l salvo erro- 
de redondeo. La aproximación mencionada satisface -.oda. la, 
réauenda, a un procedimento de elemento, ftmto. (es« es, macones , de torma 
cZT¿"Í cuaLturadeordennonnal). Por conste, el test deparceU 
verifica que no se han cometido errores « la 
de la parcela A no reuniere el uso expfcto de ¡a matm de npd». 
consecuentemente el test de la parcela anterior me reper.do usando el test B 
. Tonde ólo los nodos 1 y 4 fueron coartados con su, -e.pia.anu»..» ***** 
de acuerdo con la Tabla U.l. Esto verifica la exac-. : tud ue la matm y 
imo se esoeraba, se obtuvieron de nuevo, resultados exactos salvo erro- 
corno se esperaoa, Fmaiaieute, se biso un tes» 
7 ^&7ZZL1£ZZ£ y i' nodo 4 coartado sólo en la 
^ SeÍ ioniza, nodal., a lo, nodo. 2 y 3 de acuerdo con lo. 
tT- «neraoos a través de tendones „ en el contorno (es.o e,, la, fuersas 
Ü de Z Tal» 11.1). Este «es. también produjo tinaones exacta, para 
"daata, -.le, magmtude, nodale, de la Tabia U.l y una ten„ou = 2 

- 1°* P rrJ: sirrt:=r— ^ -tz 

oe repino ca l c ulax la rigidez eiemental y las 
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dos "modos de energía nula" globales (esto es, la matriz global de rigidez era 
deficiente en rango en grado 2), por lo que producía desplazamientos nodales 
incorrectos cuyos resultados dependían solamente de los errores de redondeo 
en los cálculos. Estos, a su vez, producían tensiones incorrectas salvo en el 
punto de Gauss lxl usado en cada elemento para calcular la rigidez y las 
fuerzas. Por tanto, y debido a consideraciones de estabilidad, el uso de la 
cuadratura 1 X 1 en elementos de cuatro nodos produce la no verificación del 
test de la parcela. El elemento, sin embargo, sí que satisface los requisitos de 
consistencia, y si se usa un procedimento de estabilización adecuado (ej., en 
la práctica se usan métodos de rigidez o viscosos), este elemento puede ser 
usado para cálculos prácticos 15,16 . 

Debe hacerse notar que puede llevarse a cabo un test del elemento aislado 
usando la malla mostrada en la Figura 11.6(6). Los resultados se dan en la 
Tabla 11.1 para los nodos 1 a 4. Para la parcela de un solo elemento, los 
tests de la parcela A y B coinciden y ninguno de ellos evalúa la precisión o 
la estabilidad de la matriz de rigidez. Por otro lado, el test de la parcela C 
lleva a las conclusiones alcanzadas utilizando la parcela de cinco elementos: 
esto es, la cuadratura gaussiana 2x2 pasa el test mientras que la cuadratura 
lxl falla el test en la parte de estabilidad (como de hecho era de esperar a 
partir de los argumentos del Capítulo 8, Sección 8.11). 

La sencilla prueba de la cancelación de un término diagonal durante la 
descomposición triangular es suficiente para avisar de deficiencias de rango en 
la matriz de rigidez. En un método de perfil, descrito en el Capítulo 15, esto 
se controla fácilmente ya que la eliminación compacta transforma el valor 
inicial de un elemento de la diagonal a su valor final en un sólo paso. Por lo 
tanto, sólo se precisa una variable escalar adicional para controlar los valores 
iniciales y finales. 

En la Figura 11.7 se considera una parcela de dos elementos cuadriláteros 
isoparamétricos cuadráticos. Se consideran tanto el tipo serendípito de ocho 
nodos como el lagrangiano de nueve y se lleva a cabo un test de la parcela 
básico de tipo C para el caso de carga 1. Para el elemento de ocho nodos 
tanto las cuadraturas gaussianas de 2 x 2 ("reducida") y 3 x 3 ("estándar") 
satisfacen el test de la parcela, mientras que para el elemento de nueve nodos 
sólo la cuadratura 3 x 3 es satisfactoria, y la cuadratura 2x2 Deva a una 
deficiencia de rango en la matriz. Sin embargo, si se realiza un test de 
elemento aislado para el elemento de ocho nodos con cuadratura 2x2, 
se descubre el modo espúreo de energía nula mostrado en la Figura 11.5 
y, por tanto, el test de un elemento aislado falla. Consideramos a tales 
elementos como sospechosos y deben ser usados con cuidado. Para ilustrar 
lo que puede ocurrir en la práctica consideremos el sencillo problema de la 
Figura 11.8(a). En este ejemplo la "estructura" modelizada por un único 
elemento se considera rígida, y el interés se centra en la respuesta de la 
"cimentación". En consecuencia sólo se usa un elemento para modelar la 
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Figura 11.7 Test de la parcela para cuadriláteros isoparamétricos de ocho y nueve 
nodos. 

estructura. El uso de la cuadratura 2x2 lleva a los resultados mostrados 
en la Figura 11.8(6), mientras que los resultados para la cuadratura 3 x 3 se 
muestran en la Figura 11.8(c). Debe hacerse notar que no existe modo de 
energía nula, ya que se ha usado más de un elemento. Sin embargo, hay una 
respuesta espúrea debido a la gran diferencia de módulos entre la estructura 
y la cimentación. Esto sugiere que en problemas en los que la respuesta 
no lineal pueda llevar a variaciones importantes en los parámetros de los 
materiales puede también inducirse este comportamiento, y por lo tanto el 
uso del elemento de ocho nodos con integración 2x2 debe ser controlado de 
cerca para detectar tales comportamientos anómalos. 

Ciertamente, las condiciones de apoyo o de carga pueden por sí mismas 
inducir respuestas muy sospechosas para elementos que son casi singulares. 
La Figura 11.9 muestra algunas divertidas peculiaridades que pueden ocurrir 
en elementos con integración reducida, y que desaparecen enteramente si se 
usa integración completa 17 . En todos los casos el ensamblaje de elementos es 
no-singular aunque los elementos individuales tengan deficiencias de rango. 

11.7 Aplicación del test de la parcela a un elemento incompatible 

Con el fin de demostrar el uso del test de la parcela para una formulación 
de elementos finitos que viola los requisitos usuales de continuidad de las 
funciones de forma, consideraremos los modos incompatibles de deformacón 
plana introducidos por Wilson et al. 18 y discutidos por Taylor et al. 19 . La 
formulación incompatible considerada usa la siguiente aproximación para los 
desplazamientos elementales: 
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Estructura 




' Desplazamiento 
nulo 

Cimentación 



(a) Problema y malla 





(c) Integración 3x3 
Figura 11.8 Propagación de un modo espúreo a partir de un único elemento no 
satisfactorio. 



ü = N,(¿,i7)aj + (1 - + (1 - 77 2 )a 2 



(11.12) 



donde N/(7 =1 — 4) son las funciones de forma bilineales conformes usuales, 
y los últimos términos son modos de deformación incompatibles definidos 
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(c) 

Figura 11.10 (a) Cuadrilátero lineal con funciones de forma auxiliares 
incompatibles; (6) Flexión pura y desplazamientos lineales causando 
cortante; (c) Funciones auxiliares "de flexión" con variables internas. 

como funciones jerárquicas de forma independiente para cada elemento. 

Las funciones de forma usadas se ilustran en la Figura 11.10. Las 
primeras, un conjunto del tipo estándar de Lagrange, dan un campo de 
desplazamientos que, como se muesta en la Figura 11.10(6), introduce 
deformaciones de cortante incluso en flexión pura. Las segundas, en las que 
los parámetros ai y a 2 están estrictamente asociados a un elemento específico 
y, por tanto, introducen incompatibilidad pero aseguran un comportamiento 
correcto a flexión, se ilustran en la Figura 11.11. 

En la referencia 19 se calcula la aproximación de elementos finitos 
sumando las energías potenciales de cada elemento y calculando las cargas 
nodales debidas a las fuerzas en el contorno a partir de la parte conforme del 
campo de desplazamientos solamente. Por tanto, a los efectos de realizar el 
test de la parcela, calcularemos las deformaciones utilizando todas las partes 
del campo de desplazamientos, lo que lleva a una generalización de (11.4) 
que puede escribirse de la forma 
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150| 



1 



56.25 ¡ m 



187.50J I 



Malla 1 

10- 



1000 



1000 



1000 



150 



150 



Carga B 



Malla 2 



f 56.25 
t 187.50 
t 56.25 
Carga A Carga B 



1000 



T 

2 





Desplazamiento en i 


Tensión en j 




Caiga A 


Carga B 


Carga A 


Carga B 


Teoría de vigas 


10.00 


103.0 


300.0 


4050 


(a) ( Malla 1 
Malla 2 


6.81 
7.06 


70.1 
72.3 


218.2 
218.8 


2945 
2954 


(b)( MaUal 
\°'\ Malla 2 


10.00 
10.00 


101.5 
101.3 


300.0 
300.0 


4050 
4050 



Figura 11.11 Resultados del cuadrilátero no-conforme en flexión de vigas 
tratadas como tensión plana: (a) cuadrilátero lineal conforme, 
(b) cuadrilátero no-conforme. 



K n 


'K12 


{:}={;;} 


K 2 i 


K 2 2 





(11.13) 



Aquí Kn y f*i son la rigidez y las cargas del elemento bilineal (conforme) 
de cuatro nodos, K i2 y (= Kf 2 ) son las rigideces de acoplamiento entre los 
desplazamientos conformes y no-conformes, y K 22 y h son la rigidez y las 
cargas de los desplazamientos no-conformes. Nótese que, de acuerdo con el 
algoritmo de la referencia 18, f 2 debe anularse para las soluciones de los tests 
de la parcela. 

Para un test en deformación o tensión planas sólo deben considerarse 
polinomios lineales, en los que los desplazamientos no-conformes deben 
anularse. Por tanto, para que se verifique el test de la parcela debe tenerse 



y 



K„a = fi 
K 21 a- f 2 = 0 



(11.14a) 
(11.14b) 
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I 2 3 

(a) Discretiz ación regular. 




(6) Discretización irregular alrededor del nodo 5 

8 




(c) Discretización de jacobiano constante alrededor del nodo 5 
Figura 11 12 Test de la parcela para una forma de elemento incompatible 



Si se lleva a cabo un test de la parcela para la malla mostrada en la 
Figura 11.12(a) se encuentra que las tres formas (osea, test tipo A, B y 
C) satisfacen estas condiciones y, por tanto, pasan el test. Si se considera 
la parcela mostrada en la Figura 11.12(6), por el contrario, el test no se 
cumple. Este incumplimiento se manifiesta de diferentes formas para cada 
tipo de test. El test tipo A produce valores no nulos de f 2 cuando a se 
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prescribe nula y a de acuerdo con los desplazamientos considerados. En la 
forma B el valor de los desplazamientos nodales a 5 tienen error y a son no 
nulos, lo que lleva a tensiones erróneas en cada elemento. En la forma C 
todos los desplazamientos libres son erróneos, así como las tensiones. 

Es interesante notar que cuando la parcela se construye según la 
Figura 11.12(c), donde todos los elementos son paralelogramos, las tres 
formas del test de la parcela se ven de nuevo satisfechas. Por consiguiente, se 
nota que si una malla cualquiera se refina sistemáticamente por subdivisón 
de cada elemento en cuatro elementos cuyos lados estén a lo largo de 
las líneas £,tj del elemento original con valores —1,0 y 1 (esto es, por 
bisecciones) la malla converge a aproximaciones de jacobiano constante del 
tipo mostrado en la Figura 11.12(c). Por tanto, en este caso particular el 
elemento de modos incompatibles satisface un test de la parcela débil, y 
por consiguiente, convergerá. Sin embargo, en general puede ser necesario 
utilizar una discretización muy fina para conseguir la precisión suficiente, 
y en consecuencia el elemento probablemente no tiene un uso práctico (ni 
eficiente) en ingeniería. 

El sencillo artificio de asegurar que el jacobiano se toma como constante 
en cada elemento consiste en evaluarlo solamente una vez en £ = r¡ = 0 (el 
centro del elemento). Esto asegura convergencia para todas las formas del 
elemento — y con esta alteración del algoritmo el elemento incompatible es 
convergente, aunque no extremadamente preciso 19 . 

11.8 Generación de funciones incompatibles que satisfacen el test 
de la parcela 

En la sección previa se ha mostrado cómo un elemento incompatible 
puede, en ocasiones, producir resultados superiores a pesar de violar las 
reglas que se postulan normalmente. En el análisis de placas y láminas 
se trata con problemas que requieren continuidad C\\ el uso de dichas 
funciones incompatibles está muy extendido no sólo porque producen mejores 
resultados, sino también debido a la dificultad de desarrollar funciones que 
satisfagan la condición de su continuidad y también la de sus derivadas. 
En esta sección se trata el problema de cómo generar funciones de forma 
incompatibles de tal manera que se asegure automáticamente el cumplimiento 
del test de la parcela y, por tanto, la convergencia. Las reglas para hacer 
esto se han desarrollado recientemente, 20,21 y se han aplicado a la obtención 
de nuevos elementos de flexión de placas. Aquí se presentan estas reglas en 
un sencilo ejemplo de un problema de ecuaciones diferenciales de segundo 
orden, pero los resultados son fácilmente extensibles a otras situaciones. 

Considérese la solución por elementos finitos de la siguiente ecuación: 

A(u) = -TV 2 u + ku - q - 0 en el dominio íí (11.15) 
con las condiciones de contorno 
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u — u en T u 

y (11.16) 

du . 
T— = t en T t 
on 

Esto puede representar el desplazamiento u de una membrana elástica 
sobre un soporte elástico con una tensión inicial T y una constante elástica 
k. La incógnita u se aproxima por dos conjuntos de funciones (jerárquicas) 

u=u c + u n (11.17a) 
u c = N c a c y u n = N n a n (11.17b) 

donde N c y N n son funciones de forma compatibles e incompatibles, 
respectivamente. 1 Debe enfatizarse que éstas son linealmente independientes, 
ya que de otro modo las condiciones de estabilidad (i.e., la no- singularidad 
de las matrices) serían violadas, como era el caso en el contraejemplo de 
Stummel 9 . 

Cuando se somete una parcela de elementos a una variación lineal 
de ti tal que se satisfaga la Ec. (11.15), la aproximación u c es capaz de 
proporcionar esta solución y satisfacer todos los requitos del test de la parcela. 
(Naturalmente, se tiene que suponer que q = — ku.) 

Se deduce, por tanto, que u n será nula. Sin embargo, es importante 
considerar el test para un elemento aislado en el que se aplica una 
tensión constante t (correspondiente a u c = u). La ecuación de Galerkin 
correspondiente al modo incompatible es ahora 

í.vfa'LM'**^) =L N > UT (1118) 

y esta ecuación debe satisfacerse idénticamente con i , k y du/dn constantes. 
En lo anterior, T e representa el contorno total del elemento y n x , n y y n son 
el vectores normales al contorno (viz. Apéndice 6). 

La condición anterior se consigue fácilmente asegurando que 

/ N?ndT = 0 (11.19) 

Una condición similar fue llamada "test de interpolación" por Specht 34 y 
también introducida anteriormente por Samuelsson. 20 Utilizando esto se ha 
desarrollado un elemento triangular no conforme para flexión de placas que 
satisface el test de la parcela y además proporciona excelentes resultados en 
diversas aplicaciones. 

En el presente ejemplo se puede usar alternativamente un test de la 
parcela más débil que establezca que 
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n x dT = 0 (11.20a) 



/ NfriydT = 0 (11.20b) 
para cada elemento, imponiendo por tanto la condición 

N?tdT = 0 (11.21) 



que implica (como sugirió originalmente Wilson) que las cargas de contorno 
de los desplazamientos incompatibles deben anularse o ser ignoradas. Por 
otra parte, la contribución de las fuerzas de volumen (osea, q) deben ser 
calculadas usando tanto las partes conformes como no-conformes de los 
desplazamientos. 

Para ilustrar el uso del procedimiento anterior para desarrollar funciones 
de forma de modos incompatibles, considérese el caso de un elemento 
cuadrilátero no-conforme de cuatro nodos que en el caso particular de un 
rectángulo reproduzca el elemento no-conforme de la referencia 18. La 
convergencia de este elemento no-conforme para los casos rectangular o de 
jacobiano constante ha sido tratada en la sección anterior. 

Se toma la parte conforme de la función de forma de cada componente 
del desplazamiento como las funciones isoparamétricas de cuatro nodos 

u e = tf,u, (11-22) 

donde ^ 

N,= j(l + 6 0(1 + 17/ (11-23) 

y £,77 son coordenadas naturales en el intervalo (—1,1) con valores en cada 
nodo esquina i" dados por (uVi- Se construyen las funciones no-conformes 
a partir de las restantes funciones del elemento serendípito isoparamétrico 
de ocho nodos (Capítulo 8). En consecuencia, se toma para el campo no- 
conforme 

- 1 (i - na - 1)* + k 1 + 0(1 - v 2 )<*2+ 



2 V 2 V (11 .24) 

+ ¿(1 " e 2 )(l + r})a 3 + -(1 - 0(1 + ^)«4 
Sustituyendo en las condiciones (11.20) se obtienen dos condiciones escalares 

0 (11-25) 
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4 

X>«i = 0 (11.26) 



donde a{,b¡ dependen de la geometría del elemento 



b i = y j -y i (11.27) 

con 

j — mod (i',4) + 1 

Se pueden usar estas dos condiciones para expresar dos de las a¿ en 
función de las otras dos. El resultado da dos modos incompatibles de 
desplazamiento que pueden ser añadidos al campo conforme asegurando la 
satisfacción de un test de la parcela fuerte. Para elementos rectangulares los 
dos modos resultantes son idénticos a los propuestos en la Ec. (11.12). 

Existen otras posibilidades para construir funciones no- conformes o 
incompatibles 5 . 

11.9 El test de la parcela débil — ejemplo 

Los problemas descritos anteriormente dan soluciones exactas para los 
tests de la parcela realizados y, por tanto, satisfacen las condiciones en sentido 
fuerte. Para ilustrar el comportamiento de un elemento que sólo satisface una 
forma débil del test de la parcela consideremos un problema axial- simétrico 
elástico lineal modelizado con elementos isoparamétricos de cuatro nodos. Se 
supone material isótropo y las matrices de rigidez y fuerzas de reacción de los 
elementos finitos se calculan usando integración selectiva donde los términos 
asociados con el módulo de deformación volumétrica se evalúan utilizando 
una cuadratura con un único punto de Gauss, mientras que los restantes 
términos se calculan utilizando una cuadratura gaussiana de 2 x 2 (normal). 
Puede verificarse fácilmente que la matriz de rigidez es del rango adecuado, y 
por tanto la estabilidad de las soluciones no está en cuestión. Por otro lado, 
la consistencia debe ser comprobada. 

Para verificar el comportamiento de una formulación con una cuadratura 
selectiva se considera la parcela de elementos mostrada en la Figura 11.13. 
La parcela no es de forma tan general como sería deseable y sólo se usa para 
ilustrar el comportamiento de un elemento que verifica un test de la parcela 
débil. La solución polinómica considerada es 

(".28) 

w — 0 



y se usan en el análisis las contantes materiales E = 1 y v = 0. El campo de 
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6 

1 — Z 


5 4 
2 3 








r = 1 



I* 



Figura 11.13 Parcela para cuadratura selectiva en elementos axial-simétricos de 
cuatro nodos. 



tensiones resultante es 



<7 r = (TQ 



2 



(11.29) 



con las otras componentes idénticamente nulas. La solución exacta para 
las cantidades nodales de la malla mostrada en la Figura 11.13 se resume 
en la Tabla 11.2. Se llevan a cabo tests de la parcela para este problema 
usando el esquema de integración selectiva descrito arriba y valores de h 
de 0.8, 0.4, 0,2, 0.1 y 0.05. El resultado para el desplazamiento radial 
de los nodos 2 y 5 se da en la Tabla 11.3 (con seis dígitos). Todas las 
demás cantidades (desplazamientos, deformaciones y tensiones) tienen un 
comportamiento similar con velocidades de convergencia de al menos 0(h) 
o más. 



' TABLA 11.2 
SOLUCIÓN EXACTA PARA LA PARCELA 



Nodo 
/ 


Radio 

Ti 


Desplazamiento 


Fuerza 




Wj 


FrI F tI 


1,4 


1 - h 


2(1 - h) 


0 


-(1 - h)h 0 


2,5 


1 


2 


0 


0 0 


3,6 


1 + h 


2(1+ h) 


0 


(1 + h)h 0 



11.10 Ejemplo de test de la parcela de alto orden — robustez 

Al efecto de mostrar un test de la parcela de alto orden considérese el 
problema de tensión plana de dos elementos mostrado en la Figura 11.7 
y sujeto a la carga de flexión que se señala. Como antes, se consideran 
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TABLA 11.3 

DESPLAZAMIENTO RADIAL EN LOS NODOS 2 Y 5. 



h 


u 


0.8 


2.01114 


0.4 


2.00049 


0.2 


2.00003 


0.1 


2.00000 


0.05 


2.00000 



dos tipos diferentes de elementos: a) un elemento cuadrático serendípito de 
ocho nodos, y b) un elemento cuadrilátero lagrangiano de nueve nodos. En 
este test se trata de demostrar una característica de la transformación del 
elemento de nueve nodos discutido en el Capítulo 8 (viz. Sección 8.7) y 
mostrada por primera vez por Wachspress 22 . En particular, se restringe que 
la transformación al plano xy sea la producida por el elemento isoparamétrico 
bilineal de cuatro nodos, pero permitiendo a la variable dependiente recorrer 
el rango completo de variación que permiten las funciones de forma de ocho 
y nueve nodos. En el Capítulo 8 se mostró que el elemento de nueve nodos 
puede aproximar una función de desplazamiento cuadrática completa en z,y 
mientras que el elemento de ocho nodos no puede. Por tanto, es de esperar 
que cuando el elemento de nueve nodos se restringe a las tranformaciones 
isoparamétricas del elemento de cuatro nodos, pase un test de la parcela de 
mayor orden para cualquier campo cuadrático de desplazamientos arbitrario. 
La solución de flexión pura en elasticidad se compone de términos polinómicos 
de hasta segundo orden. 

Además, no se necesitan cargas de volumen para satisfacer las ecuaciones 
de equilibrio. Para la malla considerada las cargas nodales son iguales y 
opuestas en los nodos superior e inferior, como se muestra. Los resultados 
para los dos elementos se muestran en la Tabla 11.4 para las cuadraturas 
indicadas con E — 100 y v = 0.3. 

De este test se deduce que el elemento de nueve nodos satisface el test de 
alto orden. Ciertamente, siempre que la transformación se restrinja a la forma 
de cuatro nodos se verificará el test de la parcela para desplazamientos con 
términos no superiores a los cuadráticos. Por otro lado, el elemento de ocho 
nodos sólo supera el test de la parcela de alto orden para transformaciones 
a elementos rectangulares (o de jacobiano constante). Además, la precisión 
del elemento de ocho nodos se deteriora con mucha rapidez al aumentar la 
distorsión por el parámetro d. 
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TABLA 11.4 
CASO DE CARGA DE FLEXIÓN {E = 100, v = 0.3). 



Elemento 


Cuadratura 


d 


va 


u B 


vb 


ocho-nodos 


3x3] 




0.750 


0.150 


0.75225 


ocho-nodos 


2 x 2 \ 


0 


0.750 


0.150 


0.75225 


nueve-nodos 


3 x 3 J 




0.750 


0.150 


0.75225 


ocho-nodos 


3x3] 




0.7448 


0.1490 


0.74572 


ocho-nodos 


2x2 


1 


0.750 


0.150 


0.75100 


nueve-nodos 


3 x 3 J 




0.750 


0.150 


0.75225 


ocho-nodos 


3x3] 




0.6684 


0.1333 


0.66364 


ocho-nodos 


2x2 


2 


0.750 


0.150 


0.75225 


nueve- no dos 


3 x 3 J 




0.750 


0.150 


0.75225 


Exacta 






0.750 


0.150 


0.75225 



El uso de una cuadratura reducida 2x2 mejora los resultados para los 
tests de alto orden. De hecho, dos de los puntos de muestreo dan resultados 
exactos y sólo ligeramente erróneos el tercero. Sin embargo, como se precisó 
anteriormente, el test para un elemento aislado para el elemento de ocho 
nodos con integración 2x2 falla la parte de estabilidad del test de la parcela 
y, por tanto, debe ser usado con el mayor cuidado. 

El uso de un test de la parcela de alto orden puede ser usado también 
para evaluar la "robustez" del elemento. Se llama robusto a un elemento si 
su comportamiento no es sensible a los parámetros físicos de la ecuación 
diferencial. Por ejemplo, el comportamiento de muchos elementos para 
la solución de problemas de elasticidad lineal en deformación plana es 
sensible a valores del coeficiente de Poisson cercanos a 0.5 (en "cuasi- 
incompresibilidad"). Ciertamente, para coeficientes de Poisson cercanos 
a 0.5 la energía almacenada por unidad de deformación volumétrica es 
muchos órdenes mayor que la energía almacenada por unidad de deformación 
desviadora. Consecuentemente, los elementos finitos que muestran un fuerte 
acoplamiento entre las deformaciones volumétrica y desviadora a menudo 
producen resultados pobres en régimen cuasi-incompresible, un problema 
que será discutido con más detalle en el Capítulo 12. 

Esto puede obtenerse usando un elemento de cuatro nodos para resolver 
un problema con un campo cuadrático de desplazamientos (osea, un test de la 
parcela de alto orden). Si se considera de nuevo el ejemplo de flexión pura y la 
malla de ocho elementos mostrada en la Figura 11.14 se observa claramente el 
deterioro de los resultados a medida que el coeficiente de Poisson se aproxima 
al valor de un medio. También se muestran en la Figura 11.14 los resultados 
para los modos incompatibles derivados en la Sección 11.18. Es evidente 
que la respuesta mejora considerablemente con la adición de estos modos, 
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1.0 



Incompatible— regular (2 x 2)(3 X 3) 
Incompatible — distorsionada (3x3) l""* ~— A\ 



Incompatible — 
distorsionada (2 x 2) 



0.8 



0.6 



0.4 



0.2 



Bilineal — regular (2 X 2) 



Bilineal — distorsionada (2 x 2) 



J L 




Límite « 0.83 



(n x n) orden de 

cuadratura 



0 0.1 0.2 0.3 0.4 0.5 



v(v), 



Malla regular 




5 



■ 5 



Malla distorsionada 

Figura 11.14 Cuadriláteros de cuatro nodos en deformación plana con y sin modos 
incompatibles (test de la parcela de alto orden para evaluación del 
comportamiento) . 

especialmente si se usa la cuadratura 2x2. 

Si se considera una malla regular y elementos de cuatro nodos, y además 
se mantiene el dominio constante y se refina sucesivamente el problema 
usando mallas de 8, 32, 128 y 512 elementos, se observa que las soluciones 
convergen como garantiza el test de la parcela. Sin embargo, como se muestra 
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Ancho del elemento ln(/i) 



-2 -1 0 




Cuatro nodos (2 x 2) en todos los términos 

Cuatro nodos (2 X 2) en los términos de cortante 

(1 X 1) en los demás términos 

Figura 11.15 Test de la parcela de alto orden para evaluar la robustez del 
elemento (ver Figura 11.14) (test de convergencia por subdivisión 
de elementos). 

en la Figura 11.15, la velocidad de convergencia en energía para valores del 
coeficiente de Poisson de 0.25 y 0.4999 es bastante diferente. Para 0.25 
la velocidad de convergencia es casi una b'nea recta para todas las mallas, 
mientras que para 0.4999 la velocidad empieza siendo bastante baja y se 
acerca a un valor asintótico de 2 cuando h tiende a cero. Para u cercano a 
0.25 el elemento es robusto, mientra que para v cercano a 0.5 no lo es. Si 
se usa integración selectiva (que para deformación plana verifica los tests de 
la parcela fuertes) y se repite el experimento, ambos valores de v producen 
respuestas similares y, por tanto, el elemento se vuelve robusto para todos 
los valores del coeficiente de Poisson menores que 0.5. 

Por consiguiente, el uso de tests de la parcela de alto orden puede 
ser muy importante para separar elementos robustos de los que no lo son. 
Para métodos que tratan de refinar automáticamente una malla de forma 
adaptable en regiones con mucho error, como se discute en el Capítulo 14, es 
extremadamente importante usar elementos robustos. 
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11.11 Conclusión 

En las secciones precedentes se ha descrito el test de la parcela y su uso 
en la práctica mediante la consideración de varios problemas de ejemplo. El 
test de la parcela descrito tiene dos partes esenciales: a) una evaluación de la 
consistencia, y b) una prueba de la estabilidad. En el test de la consistencia 
se usa un conjunto de polinomios esenciales linealmente independientes (esto 
es, todos los términos independientes hasta el orden necesario para describir 
el modelo de elementos finitos) como solución a las ecuaciones diferenciales y 
condiciones de contorno y, en el límite, a medida que el tamaño de la parcela 
tiende a cero, el modelo de elementos finitos debe satisfacer exactamente 
cada solución. Se han presentado tres formas de realizar esta parte del test 
que se han llamado formas A,B y C. 

El uso de la forma C, donde todas las condiciones de contorno son na- 
turales (ej., fuerzas de superficie en elasticidad) salvo el número mínimo 
de condiciones esenciales necesario para asegurar unicidad de solución del 
problema (ej., modos de sólido rígido en elasticidad), se recomienda para 
verificar consistencia y estabilidad simultáneamente. Tanto los tests para 
un elemento aislado como para más de un elemento son necesarios para 
asegurar que se satisface el test de la parcela. Con estas condiciones, y 
suponiendo que el procedimiento de solución utilizado puede detectar las 
deficiencias de rango, se comprueba también la estabilidad de la solución. Si 
tal condición no se incluye en el programa se debe llevar a cabo una prueba 
de estabilidad independiente. Esto puede hacerse calculando el número de 
valores propios nulos en la matriz de coeficientes para métodos que utilicen 
la solución de ecuaciones lineales para calcular los parámetros incógnita a. 
Alternativamente, se puede perturbar la carga usada para la solución de la 
parcela en un punto en un valor pequeño (por ejemplo, la raíz cuadrada del 
límite del error de redondeo (ej., con 10~ 6 para redondeos del orden de 10 -12 ) 
y comprobar la solución para asegurar que no varía en una magnitud grande. 

Una vez que se ha probado que el elemento pasa todos los tests de 
la parcela esenciales, tanto para consistencia como para estabilidad, la 
convergencia está asegurada cuando el tamaño de los elementos tiende a 
cero. Sin embargo, en ciertas situaciones (ej., el problema elástico cuasi- 
incompresibles) la convergencia puede ser muy lenta hasta que se use un 
número muy grande de elementos. En consecuencia, se recomienda el uso de 
tests de la parcela de alto orden para establecer la robustez del elemento. Los 
tests de la parcela de alto orden requieren el uso de soluciones polinómicas de 
la ecuación diferencial y de las condiciones de contorno con términos de mayor 
orden que los polinomios básicos usados en el test de la parcela. Ciertamente, 
el orden de los polinomios usados debería aumentar hasta que el test sólo sea 
verificado en sentido débil (i.e., cuando h tiende a cero). La ventaja de utilizar 
un test de la parcela de alto orden, en lugar de otros problemas de contorno, 
es que la solución exacta puede ser fácilmente calculada en cualquier punto 
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del modelo. 

Se ha probado en algunos de los ejemplos el uso de funciones 
incompatibles y procedimientos de integración inexactas (integración 
reducida y selectiva). Algunas de estas violaciones de las reglas previamente 
estipuladas están justificadas no sólo por el comportamiento mejorado, sino 
porque proporcionan métodos en los que la convergencia está asegurada. 
Algunas de las razones de tal comportamiento mejorado se discutirán en el 
siguiente capítulo (Capítulo 12). 
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FORMULACION MIXTA Y 
RESTRICCIONES, MÉTODOS 
DE CAMPO COMPLETO 



12.1 Introducción 

El conjunto de ecuaciones diferenciales desde el que se inicia el proceso de 
discretización determina si nos referiremos a la formulación resultante como 
mixta o irreducible. Así, si consideramos un sistema de ecuaciones con varias 
variables dependientes u escrito como [viz. Ees. (9.1) y (9.2)] 

A(u) = 0 en el dominio Ü 
y (12.1) 

B(u) = 0 en el contorno T 

en el cual ninguna de las componentes de u puede ser eliminada dejando el 
problema bien definido, entonces la formulación se llamará irreducible. En 
caso contrario, la formulación se denominará mixta. 

Esta definición no es la única posible 1 pero aparece en la literatura 
como la más ampliamente aplicable, 2,3 si en el proceso de eliminación al que 
nos hemos referido se permite la introducción de funciones de penalización. 
Además, encontraremos que para una situación física dada existe usualmente 
más de una forma irreducible posible. 

Como ejemplo consideramos el sencillo problema de transmisión del calor 
(o ecuaciones cuasi-armónicas) al que nos hemos referido en los Capítulos 
9 y 10. En éste comenzábamos por la relación física constitutiva que 
define los flujos [viz. Ec. (10.5)] en función de los gradientes de potencial 
(temperatura), esto es, 

q = -kV¿ q = i Z \ (12.2) 



- : 



La ecuación de conservación se puede escribir [viz. Ec. (10.7)] 

vr + djy = 

ox oy 

Si la ecuación anterior se satisface en fi y las condiciones de contorno 

<j> = 4> en r¿ y q n = q n en T q (12.4) 
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se cumplen, entonces el problema está resuelto. 

Claramente la eliminación del vector q es posible, y la simple sustitución 
de la Ec. (12.2) en la Ec. (12.3) lleva a 

V T (kV¿) + Q = 0 en ft (12.5) 

con las condiciones de contorno apropiadas expresadas en función de ^ o su 
gradiente. 

En el Capítulo 10 se han mostrado soluciones discretizadas a partir de este 
punto y, dado que no es posible continuar eliminando variables, la formulación 
es claramente irreducible. 

Por otro lado, si se inicia la discretización a partir de las Ees. (12.2) a 
(12.4) la formulación resultaría mixta. Una forma irreducible alternativa es 
también posible en función de las variables q. Para ello debe introducirse 
una forma penalizada, y escribir, en lugar de la Ec. (12.3) 

V r q -Q = - a^oo (12.6) 
a 

donde a es un número de penalización que tiende a infinito. Claramente, 
ambas ecuaciones coinciden en el b'mite y, en general, si a es grande pero 
finito, las soluciones deberían ser aproximadamente iguales. 

Ahora, sustituyendo en la Ec. (12.2) resulta una única ecuación 

kVV r q+^ = kVQ (12.7) 

que a su vez puede ser utilizada como punto de partida de un proceso de 
discretización como una forma irreducible posible 4 . 

El lector debe observar que las formulaciones usadas hasta ahora en este 
libro eran irreducibles, según la definición dada. En las siguientes secciones 
se muestra cómo los problemas de elasticidad se pueden tratar en forma 
mixta y cómo tales formulaciones son esenciales en ciertos problemas como 
el ejemplo de elasticidad incomprensible al que nos referimos en el Capítulo 
3. En el Capítulo 9 (Sección 9.10.2) se mostró cómo se puede llevar a cabo 
la discretización de un problema mixto. 

Antes de proseguir con la discusión de tal discretización (que revelará 
ventajas y desventajas de los métodos mixtos) es importante observar que 
si el operador que describe la forma mixta es simétrico o auto-adjunto (viz. 
Sección 9.11.1) la formulación puede derivarse de un principio variacional que 
para problemas lineales puede obtenerse directamente. Invitamos al lector 
a probar, usando los métodos del Capítulo 9, que la estacionariedad del 
siguiente principio variacional es equivalente a las ecuaciones diferenciales 
(12.2) y (12.3) junto a las condiciones de contorno (12.4): 

n = l Í q r k- l q dÜ - í <f>(V T q -Q)dÜ+ Í <¡>(q n - q n ) dT 

2 Jn Jn Jr q 
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para 

<l> = 4> en T¿ (12.8) 

El establecimiento de tales principios variacionales es de gran valor 
académico, y ha conducido a muchas formas famosas descritas en el clásico 
trabajo de Washizu. 5 Sin embargo, es conocido (viz. Sección 9.9) que si en 
un problema lineal se obtienen matrices de residuos ponderados simétricas, 
entonces existe un principio variacional y éste puede ser encontrado. Como 
la simetría puede establecerse por simple inspección, procederemos en lo 
que sigue con el método de residuos ponderados directamente, evitando así 
complejidades innecesarias. 

12.2 Discretización de formas mixtas - Algunas observaciones 
generales 

Mostraremos el proceso de discretización de las ecuaciones de transmisión 
del calor a partir de la forma mixta (12.2) y (12.3). Empezaremos por suponer 
que cada una de las incógnitas se aproxima de la forma usual, mediante 
funciones de forma apropiadas y los correspondientes parámetros incógnita. 
Así 

q^q = N 9 q y <j> = <j> = (12.9) 

donde q y ^ se refieren a parámetros nodales, o de forma más general, 
parámetros elementales, que deben ser determinados. 

Suponiendo que las condiciones de contorno <¡> — <f> se satisfacen por la 
elección de los desarrollos, la forma débil del problema es, para la Ec. (12.2), 



L 



w^k-'q + VtfOdn^o (12.10) 

y, para la Ec. (12.3) y las condiciones de contorno "naturales", 

jf Wj(V r q-Q)dft-jf Wl(q n -q n )dT = 0 (12.11) 

La razón por la que hemos premultiplicado la Ec. (12.2) por k _1 es ahora 
evidente, porque la elección 

W q = N 9 W¿ = N¿ (12.12) 

llevará a ecuaciones simétricas [utilizando el teorema de Green para hacer la 
integración por partes del térmico de gradiente en la Ec. (12.11)] de la forma 



A C 

C T 0 



{J}-{¡} 



(12.13) 
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con 




(12.14) 



Este problema, que consideramos como ejemplo de un gran número 
de aproximaciones mixtas, ilustra las principales características de la 
formulación mixta, incluyendo sus ventajas e inconvenientes. Notemos que: 

1. Los requisitos de continuidad sobre las funciones de forma seleccionadas 
se reducen. Se ve fácilmente que mientras que la forma irreducible 
[viz. Ec. (12.5)] requiere continuidad C 0 de las funciones de forma, las 
integrales de la Ec. (12.14) permiten que N q sea discontinua, dado que 
no aparecen sus derivadas. Alternativamente, esta discontinuidad puede 
ser transferida a N¿ (utilizando el teorema de Green en la integral en C) 
manteniendo entonces continuidad C 0 para N q . 

Esta relajación de continuidad es de particular importancia en 
problemas de flexión de placas y láminas (viz. Vol. 2) y ciertamente 
los usos más importantes e iniciales de las formas mixtas se han hecho 
en ese contexto. 6-9 

2. Si el interés se centra en la variable q más que en <f>, el uso de una 
aproximación mejorada para ella puede resultar en mayor precisión 
que la que es posible obtener con la formulación irreducible discutida 
previamente. De hecho, en la Sección 12.8.3 se muestra cómo una 
aproximación de la tensión C 0 -continua puede mejorar sensiblemente los 
resultados de un análisis estándar en desplazamientos. Sin embargo, 
debemos notar que si la función de aproximación de q es capaz de 
reproducir exactamente el mismo tipo de variación que la determinada 
por la forma irreducible, entonces no se consigue mejora en la precisión 
y, de hecho, las dos aproximaciones resultan en idénticos resultados. 

Por tanto, si consideramos, por ejemplo, la aproximación mixta de los 
problemas de campo tratados usando un triángulo lineal para determinar 
y N g constantes a trozos, como se muestra en la Figura 12.1, 
obtendremos exactamente los mismos resultados que con la formulación 
irreducible con las mismas aplicadas directamente a la Ec. (12.5), 
siempre que k sea constante dentro de cada elemento. Esto es evidente 
ya que la segunda de las ecuaciones (12.13) es precisamente la forma débil 
usada para derivar la formulación irreducible, en la que la primera de las 
ecuaciones se satisface idénticamente. 
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q constante q lineal <¡> lineal 



Figura 12.1 Una aproximación mixta al problema de transmisión de calor que 
produce resultados idénticos que la forma irreducible correspondiente 
(se supone k constante en cada elemento). 

Ciertamente, si elegimos usar una forma de aproximación lineal 
pero discontinua para N 9 en el interior del triángulo, obtendríamos 
exactamente los mismos resultados, con los coeficientes adicionales 
tomando el valor cero. Este descubrimiento fue hecho por Fraeijs de 
Veubeke 10 y se llama principio de limitación, estableciendo que bajo 
ciertas circunstancias no se puede esperar una precisión adicional de 
las formulaciones mixtas. En un caso más general, donde k sea, por 
ejemplo, discontinuo y variable dentro de un elemento, los resultados de 
la aproximación mixta serán distintos y tal vez superiores. Obsérvese que 
una aproximación Co-continua para q podría mejorar los resultados, ya 
que no es capaz de un campo discontinuo. 

3. Las ecuaciones que resultan de las formulaciones mixtas a menudo 
presentan términos nulos en la diagonal, como ocurre en el caso de la 
Ec. (12.13). 

Ya observamos en el Capítulo 9 que esto es característico de 
problemas sujetos a restricciones lagrangianas. De hecho, éste es el 
origen del problema, que añade cierta dificultad a los procesos estándar 
de eliminación gaussiana usados para resolver sistemas de ecuaciones 
(viz. Capítulo 15). Como la forma de la Ec. (12.13) es típica de muchos 
problemas de dos campos, nos referimos a la primera variable (q) como 
la variable primaria y a la segunda (0) como la variable de restricción. 

4. El número adicional de variables significa que generalmente se tiene que 
trabajar con problemas algebraicos de mayor tamaño. Sin embargo, en 
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Sección 12.8 veremos cómo tales dificultades pueden evitarse a menudo 
usando una solución iterativa apropiada. 

Las características discutidas hasta ahora no mencionan un punto vital 
que se discute en la sección siguiente. 

12.3 Estabilidad de la aproximación mixta. £1 test de la parcela. 

12.3.1 Requisitos generales. A pesar de la relajación de los requisitos de 
continuidad sobre las funciones de forma en la aproximación mixta, ésta 
no proporciona resultados con sentido para ciertas elecciones particulares 
de estas funciones. Esta limitación es ciertamente mucho más severa 
que en la formulación irreducible, donde una condición muy simple, 
"gradiente constante" (o deformación constante) es suficiente para garantizar 
convergencia si se cumplen los requisitos de continuidad. Las razones 
matemáticas de esta limitación fueron tratadas por Babuska 11 y Brezzi, 12 
quienes formularon un criterio bastante complejo asociado a sus nombres. 
Sin embargo, el origen de alguna de las dificultades (y, por tanto, las formas 
de evitarlas) se identifica a partir de razonamientos bastante simples. 

Si consideramos el sistema de ecuaciones (12.13) como típico de muchos 
sistemas mixtos en los que q es la variable primaria y <¡> la variable de 
restricción (equivalente a un multiplicador de Lagrange) se observa que 
la solución puede llevarse a cabo eliminando q de la primera ecuación y 
sustituyendo en la segunda para obtener 

(C^A- 1 ^ = -f 2 + C'A^fi (12.15) 

siempre que la matriz A sea no singular (o Aq ^ 0 para todo q ^ 0). Para 
calcular ^ es necesario asegurar que la matriz entre paréntesis, esto es, 

H = C^A-'C (12.16) 

no es singular 

La matriz H será siempre singular si el número de incógnitas en el vector 
q, al que llamaremos n ? , es menor que el número de incógnitas en el 
vector ^. Por tanto, para evitar la singularidad se necesita que 

n q > n¿ (12.17) 

La razón para esto es evidente, ya que el rango de la matriz (12.16), que 
necesita ser n^, no puede ser mayor que n g , esto es, el rango de A -1 .f 

t En algunos problemas la matiiz A puede ser singular. Normalmente se puede convertir 
en no singular mediante la adición de un múltiplo de la segunda ecuación, cambiándola 
por Á = A + 7CC T y f ! = f i + 7Cf a , donde y es un número arbitrario. 
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La misma condición (12.17) asegura que sean posibles soluciones no 
triviales para las variables q. Si es violada, se producirá "bloqueo" o 
resultados no convergentes, dando soluciones casi nulas para q [viz. Capítulo 
9, Ec. (9.165) y siguientes]. Para mostrar esto reemplacemos la Ec. (12.13) 
por su forma penalizada: 



A C 

C T -l/a 



íql = í fl l con a^oo 

l^J l*2j y 1 = matriz identidad 



La eliminación de <¡> lleva a 

(A + aCC r )q = fi + aCf 2 (12.19) 
A medida que a — » oo la ecuación queda simplemente 

(CC T )q = Cf 2 (12.20) 

Deben existir soluciones no triviales para q aún considerando f 2 = 0 y, por 
tanto, la matriz CC r debe ser singular. Esta singularidad se dará siempre si 

n>q > n<j>- 

Sin embargo, es posible que se dé esta singularidad incluso si > n 9 , 
siempre que las relaciones C T q sean linealmente dependientes. En este caso 
no ocurre bloqueo y se puede hallar una solución para q, aunque H en la 
Ec. (12.16) sea aún singular y por ello no exista solución única para ^. 

Las condiciones de estabilidad derivadas para el ejemplo particular de 
la Ec. (12.13) son válidas en general para cualquier problema que tenga 
la forma estándar de restricción lagrangiana. En particular, la condición 
necesaria de la Ec. (12.17) bastará en la mayoría de los casos para determinar 
la aceptabilidad de un elemento. 

12.3.2 El test de la parcela. El test de la parcela para elementos mixtos 
puede realizarse exactamente de la misma forma en que se describió en el 



Aunque ambas matrices A y CC T son singulares, su combinación A no lo es, siempre 
que se cumpla que para todos los vectores q ^ 0, o bien 

Aq ^ 0 o C T q ¿ 0 

(En terminología matemática esto significa que A es no singular en el subespacio trivial 
de C T ) 

Los requisitos de la Ec. (12.17) son condición suficiente pero no necesaria para la no 
singularidad de la matriz H. Un requisito adicional evidente en la Ec. (12.15) es que 

t¿ 0 para todo 4> ¿ 0 

En caso contrario, la solución no será única. 

Los requisitos mencionados son inherentes a la condición de Babuska- Brezzi mencionada 
previamente, pero pueden ser siempre verificados algebraicamente. 
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(a) 



A 





n s = 6 - 1 = 5 



No pasa el test 



Restringido 



Pasa test 

(pero con resultados 
equivalentes a la forma 
irreductible) 



Figura 12.2 Test de la parcela para un elemento aislado en aproximaciones mixtas 
al problema de transmisión del calor con flujos q discontinuos: 
(a) <f>, cuadrático C 0 ; q constante; (b) <f> , cuadrático C 0 ; q lineal. 



capítulo previo para elementos irreducibles. Dado que la consistencia viene 
fácilmente asegurada al tomar un espacio de aproximación polinómico, sólo la 
estabilidad precisa ser investigada en general, y la mayoría de las respuestas 
a esta cuestión se obtienen asegurando que la condición (12.17) se satisface 
para una parcela aislada en cuyo contorno se prescribe el máximo número de 
variables de q y el mínimo número de variables de ^. 13 

En la Figura 12.2 se ilustra el test con un solo elemento para dos 
posibles formulaciones con (cuadráticas) C 0 -continuas y N q discontinuas 
y tomadas o bien constantes, o bien lineales dentro del elemento triangular. 
Dado que aquí no se pueden especificar valores de q en el contorno,! se n J a 
un único valor de <f> (necesario para asegurar unicidad) en el contorno de la 
parcela — que aquí es simplemente el contorno del elemento-. El recuento 
muestra que sólo una de las formulaciones, esto es, la de variación lineal del 
flujo, satisface la condición (12.17) y es, por tanto, aceptable. 

En la Figura 12.3 se ilustra un test similar para el mismo elemento pero 
con idénticas funciones de forma C 0 continuas tanto para las variables q como 
para las ^. Este ejemplo muestra que la condición básica de la Ec. (12.17) 
se satisface, por lo que ésta es una formulación aparentemente permisible. 

A veces pueden surgir dificultades incluso si el test de la parcela se 
satisface, y éstas vienen indicadas matemáticamente por la ya mencionada 



t En la formulación dada, la especificación de los flujos en el contorno no se impone como 
una prescripción en las variables q 
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Figura 12.4 Algunas situaciones en las que continuidad C 0 en el flujo q no es 
adecuada: (a) cambio discontinuo en las propiedades del material; 
(6) singularidad. 



condición de Babuska-Brezzi 14 (ver nota a pie de página anterior). Estas 
dificultades pueden deberse a la imposición de excesiva continuidad en 
el problema al exigir, por ejemplo, que el flujo sea C 0 -continuo. En la 
Figura 12.4 se ilustran algunos casos en los que la imposición de dicha 
continuidad es físicamente incorrecta y, por tanto, se puede esperar que 
produzca resultados erróneos (y a menudo altamente oscilantes). En tales 
problemas se recomienda que la condición de continuidad sea relajada, al 
menos, localmente. 

En la Sección 12.4.4 se amplía la discusión sobre este problema. 

12.4 Formulación mixta en elasticidad 

12.4.1 Generalidades. En toda la formulación previa de problemas de 
elasticidad en este libro se ha usado la formulación irreducible, tomando 
los desplazamientos u como variable primaria. Se ha usado el Principio de 
los Trabajos Virtuales para establecer las condiciones de equilibrio, que se 
pueden escribir como (viz. Capítulo 2) 



/ 6e T <rdü- í 6u T bdü- í 6u T tdT = 0 (12.21) 
Jü Jn JT t 
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donde t son las fuerzas de superficie prescritas en r¿, y con 

<r =Be (12.22) 

como relación constitutiva (se omiten aquí por claridad las deformaciones y 
tensiones iniciales). 

Recordemos que expresiones como la Ec. (12.21) son equivalentes a usar 
residuos ponderados (viz. Capítulo 9) y en lo que sigue utilizaremos estos 
últimos a menudo. En lo anterior las deformaciones se relacionan con los 
desplazamientos a través del operador matricial S introducido en el Capítulo 
2, de forma que 

e = Su (12.23) 
Se = SSu (12.24) 

con las interpolaciones para desplazamientos obligadas a satisfacer los 
desplazamientos prescritos en F u . Naturalmente, esto es equivalente a una 
ponderación de tipo Galerkin. 

Con el desplazamiento u aproximado como 

u S ü = N u ü (12.25) 

las ecuaciones de rigidez necesarias se obtienen en función del vector de 
desplazamientos incógnita ü y a partir de éstas, la solución. 

Es posible usar formas mixtas en las que a o e, o incluso ambas variables, 
sean aproximadas independientemente. Tales formulaciones se discuten a 
continuación. 

12.4.2 La forma mixta u-a. Aquí supondremos que la Ec. (12.21) es válida, 
pero <r se aproxima independientemente como 

<x = N a * (12.26) 

y la relación constitutiva 

<r = DSu (12.27) 

se satisface de forma aproximada, lo que sustituye a (12.22) y (12.23). La 
forma integral aproximada se escribe como 

/ 6<r T (Su-T>- 1 <r)dSl = 0 (12.28) 
j n 

donde la expresión entre paréntesis es simplemente la Ec. (12.27) 
premultiplicada por D _1 para conseguir simetría, y Ser se introduce como 
función de peso. De hecho, las Ees. (12.21) y (12.28) que ahora definen el 
problema son equivalentes a la estacionariedad del funcional 
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n HR =- f <r T T>- l adÜ+ ( u r (S r <r + b)- / u T (G<r-t)dr (12.29) 
2 Jn Jn JT t 

donde las fuerzas de superficie en el contorno son 

t = G<r 



u = u 

se prescribe en T u , como el lector puede verificar fácilmente. Este es el 
conocido principio variacional de Hellinger-Reissner, 15,16 pero, como ya se 
ha mencionado, no es necesario para derivar las ecuaciones aproximadas. 
Usando 

N u en lugar de Su 

B = SN U en lugar de S e 
N a en lugar de Su 

se pueden escribir las ecuaciones (12.28) y (12.21) en la forma estándar 
[viz. Ec. (12.13)] 

A 



; : - i 



(12.31) 



A = - f NJD^No- dÜ 

C = + / NjB dü 
Jn 

fi = o 

f»-= + / Njb<fQ+ / Njtár 
Jn Jr t 

En la forma anterior las funciones de forma N u requieren todavía 
continuidad C 0 , mientras que las N a pueden ser discontinuas. Sin embargo, 
la integración por partes de la expresión de C permite la reducción de tal 
continuidad y, de hecho, esta forma ha sido usada por Herrmann 6,17,18 en 
problemas de placas y láminas. 

Una forma mixta u - e se puede obtener de forma análoga y se deja al 
lector la derivación como un ejercicio simple. 

12.4.3 La forma mixta u-a-e. Un problema de tres campos. Naturalmente, 
es posible usar aproximaciones independientes para todas las variables 
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esenciales que intervienen en el problema de elasticidad. Se pueden escribir 
entonces las tres ecuaciones (12.23), (12.22), (12.21) en su forma débil como 



/ 8e T {T>e - a) dü = 0 
Jn 

i 6(r T (S\i-e)d(l = 0 
Jn 

f 6(Su) T <rdü- í 6u T bdü- í 
Jn Jn JT, 



(12.32) 



6u T t dT = 0 



con su correspondiente principio variacional exigiendo la estacionariedad de 

Rhw= í ]-e T T>edn- ( u T hdü- í a T (e - Su) dü - ( u T tdY (12.33) 
Jn 2 Jn Jn JTt 

donde u = ü se prescribe en r u .f. Este principio se conoce con el nombre 
de Hu-Washizu 5 . Sin embargo, se puede proceder directamente, usando la 
Ec. (12.32) y tomando las siguientes aproximaciones 



u = ü = N u ü 



*2É* = -N a & y c^¿ = N £ c 



y sus correspondientes "variaciones", y escribir las ecuaciones aproximadas 
de forma similar a lo hecho en la sección anterior. Esto lleva a un sistema de 
ecuaciones de la forma 



(12.34) 



A 


c 


0' 






C T 


0 


E 


II! 




. 0 


E T 


0. 







donde 



Jn 

f N^Bdü 
Jn 

Jn 
f 2 = 0 

/ N£b¿n+ / Njtdr 
Jn Jr t 



(12.35) 



t Es posible incluir las condiciones de contorno en desplazamientos en la Ec. (12.33) de 
forma natural en vez de imponerlas; sin embargo, la mayoría de las aplicaciones del 
principio en elementos finitos se hacen de la forma señalada. 
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El lector habrá observado que en esta sección de nuevo se han citado los 
principios variacionales como un tema interesante simplemente, y que todas 
las aproximaciones se han hecho directamente. 

12.4.4 Estabilidad de la aproximación de dos campos en elasticidad (u - <r; 
u-e). Antes de intentar la formulación de aproximaciones mixtas de interés 
práctico en detalle se deben considerar problemas de estabilidad idénticos a 
los discutidos en la Sección 12.3. 

Para las formas u - <r, está claro que a es la variable primaria y u la 
variable de restricción (viz. Sección 12.2), y se tiene, tanto para el problema 
total como para cada parcela de elementos, la condición necesaria pero no 
suficiente, 

n a > n u (12.36) 

donde n 0 y n u son los números de grados de libertad de las variables 
correspondientes. 

En la Figura 12.5 se considera un problema plano bi-dimensional y se 
muestra una serie de elementos en los que N a son discontinuas, mientras que 
N u son C 0 - continuas. Nótese que, en virtud del "principio de limitación", 
todos los elementos que pasen el test para un solo elemento producirán de 
hecho idénticos resultados que los obtenidos mediante la forma irreducible 
equivalente, siempre que la matriz D sea constante dentro de cada elemento. 
Estos elementos presentan, por tanto, poco interés. Sin embargo, nótese 
que el Q 4/8, que falla en el test para un solo elemento, pasa el test 
para ensamblajes de dos o más elementos, y puede por tanto usarse, 
comportándose bien en múltiples circunstancias. Se verá más tarde que este 
elemento es equivalente a usar integración reducida, con cuatro puntos de 
Gauss (viz. Sección 12.7), y como ya se mencionó en el Capítulo 11, tales 
elementos no son siempre robustos. 

Es interesante notar que si se usa mayor orden de interpolación para a 
que para u, el test de la parcela se satisface siempre, pero en general los 
resultados no mejoran. 

No se muestra el test de la parcela análogo para funciones N a in- 
continuas, pero diremos que, de forma similar al ejemplo de la Figura 12.3, 
interpolaciones idénticas de N a y N u son aceptables desde el punto 
de vista de la estabilidad. Sin embargo, como en la Figura 12.4, la 
restricción de excesiva continuidad para las tensiones tiene que evitarse en las 
singularidades y superficies de cambio en las propiedades de los materiales, 
donde sólo las tracciones normales y tangenciales son continuas. Se mostrará 
en la Sección 12.8.3 que las interpolaciones continuas de tensión a menudo 
producen una importante mejora en la precisión. 

La desconexión de las variables de tensión en los nodos de esquina sólo 
puede llevarse a cabo para todas las variables. Por esta razón se puede 
introducir un grupo alternativo de elementos con nodos de tensión en los 
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*„=3 

*„=4x2-3=5 
(no pasa) 



=3x3=9 
=8x2-3=13 
(no pasa) 



=4x3=12 
=8x2-3=13 
(no pasa) 



=4x3=12 
=9x2-3=15 
(no pasa) 




Dos Elementos Q 4/8 
> ensamblados por 
el test de la parcela 



Ai, r =8x3=24 
«„= 13x2-3=23 
(pasa) 

Figura 12.5 Formulación mixta <r - u para elasticidad. Aproximación discontinua 
de tensiones. Test de la parcela para un solo elemento. Sin 
prescripción para las variables <r, pero tres grados de libertad de ü 
prescritos por parcela. Condición de test n a > n u (X se refiere a las 
variables de & (3 GDL) y Q a las de ü (2 GDL)). 

contornos del elemento (viz. Figura 12. 6). 19 

En tales elementos la excesiva continuidad puede evitarse fácilmente 
desconectando sólo las componentes normales de tensión paralelas a la 
interfase donde se da el cambio de material. Debe notarse que incluso en el 
caso en que todas las componentes de tensión estén conectadas en los nodos 
de mitad de lado, tales elementos no aseguran continuidad de tensiones a lo 
largo de toda la interfase. De hecho, la magnitud de tal discontinuidad puede 
ser útil como una medida de error. Sin embargo, debe notarse que para el 
elemento lineal [Figura 12.6 (a)] las tensiones interelementales son continuas 
en la media. 

Naturalmente, es posible derivar elementos que presenten continuidad 
completa de las componentes apropiadas de tensión a lo largo de las 
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a lineal 



u lineal 





Figura 12.6 Formulación mixta a — u para elasticidad. Continuidad parcial en 
<r (continuidad sólo en los nodos), (o) <r lineal, u lineal; (6) posible 
transformación de tensiones en la interfase con <r ít desconectada. 

interfases, y de hecho esto fue llevado a cabo por Raviart y Thomas 20 para el 
problema de transmisión del calor discutido anteriormente. La extensión al 
problema tensional es difícil 21 y aún no se han utilizado tales elementos con 
éxito. 

12.4.5 Condición de estabilidad para la aproximación de tres campos (e — 
<r — u). La condición de estabilidad derivada en la Sección 12.3 [Ec. (12.17)] 
para problemas de dos campos, y que después se ha usado en la Ec. (12.36) 
para la forma de elasticidad mixta simple, necesita ser modificada cuando se 
consideran aproximaciones de tres campos de la forma dada en la Ec. (12.34). 
Muchos otros problemas son similares (por ejemplo, flexión de placas) y, por 
tanto, las condiciones de estabilidad son útiles en general. El requisito es 
ahora que 



n <7 ^ n u 



(12.37) 



Esto se estableció por primera vez en la referencia 22, y se deduce 
directamente del criterio para dos campos como se muestra a continuación. 
El sistema de la Ec. (12.34) puede ser "regularizado" sumando 7E veces la 
tercera ecuación a la segunda, siendo 7 una constante arbitraria. Se tiene ahora 



ACO 
C T 7 EE T E 
0 E T 0 




348 



El Método de los Elementos Finitos 



Eliminando e usando la primera de las ecuaciones se tiene 



7 EE T 



CU^C, El / c \ _ / f 3 + 7 Ef, - C T A-% \ 
3 T - oJlü/-\ f 3 / 



De los requisitos para el problema de dos campos [Ec. (12.17)] se tiene que para 
la no singularidad es necesario que 

n a > n u 

Reescribiendo la Ec. (12.34) como 



A 

0 



0 c 
0 E T 
E 0 




y regularizando de nuevo sumando múltiplos 7C y 7E T de la tercera de las 
ecuaciones a la primera y la segunda, respectivamente, se obtiene 

fA + 7 CC T , 7 CE | C 
7 E T C T , 7 E T E | E T 











]! 






, t+ H 











C T , E | 

Subdividiendo el sistema como se muestra es evidente el requisito 



n e + n u > n a 

No discutiremos en detalle ninguna de las posibles aproximaciones a la 
formulación e — a — u o los correspondientes tests de la parcela, ya que 
los argumentos son similares a aquéllos aplicados para los problemas de dos 
campos. 

En algunas aplicaciones prácticas de la aproximación de tres campos, 
la aproximación de la segunda y tercera ecuaciones en (12.32) se usa 
directamente para eliminar todos los términos menos el de desplazamientos. 
Esto lleva a una forma especial del método de desplazamientos a la que se ha 
llamado forma B(B-barra) 23,24 . En la forma B las derivadas de las funciones 
de forma se sustituyen por aproximaciones provenientes de la forma mixta. 
En la Sección 12.5.2 se ilustra este concepto con un ejemplo de un material 
cuasi-incompresible. 



12.5 Elasticidad incompresible (o cuasi-incompresible) 

12.5.1 Aproximación de dos campos (u — p). Se ha dicho anteriormente que 
la formulación estándar en desplazamientos para problemas elásticos falla 
cuando el coeficiente de Poisson se acerca a 0.5 o cuando el material se vuelve 
incompresible. De hecho, surgen problemas incluso si el material es cuasi- 
incompresible con v > 0.4 y la aproximación lineal con elementos triangulares 
da resultados altamente oscilantes en tales casos. 
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La aplicación de una forma mixta para dichos problemas evita las 
dificultades y es de gran interés práctico, ya que el comportamiento elástico 
cuasi-incompresible aparece en muchos problemas reales de ingeniería, que 
van desde la mecánica de suelos hasta la ingeniería aeroespacial. Idénticos 
problemas aparecen cuando se considera el flujo de fluidos incompresibles. 

El principal problema de la aplicación de la formulación "estándar" en 
desplazamientos en problemas incompresibles o cuasi-incompresibles consiste 
en la determinación de la tensión media o presión, que está relacionada 
con la parte volumétrica de la deformación. Por esta razón es conveniente 
separar ésta del campo de tensiones totales y tratarla como una variable 
independiente. Usando la notación "vectorial" para las tensiones, la tensión 
media o presión viene dada por 

p = ± ^ + = ^™ (12.38) 
3 3 

donde m viene dado, para el caso general de un estado tridimensional de 
tensiones, por 

m r = [1,1,1,0,0,0] 

La "presión" está relacionada con la deformación volumétrica, e v , a través 
del módulo de deformación volumétrica del material K para comportamiento 
isótropo. Por tanto, 

e, = e x + e y + e z = m T e (12.39) 
e,=¿ (12-40) 

Para un material incompresible, K = oo y la deformación volumétrica es 
simplemente nula. 

La deformación desviadora e¿ está definida como 

e<¡ = e -^ M i_i mm r )e (i 2 .41) 

y está relacionada con la tensión desviadora <r¿, en elasticidad isótropa, a 
través del módulo de cortante G de la forma 

2 

<r d = a - mp - GV 0 ed = G ( D o ~ ^m^ (12.42) 

donde la matriz 

\2 0 
2 

D 0 = 2 ! 

1 

.0 U 
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debe introducirse debido a la notación vectorial adoptada. 

Las relaciones anteriores no son sino una forma alternativa de las 
relaciones tensión-deformación mostradas en los Capítulos 2 y 3, y el lector 
puede verificar que 

G = 2(rb) K = ^T) ( 12 - 43 > 

y las Ees. (12.42) y (12.40) pueden usarse para definir la matriz D estándar 
de una forma alternativa. 

En la forma mixta considerada a continuación usaremos como variables 
el desplazamiento u y la presión p. 

Reescribimos ahora la ecuación de equilibrio (12.21) usando (12.42) y 
tratando a p como variable independiente, como 

/ fc T [G(D 0 -^mm T )e + mp]¿fí- í Su T bdü- f 6u T idT = 0 (12.44) 

Jn ó Jn Jv t 

e impongamos además una forma débil de la Ec. (12.40), esto es, 

J 6p T [m T c - |:J dÜ = 0 con e = Su (12.45) 

Aproximaciones independientes para u y p de la forma 

u = u = N u ü y p~p = N p p (12.46) 
llevan inmediatamente a la aproximación mixta escrita, como 



A 



(12.47) 



donde 



A = / B r C?(D 0 - fmm r )B dü 

JO, 

C = j B r mN p áíí 

-ÍK) (12 - 48) 

Jq Jvt 
f 2 = o 

Nótese que para situaciones incompresibles las ecuaciones son de la forma 
"estándar" [viz. Ec. (12.13)] con V = 0 (a medida que K — ► oo), pero la 
formulación es de uso práctico cuando K tiene un valor alto (o v — * 0.5). 
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Una formulación similar a la anterior y usando el correspondiente teorema 
variacional fue propuesta por primera vez por Herrmann 26 , y generalizado 
más tarde por Key 26 para elasticidad anisótropa. 

Los argumentos concernientes a la estabilidad (o singularidad) de las 
matrices que se presentaron en la Sección 12.3 son de nuevo de gran 
importancia en este problema. 

Claramente, la condición sobre el número de grados de libertad es ahora 
[viz. Ec. (12.17)] 

n u > n p (12.49) 

y debe ser tenida en cuenta para evitar bloqueo (o inestabilidad) de la 
solución, ya que ahora la presión actúa como variable de restricción o 
multiplicador de Lagrange para forzar la incompresibilidad. 

En la forma de test de la parcela esta condición es crítica y se muestran 
en las Figuras 12.7 y 12.8 una serie de dichos tests para elementos con 
interpolación C 0 -continua para u e interpolación, bien discontinua, bien 
continua para p. Para cada uno se incluyen todas las combinaciones de 
funciones constantes, lineales y cuadráticas. 

En el test se prescriben todos los desplazamientos en el contorno 
de la parcela y una variable de presión (ya que es sabido que en 
situaciones totalmente incompresibles la presión queda indeterminada por 
una constante). 

El test para un solo elemento es muy exigente y elimina a la mayoría de 
las aproximaciones continuas de presión, cuyo comportamiento es en realidad 
aceptable en muchas situaciones. Por esta razón le damos mayor importancia 
al test para un ensamblaje de elementos, y parece que los siguientes elementos 
son aceptables de acuerdo con el criterio de la Ec. (12.49) (de hecho todos 
satisfacen la condición de B-B): 

Triángulos: T 6/1 T 10/3 T 6/C3 
Cuadriláteros: Q 9/3 Q 8/C4 Q 9/C4 

Nótese, sin embargo, que en las aplicaciones prácticas se han obtenido 
resultados adecuados con los cuadriláteros Q 4/1, Q 8/3 y Q 9/4, aunque 
p pueda sufrir oscilaciones importantes. Si lo que se busca es elementos 
robustos, las opciones son limitadas 2 . 

Es desafortunado que en la lista de elementos "aceptables" falten el 
triángulo y cuadrilátero lineales. Esto restringe apreciablemente el uso de 
estos elementos más simples. Un procedimiento posible, y de hecho efectivo, 
es aplicar la restricción de presión no a nivel de un elemento singular, sino 
a un ensamblaje de elementos. Esto lo hizo Herrmann en su presentación 
original, 25 donde se tomaban cuatro elementos para tal restricción, como 
se muestra en la Figura 12.9(a¿ Este "elemento"' pasa los tests de la 
parcela para un solo elemento (y para varios) , pero aparentemente también 
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lo hacen otros elementos que encajan en esta categoría. En la Figura 12.9(6) 
se muestra como un triángulo se puede subdividir internamente en tres 
partes al introducir un nodo central. Esto, junto con presión constante 
en el ensamblaje, permite que se satisfaga la condición necesaria, y un 
procedimiento estándar aplicado al triángulo original hace que el nodo central 
pueda ser tratado como variable interna. De hecho, se puede conseguir 
el mismo efecto introduciendo cualquier otra función elemental interna que 
dé valor nulo en el perímetro del triángulo principal. Tal función burbuja 
puede escribirse simplemente en función de las coordenadas de área (viz. 
Capítulo 7) como 



2/1^2-^3 

Sin embargo, como ya se ha dicho, el recuento de los grados de libertad 
es una condición necesaria, pero no suficiente, de estabilidad, y se precisan 
otras pruebas. En particular, se puede verificar algebraicamente que las 
condiciones establecidas en la nota en el pie de página anterior no se satisfacen 



• o u variables (restringido, libre) 2 GDL 
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Figura 12.7(a) Formulación u - p para elasticidad incompresible. Aproximación 
discontinua de la presión, (a) Tests de la parcela para un solo 
elemento, (b) Tests de la parcela para varios elementos. 
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Figura 12.7(6) 
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O u variables (restringido, libre) 2 GDL 
/\ p variables (restringido, libre) 1 GDL 



T 3/C3 




T6/C6 




T6/C3 




0 4/C4 




OS/C8 




Q8/C4 





0 9/C4 




(no pasa) 



(no pasa) 





T6/C6 




T6/C3 




= 9x2=lK 
= 8 



Figura 12.8 Formulación u - p para elasticidad incompresible. Aproximación C 0 - 
continua de la presión, (a) Tests de la parcela para un solo elemento. 
(b) Tests de la parcela para varios elementos. 
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| | | Carga 




/ Para que no cambie 

/ el volumen sólo 

/ está permitido el 

/ movimiento horizontal 

é 

Triángulo 2 

Figura 12.10 Bloqueo (desplazamientos nulos) en un ensamblaje simple de 

triángulos lineales en los cuales se requiere incompresibilidad 
completa (n p — n u — 24). 

para esta triple subdivisión del triángulo lineal (o en el caso de la función 
burbuja) y, por tanto, 

Cp = 0 para algunos valores no triviales de p 

con lo cual la inestabilidad subsiste. 

En la Figura 12.9(c) se muestra, sin embargo, que el mismo concepto se 
puede aplicar satisfactoriamente para p <7o-continua. Subdivisiones internas 
similares en cuadriláteros y la introducción de funciones burbuja pueden 
usarse con éxito, tal como se muestra en la Figura 12.9(<¿). 

El comportamiento de todos los elementos mencionados anteriormente 
ha sido extensamente discutido, 27-32 pero una comparación detallada de 
sus méritos es difícil. Como ya se ha dicho, es esencial tener n u > n p , 
pero si sólo se logra la casi igualdad en un problema de gran tamaño se 
obtienen resultados sin sentido para u, como se observa, por ejemplo, en la 
Figura 12.10, en la que se usan triángulos lineales para uyp constante en 
el elemento. Aquí, la única respuesta posible es naturalmente u = 0, ya que 
los triángulos deben mantener su volumen constante. 

La relación n u /n p que se obtiene cuando el campo de elementos se 
agranda da una indicación del comportamiento relativo, tal como se muestra 
en la Figura 12.11. Esto aproxima el comportamiento de un ensamblaje muy 
grande de elementos, pero naturalmente en cualquier problema práctico tal 
relación depende de las condiciones de contorno impuestas. 
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Triángulos (T) Cuadrángulos (O) 




10/3 




9/3 




6B1/3 




W4 j* 



o ó y = 





Figura 12.11 El índice de libertad o relación de parcela infinita para varios 
elementos u-p para elasticidad incompresible (7 = n u /n p ). 
(a) Presión discontinua. (6) Presión continua. 

Nótese que para la aproximación discontinua de presión esta relación para 
los elementos "buenos"' es de 2 a 3, mientras que para la presión C 0 -continua 
es de 6 a 8. Todos los elementos mostrados en la Figura 12.11 se comportan 
muy bien. 
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12.5.2 Aproximación de tres campos (u — p — e v )« El método B— barra para 
materiales cuasi- incompresibles. Una aproximación directa a la forma de 
tres campos lleva a un método importante dentro de los procedimientos 
de solución por elementos finitos para materiales incompresibles al que se 
llama a veces método B-barra. La metodología puede exponerse para el 
problema (cuasi) incompresible. Se ha demostrado que la forma normal 
irreducible (método de desplazamientos) sufre "bloqueo" para el problema 
Cuasi-incompresible. Como se muestra en la Seccción 12.5.1, el uso de 
un método mixto puede evitar el fenómeno del bloqueo si se implementa 
adecuadamente (por ejemplo, usando la forma de dos campos Q 9/3). A 
continuación se presenta una alternativa que conduce a una implement ación 
eficiente y precisa en muchas situaciones. En este desarrollo supondremos 
que el material es isótropo, pero puede extenderse fácilmente para incluir 
materiales anisótropos. 

Suponiendo aproximaciones independientes para e v y p se puede formular 
el problema usando las Ec. (12.44) y la forma débil de la relaciones (12.39) 
y (12.40) escritas de la forma 

/ 6p[e v -m T Su]dn = 0 (12.50) 
Jü 

í 6e v [Ke v -p]dn = 0 (12.51) 
Jn 

y (12.44). 

Si se aproximan los campos u y p como en (12.46), y 

e v » é v = N v ¿„ (12.52) 
se obtiene una aproximación mixta de la forma 



ACO 

C r 0 -E 
0 -E r H 

donde A, C, f¿ se dan en (12.48), y 









1 


m 











(12.53) 



E = J NjN„<¿ft f 3 = 0 (12.54) 

con 

H= / NlKNvdÜ (12.55) 
Ja 

La segunda ecuación de (12.53) tiene la solución 



e v =E 1 C r ü = Wü 



(12.56) 
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En lo anterior se ha supuesto que E es invertible, lo que implica que N v y 
Np tienen el mismo número de términos. Ademas, las aproximaciones para 
la deformación volumétrica y la presión se construyen para cada elemento 
individualmente y no son continuas a través de los contornos elementales. Por 
tanto, la solución de la Ec. (12.56) puede llevarse a cabo para cada elemento 
individualmente. En la práctica, N v normalmente se supone idéntica a N p 
y así E es simétrica y definida positiva. La solución de la tercera ecuación 
de (12.53) da los parámetros de la presión en función de los parámetros de 
la deformación volumétrica, de la forma 

p = (E T )- 1 H¿ V (12.57) 

Substituyendo (12.56) y (12.57) en la primera ecuación de (12.53) se obtiene 
una solución en función de desplazamientos solamente de la forma 

Áü = fi (12.58) 

donde, para materiales isótropos 

Á = / B r G(D 0 -fmm r )Bdn + W r HW (12.59) 

Ja 

La solución de (12.58) da los parámetros nodales para los desplazamientos, 
y entonces pueden usarse (12.56) y (12.57) para obtener las aproximaciones 
para la deformación volumétrica y la presión. 

El resultado de (12.59) puede ser modificado para obtener una forma 
similar a la del método estándar de desplazamientos. Para ello se escribe 

A = í B T DBdü (12.60) 
Jü 

donde la matriz de desplazamientos-deformación es ahora 

B = (I - imm r )B + |mN v W (12.61) 
Para materiales isótropos la matriz constitutiva es 

D = G(D 0 - §mm r ) + Kmm T (12.62) 

Nótese que la forma anterior es idéntica al modelo estándar de 
desplazamientos, salvo que B ha sido reemplazada por B. El método se 
discute más extensamente en las referencias 23 y 24. 

La equivalencia de (12.59) y (12.60) puede verificarse mediante simple 
multiplicación de matrices. 

La formulación presentada se ha implement ado en un elemento incluido 
como parte del programa del Capítulo 15. La elegancia del método está 
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mejor explotada en problemas no lineales, tales como plasticidad o elasticidad 
con deformaciones ñnitas. Para una discusión mas completa véase la 
referencia 24. 

Nótese que la eliminación de p también puede llevarse a cabo en la forma 
de dos campos u — p usando K como un número de penalización, pero si K 
es una variable real con variación espacial, la forma dada aquí es mucho más 
conveniente, ya que la matriz E es independiente de K. 

Naturalmente, los mismos criterios de estabilidad discutidos previamente 
para la aproximación de <ios campos son válidos aquí. 

12.6 Alisado de tensiones / muestreo óptimo 

12.6.1 Proyección de tensiones. Hemos observado en capítulos anteriores 
que la formulación de desplazamientos produce a menudo predicciones poco 
realistas de tensión, dando "saltos" de tensión inter-elementales aún cuando 
las tensiones reales son continuas. A menudo se recurre en la práctica al 
promediado nodal de las tensiones elementales para obtener una mejor visión 
de las tensiones por un proceso de proyección o recuperación variacional que 
es en sí mismo otra formulación mixta posible. 32-36 

Así se obtienen los desplazamientos u (o las temperaturas <f> en un 
problema de campo, tal como el tratado en la Sección 12.3) con una 
formulación irreducible. Sin embargo, en lugar de calcular las tensiones ir 
de la forma 

<r = DBü (12.63) 
se calculan las tensiones <r* interpoladas como 

<r* = N(j(7* (12.64) 

de tal forma que aproximen & en un sentido débil. Esta aproximación se 
puede escribir 



Jq 



&)dü = 0 (12.65) 

JSl 
o bien 

(^j N T cr N (T dU S já = (^J NjDBü^ dü (12.66) 

Ésta es casi idéntica a la primera de las ecuaciones de (12.30), usada en 
la aproximación mixta a — u, y sería idéntica si el integrando hubiera sido 
premultiplicado por D" 1 . No se ha hecho así en este caso ya que la estructura 
de la matriz en el primer miembro de la Ec. (12.66) es de especial interés. 
De hecho, nos encontramos esta forma en problemas dinámicos como una 
"matriz de masa". Si llamamos a esta matriz 
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M= / NjNaáH (12.67) 
Ju 

vemos que es fácil "diagonalizarla" de forma aproximada como M¿. En el 
Apéndice 8 se describen varios procedimientos de diagonalización y se ve que 
una de las formas más útiles es aplicar una regla aproximada de integración 
con los puntos de integración restringidos a los nodos i de N<r. Si las funciones 
N a están escritas en forma "estándar", y no en forma jerárquica, el proceso 
produce una matriz puramente diagonal. Si la Ec. (12.66) se escribe como 

Ma = P (12.68) 

se puede aproximar su solución de la forma 

a = M^P (12.69) 

donde la inversión es trivial. Se pueden obtener mejoras sucesivas de la 
solución mediante la iteración 

a n = 0 n ~ l + M^M*"- 1 - P) (12.70) 
La proyección más obvia es usar N<x continuas y tales que 

N a = (12.71) 

obteniéndose de esta manera una aproximación de mayor precisión. 

Es interesante notar que la "proyección" de la Ec. (12.66) es equivalente 
al ajuste por "mínimos cuadrados", o a la minimización de 

n= / (<r*-*) 2 dÜ (12.72) 
JU 

con respecto a a de la Ec. (12.64). 

12.6.2 Muestreo óptimo. El hecho de que las tensiones alisadas, y por 
tanto, más precisas, sean un ajuste por mínimos cuadrados de las tensiones 
calculadas proporciona una pista sobre la localización de los puntos en los 
cuales el muestreo o evaluación de tensiones es óptimo. 

Considérese la Figura 12.12 en la que se muestran tensiones (gradientes) 
lineales a trozos y discontinuos como aproximación de la distribución real. Si 
esta última es un ajuste por mínimos cuadrados de la primera, es evidente 
que en ciertos puntos ambas deben ser iguales. De hecho, esta igualdad 
ocurrirá en general en el interior de cada elemento. Si se conociera a priori 
dónde están situados dichos puntos, siempre calcularíamos en ellos la solución 
exacta; claramente esto es un sueño difícilmente realizable. 

Sin embargo, una propiedad útil de los puntos de integración de Gauss- 
Legendre puede ayudar. Esta propiedad puede enunciarse de la forma: Si 
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existe una fórmula de integración numérica con un número mínimo de puntos 
de muestreo que integra de forma exacta un polinomio de grado 2M + 1, 
entonces, en general, en tales puntos un polinomio de orden M + 1 es igual 
a su correspondiente ajuste por mínimos cuadrados mediante un polinomio 
de orden M. 

Esta proposición es exacta para el caso de integración de Gauss en una 
dimensión, y se satisface aproximadamente para expresiones de integración 
en dos y tres dimensiones. 37 

Es obvio en el ejemplo mostrado que si la curva exacta fuera una parábola, 
entonces dos puntos de Gauss definirían de forma única una recta que es su 
ajuste por mínimos cuadrados. A la inversa, si se muestrea la aproximación 
Su en estos puntos, se obtiene una precisión un orden superior que la que 
proporciona la aproximación en cualquier otro sitio. Claramente tales puntos 
son óptimos para el muestreo de la magnitud Su (o las deformaciones y 
tensiones en un problema de elasticidad). 

Para soluciones suaves se puede decir de forma bastante general que la 
aproximación a Su es siempre de orden 0(h p ~ m+1 ), donde p es el orden 
del polinomio completo en la función de forma de aproximación y m es el 
orden del operador S (Capítulo 9, Sección 9.8). Por tanto, en los puntos 
de integración numérica que integran exactamente un polinomio de orden 
2(p — m) + 1 [osea, con un error de orden 0(h 2 (P- m )+ 2 )], la aproximación a 
Su será casi un orden mejor, esto es, 0(hP~ m+2 ). 

Obviamente, en cualquier cálculo por elementos finitos es conveniente 
muestrear las deformaciones en dichos puntos de integración, como ha sido 
manifestado por muchos investigadores. 34,37-39 




Los puntos de igualdad en una aproximación 
exacta o mala son parabólicos 



Figura 12.12 Ajuste lineal por mínimos cuadrados a la curva Su de tensión o 
deformación. 
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La Figura 12.13 muestra algunos de tales puntos óptimos de muestreo 
para varios elementos del tipo Co (m = 1). 

Los resultados para triángulos y cuadriláteros lineales son físicamente 
obvios (y ya hemos mencionado en el Capítulo 3, Sección 3.2.9, que 
"obviamente" las tensiones están mejor representadas en los centroides). 
Para elementos Co de mayor orden los resultados no son en absoluto 
evidentes, pero son, sin embargo, ciertos. 

El concepto de ajuste por mínimos cuadrados tiene justificación adicional 
en problemas auto-adjuntos en los que se minimiza un funcional de energía. 
En tales casos, típicos en la formulación en desplazamientos de elasticidad, 
se puede mostrar fácilmente que la minimización es equivalente a ajustar por 
mínimos cuadrados las tensiones a las exactas. Por tanto, se puede empezar 
de forma general por una teoría que establece que la minimización de un 
funcional de energía II definido como 

U=- f (Su) T A(Su)díl + / u T pdü (12.73) 

2 Jn Jn 

que da la solución exacta u = ü, es equivalente a la minimización de otro 
funcional LT* definido como 

II* = - / [S(u - ü)] r AS(u - ü) dSl (12.74) 
2 Jn 

En lo anterior S es un operador lineal auto-adjunto, y A y p son matrices 
prescritas de posición. La forma cuadrática (12.73) es la que aparece en la 
mayoría de problemas lineales auto-adjuntos. 

Este teorema viene dado en diferentes formas por Herrmann, 40 Moan, 37 
Brauchli y Oden 38 y demuestra que la solución aproximada a Su se acerca a 
la exacta Sü como una aproximación ponderada de mínimos cuadrados. 

En el contexto del análisis elástico, por ejemplo, se puede establecer 
que la minimización de la energía potencial total es equivalente a encontrar 
un ajuste ponderado de mínimos cuadrados a las deformaciones exactas 
mediante aquéllas que se suponen de forma aproximada. 

La demostración del teorema anterior se da al final de esta sección. 

En algunas ocasiones componentes individuales de las deformaciones 
o tensiones muestran localmente una muy mala aproximación debido a 
términos espúreos de alto orden presentes en los elementos cuadriláteros. 
Aquí de nuevo los puntos de muestreo óptimo vienen al rescate. 

En la Figura 12.14 se muestra, por ejemplo, un análisis de una viga 
en voladizo usando cuatro elementos cuadráticos del tipo "serendípito" . 
Mientras los resultados para las flechas y las tensiones axiales son excelentes, 
las tensiones de cortante muestran una "variación" parabólica en cada 
elemento que resulta en una representación muy pobre de las tensiones reales. 
Sin embargo, los valores obtenidos en los puntos de Gauss son una excelente 
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Error óptimo 0(h 2 (»- m ) +2 ) 



Mínimo 0(h 2 (»- m » 1 ) 



0{h>) 



>0(h) 




0(h 2 ) 



0(h 2 ) 
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> 0(h 3 ) 
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A A 

— o— 
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0(h<) 



0(h<) 




0(h>) 



0(h*) 



Figura 12.13 Muestreo óptimo y número mínimo de puntos de integración para 
algunos elementos C 0 . 



representación de las tensiones de cortante medias correctas. 

Mejoras similares se pueden mostrar en el contexto de otros elementos y 
problemas, aunque (afortunadamente) las discrepancias no son siempre tan 
grandes. 

El ejemplo mencionado sugiere que en los elementos C 0 cuadráticos, sean 
bi- o tri-dimensionales, las tensiones (o magnitudes similares) nunca deben 
ser calculadas en los nodos. Si se desean valores nodales, entonces debe 
hacerse una proyección o una simple extrapolación bilineal a partir de los 
valores en los puntos de Gauss. Tales valores son también excelentes, como 
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El valor promedio 
de las tensiones de 
corte es exacto 
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■ Valores nodales extrapolados 

\ de los puntos de Gauss 




Valores de 
puntos de Gauss 



Carga de 0.24 por unidad 




40 



2x2 puntos de Gauss 



Figura 12.14 Viga en voladizo con cuatro elementos cuadriláteros (Q8). Muestreo 
de tensiones en los puntos de Gauss de orden cúbico en (2 X 2) con 
extrapolación a los nodos. 

se muestra en la Figura 12.14. Más ejemplos de tales extrapolaciones se dan 
en Hinton y Campbell 34 . Hinton et al Al y Barlow 39 presentan un algoritmo 
de extrapolación muy simple para estos problemas. 

Demostración del Teorema 

La variación de II definida en la Ec. (12.73) es, para u = ü (la solución exacta), 

6U= - í (S6u) T ASüdn+ \ f (Sü) T AS¿udn+ / óu T p<¿íl = 0 
2,/n 2 Jn Jíl 

o, si A es simétrica, 
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SU= í (S¿u) T ASüciO+ / ¿u T p<¿n = 0 
Ja Ja 

donde Su es una variación arbitraria. Entonces se puede escribir 

Su — u 

y 

í (Su) T ASüdn+ / u T P dn = o 

Ja Ja 
Restando la anterior de la Ec. (12.73) y notando la simetría de la matriz A, se puede 
escribir 

n = ^ / [s(u-ü)] T AS(u-ü)dn- \ í (Sü) T ASüdn 

¿ Ja 2 J n 

donde el último término no está sujeto a variación. Por tanto, 

IT = II + constante 
y su estacionariedad es equivalente a la estacionariedad de II. 

12.7 Integración reducida y selectiva y su equivalencia con 
problemas mixtos penalizados 

En el Capítulo 8 se han mencionado las reglas de integración numérica 
más bajas que preservan el orden de convergencia necesario para varios 
elementos, pero al mismo tiempo se ha apuntado la posiblidad de singularidad 
en las matrices elementales resultantes. En el Capítulo 11 nos referimos 
de nuevo a tales reglas de integración de bajo orden, introduciendo el 
nombre de "integración reducida" para aquellas que no evalúan la rigidez 
exactamente para elementos simples y apuntamos algunos peligros de su 
uso indiscriminado debido a la inestabilidad resultante. A pesar de todo, 
dichas integraciones reducida y selectiva (donde la aproximación de bajo 
orden sólo se aplica a ciertas partes de la matriz) han demostrado su valía 
en la práctica, dando a menudo resultados mucho más precisos que usando 
reglas de integración de mayor orden. Esto es particularmente notable en 
elasticidad cuasi-incompresible (o en flujo de Stokes, que es similar 42-44 ) y 
en problemas de flexión de placas y láminas tratados como un caso de sólido 
degenerado 45 - 46 . 

El éxito de estos procedimientos, derivados en principio a través de 
razonamientos heurísticos, resultó bastante espectacular — ¡aunque había 
quién pretendía, rayando en la inmoralidad, obtener mejores resultados 
haciendo menos trabajo! — . Obviamente se buscó una justiciación completa 
de estos métodos 47 y una de las razones obvias es que frecuentemente las 
fórmulas de integración reducida se aplican precisamente en los mismos 
puntos que se han identificado en la sección anterior como óptimos. Sin 
embargo, la principal razón del éxito no es esa, sino que está asociada con el 
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el hecho de proporcionar la necesaria singularidad a la parte de la matriz 
que actúa como restricción [viz. Ees. (12.18) a (12.20)], lo que evita el 
bloqueo. Tal singularidad puede ser deducida del recuento de puntos de 
integración, 47,4 * pero es más sencillo demostrar que existe una completa 
equivalencia entre los procedimientos de integración reducida (o selectiva) 
y la formulación mixta ya descrita. Esta equivalencia fue demostrada por 
primera vez por Malkus y Hughes 49 y después por Zienkiewicz y Nakazawa 80 
en un contexto general. 

Se demuestra aquí dicha equivalencia para el problema de elasticidad 
cuasi-incompresible, para el cual la forma integral débil mixta viene dada 
por las Ees. (12.44) y (12.45). 

La forma irreducible correspondiente se puede escribir satisfaciendo la 
segunda de estas ecuaciones exactamente, imponiendo 

p = Km T € (12.75) 
y sustituyendo ésta en (12.44) se tiene 

Í6e T G(B°-lmm T )edÜ+ J 6c T mK m T cdCl- J¿5u T bdCl- 6u T i dr=0 
Tras sustituir 

u ^ ü = N u ü y e«é = SNü = Bü (12.77) 

se tiene 

. (A + Á)ü = fi (12.78) 
donde A y fi son exactamente los de la Ec. (12.48), y 

B r mí:m T Bdíí (12.79) 



-L 



La solución de la Ec. (12.78) en ü permite determinar la presión en todos 
los puntos usando la Ec. (12.75). En particular, si se ha usado un esquema 
de integración para evaluar (12.79) que muestree en puntos (¿), se puede 
escribir 

p(£) = Km T e(í) = Km T B{0ü (12.80) 

Volvamos ahora nuestra atención a la forma mixta penalizada de las 
Ees. (12.44) a (12.48) y recordemos que la segunda de las ecuaciones (12.47) 
es explícitamente 

j Nj (m T Bü - dü = 0 (12.81) 
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Si se aplica a la anterior integración numérica, con muestreo en los 
nodos de presión situados en las coordenadas previamente definidas en 
la Ec. (12.80), se puede escribir para cada componente escalar de N p 

£ N P;(f ) - W ( = 0 (12.82) 

donde el sumatorio es sobre todos los puntos de integración (() y donde 
son las funciones de peso y determinantes jacobianos adecuados. 
Pero como 

Afctt) = 1 

si £ está en el nodo j y cero en los otros nodos, la Ec. (12.82) se reduce 
simplemente al requisito de que en todos los nodos de presión 

Esta es precisamente la misma condición que la de la Ec. (12.80), y queda 
probada la equivalencia entre ambos procedimientos, siempre que el esquema 
de integración usado para evaluar A permita la integración exacta de la forma 
mixta de la Ec. (12.81). 

Esto se cumple en la mayoría de los casos y entonces la equivalencia 
integración reducida-forma mixta es exacta. En los demás casos, la 
equivalencia existe para un problema mixto en el que se usa una regla de 
integración inexacta para evaluar ecuaciones tales como la (12.81). 

Para elementos isoparamét ricos curvos la equivalencia es de hecho 
inexacta, y se pueden obtener resultados ligeramente distintos usando 
integración reducida y formas mixtas. Esto queda ilustrado en ejemplos 
de la referencia 51. 

Se puede concluir, sin demostración detallada, que este tipo de 
equivalencia es bastante general, y que con cualquier problema similar la 
aplicación de una cuadratura numérica de np puntos para evaluar la matriz 
A de cada elemento es equivalente a un problema mixto en el que la variable 
p se interpola elemento a elemento tomando como valores nodales los mismo 
puntos de integración. 

La equivalencia sólo es completa para el procedimiento de integración 
selectiva, esto es, aplicación de la cuadratura numérica solo a la matriz Á, y 
asegura que esta matriz sea singular, osea, no habrá bloqueo si se satisfacen 
las condiciones previamente mencionadas (n^ > np). 

El uso de integración reducida en el resto de la matriz que determina u, 
i.e., A, sólo es permisible si ésta resulta no singular, como es el caso que se 
ha mencionado anteriormente del elemento Q 8/4. 

Se puede, por tanto, concluir que todos los elementos con interpolación 
discontinua de p que se han verificado como aplicables al problema mixto (viz. 
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Figura 12.7, por ejemplo) pueden ser implementados para situaciones cuasi- 
incompresibles con una forma irreducible penalizada y usando la integración 
selectiva correspondiente, f 

En la Figura 12.15 se muestra un ejemplo que indica claramente la 
mejoría en desplazamientos que se consigue con la integración reducida a 
medida que el módulo de compresibilidad K crece (o el coeficiente de Poisson 
tiende a 0.5). Nótese también en este ejemplo la validez con una mejora 
espectacular de tales puntos para el muestreo de tensiones. 

En problemas en los que la variable (de restricción) p se interpole 
continuamente (C 0 ) los razonamientos anteriores fallan, ya que cantidades 
como m-^e no son continuas entre elementos en la forma irreducible. 

Un corolario muy interesante de la equivalencia demostrada 
para comportamiento cuasi-incompresible se obtiene notando el rápido 
crecimiento del orden de las fórmulas de integración con el número de puntos 
en la cuadratura (viz. Capitulo 8). Para elementos de alto orden el número de 
puntos de cuadratura equivalente a la variable de restricción p admisible por 
estabilidad alcanza rápidamente la requerida para integración exacta, y por 
tanto su actuación en situaciones cuasi-incompresibles es excelente, incluso 
si se usa integración exacta. Esto ha sido observado en muchas ocasiones 52-54 
y Sloan y Randolph 55 han demostrado el buen comportamiento del triangulo 
quíntico. Desafortunadamente los elementos de alto orden presentan otras 
dificultades, y son poco usados en la práctica. 

Un comentario final sobre el uso de la integración "reducida" en 
particular, y de los métodos penalizados y mixtos en general. Como ya 
se ha señalado en la Sección 12.3.1 es posible para tales formas obtener 
resultados adecuados para la variable primaria (u en este ejemplo), incluso 
si las condiciones generales de estabilidad no se cumplen, siempre que algunas 
de las ecuaciones de restricción sean linealmente dependientes. 

Esta situación se da en algunos elementos que se utilizan a veces para la 
solución de problemas incompresibles, pero que no pasan el test de la parcela, 
tales como el Q 8/4 y Q 9/4 de la Figura 12.7. Si tomamos el último número 
como correspondiente a los puntos de integración, estos darán campos u 
aceptables, pero no p. 

La Figura 12.16 ilustra el caso en un ejemplo que corresponde a flujo 
viscoso lento a través de un orificio, un problema que obedece ecuaciones 
idénticas a las de la elasticidad incompresible. Se comparan los elementos Q 
8/4, Q 8/3, Q 9/4 y Q 9/3 aunque sólo el último satisface completamente 
los requisitos de estabilidad. Todos los elementos proporcionan un campo 
de velocidades (u) razonable, pero las presiones sólo son aceptables para el 
último, mientras que el elemento Q 8/4 no da siquiera resultados que se 
puedan dibujar. 2 



f El elemento Q 9/3 requerirá una cuadratura de tres puntos, lo cual es poco natural 
para cuadriláteros. Por lo tanto, es mejor utilizar simplemente la forma mixta. 
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Orificio 



(a) Malla de elementos 
rectangulares 





(e) Velocidades axiales, 

elementos Q 8/3, Q 9/4, Q 9/3 




(6) Variación de presión, 
elemento Q 8/3 



(/) Velocidades radiales, 

elementos Q 8/3, Q 9/4, Q 9/3 





(g) Velocidades axiales, 
elemento Q 8/4 



(c) Variación de presión, 
elemento Q 9/4 





Velocidades radiales, 
elemento Q 8/4 



(d) Variación de presión, 
elemento Q 9/3 

Figura 12.16 Estado estacionario del flujo a través de un orificio a bajo número 
de Reynolds. Nótese que la variación de la presión para el elemento 
Q 8/4 es tan grande que no puede ser dibujada. Solución con los 
elementos u/p Q 8/3, Q 8/4, Q 9/3 y Q 9/4. 
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Figura 12.17 Un cuadrilátero en el que las diagonales forman un ensamblaje de 
cuatro elementos T 3/1. Esto permite que los desplazamientos 
se puedan calcular en situaciones cuasi-incompresibles, pero no da 
resultados para presiones. 

Es interesante señalar de pasada que se da una situación parecida si se 
ensamblan cuatro triángulos T 3/1 para formar un cuadrilátero de la forma 
mostrada en la Figura 12.17. Aunque el elemento original sufre bloqueo, 
como se ha mostrado previamente, una dependencia lineal de la ecuación de 
restricción permite usar el ensamblaje de forma bastante efectiva en muchas 
situaciones incompresibles, como se muestra en la referencia. 53 

12.8 Un procedimiento simple de resolución para problemas 
mixtos 

12.8.1. Generalidades. En los comentarios sobre la solución algebraica de 
problemas mixtos caracterizados por ecuaciones del tipo [viz. Ec. (12.13)] 

se han señalado las dificultades asociadas a las diagonales con ceros y el 
aumento del número de incógnitas (n x + riy) comparado con el de la forma 
irreducible (n z ). Sin embargo, es posible una forma general de solución 
iterativa que reduce sustancialmente el coste. 56 Se resuelve sucesivamente 

y n+1 =y n +pr n (12.85) 
donde r n es el residuo de la segunda ecuación, calculado como 

r n = C r x n - f 2 
y se sigue con la solución de la primera ecuación, esto es, 

x n+l = A -i (fi _ Cy n+1) (12>8T ) 

En lo anterior p n es una "matriz de aceleración de convergencia" , escogida 
para ser eficiente y fácil de usar. 



(12.86) 
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El algoritmo es similar al descrito inicialmente por Uzawa 57 y ha sido 
ampliamente aplicado con el contexto de la optimización. 58-62 

Su relativa simplicidad puede ser mejor comprendida al considerar 
ejemplos concretos. 

12.8.2 Solución iterativa para elasticidad incompresible. En este caso se 
empieza por la Ec. (12.47), escrita ahora con V=0, esto es, suponiendo 
incompresibilidad completa. Las diferentes matrices quedan definidas en 
(12.48), y resulta la forma 

¿ C o}{¡} = { { ¿} (1288) 

Sin embargo, la matriz A es singular (dado que las variaciones de 
volumen no están restringidas) y es necesario "aumentarla" para hacerla 
no singular. Se puede conseguir esto de la forma descrita en la nota al pie 
de la Sección 12.3, o de forma más conveniente mediante la adición de una 
matriz ficticia de compresibilidad, reemplazando A por 



Á = A + / B r (AGmm r )B dü 
Jn 



(12.89) 



Si en la segunda matriz se usa una integración consistente con el número 
de parámetros de presión discontinua supuestos, entonces es precisamente 
equivalente a escribir 

Á = A + AGCC r (12.90) 

que es más fácil de evaluar. Claramente, esta adición no modifica el sistema 
de ecuaciones. La iteración del algoritmo (12.85) a (12.87) se puede adoptar 
con el "acelerador de convergencia" definido simplemente como 

p=XGI (12.91) 

Se tiene ahora un sistema iterativo dado por 

p n+l =p n + pr n (12.92a) 
r n = C T ü n (el residuo de la restricción 

de incompresibilidad) (12.92b) 

y 

ü n+1 =Á- 1 (f 1 -Cp n+1 ) (12.92c) 

Aquí Á se puede interpretar como la matriz de rigidez de un material 
compresible con un módulo volumétrico 



K = \G 
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y el proceso de iteración como la adición sucesiva de deformaciones 
volumétricas "iniciales" diseñadas para reducir la deformación volumétrica 
a cero. De hecho, este planteamiento simple llevó en un principio a 
la proposición de este algoritmo. 63-65 Alternativamente el proceso puede 
visualizarse como una modificación de la ecuación original (12.88) al restarle 
el término p/p a cada lado de la segunda ecuación para dar (esto se denomina 
a menudo forma lagrangiana aumentada) 56,62 



A C 

C T -l/p 



y adoptando el proceso iterativo 



(12.93) 



* -sj{;r-{-M <-» 

Con esto, se obtiene una secuencia similar a la Ec. (12.92) siempre que 
Á se defina según la Ec. (12.90). 
Empezando la iteración con 

u° = 0 y p° = 0 

en la Figura 12.18 se muestra la convergencia de la máxima divergencia de u 
calculada en los puntos de integación usados. Nótese que esta convergencia 
es bastante rápida para valores grandes de A = (10 3 a 10 4 ). 

Para valores más pequeños de A el proceso puede acelerarse 56 utilizando 
distintos valores para p, pero a efectos prácticos el algoritmo simple basta. 
Claramente, ahora se puede conseguir una mucho mejor satisfación de 
la restricción de incompresibilidad que por el simple uso de un módulo 
volumétrico (o parámetro de penalización) "suficientemente grande". Con 
A = 10 4 , por ejemplo, en cinco iteraciones la divergencia inicial de u se 
reduce del valor ~ 10 -4 a 10 -16 , lo cual está en el límite de precisión del 
ordenador utilizado. 

El lector debe notar que el proceso de iteración a menudo permite utilizar 
precisión simple en un problema que de otro modo requeriría operar en doble 
precisión. 

12.8.3 Solución iterativa para la formulación mixta ü — a — é. En este ejemplo 
se muestra como el procedimiento de solución mixta puede ser utilizado para 
mejorar los resultados de una formulación irreducible en desplazamientos. 

Comencemos con la Ec. (12.34) en la que suponemos que funciones de 
forma C°-continuas idénticas aproximan todas las variables. 

Se tiene por tanto, suponiendo funciones de forma "estándar", 



N u = No- = N £ = N 



(12.95) 



FORMULACIÓN MIXTA Y RESTRICCIONES 



375 



12.0 



10 o - 



10 



10 



u = I ♦ 10.0 





























4- 


-H 



20.0 



s .A^J0_ 

\\ \ 



- \ ' 



\ 



\ 



X \ 

K = 10 4 \ 
\ X 



\ 

.> 



0 5 10 

Número de iteraciones — ► 



Fuera del 
h'mite 



Figura 12.18 Convergencia iterativa en un problema de extrusión para diferentes 
valores del coeficiente de penalización A = j/u. 



0 C E 
C T A 0 
E T O 0 



(12.96) 



= / N r DN dtt 
= - f N T N¿n = C T 
= / N : 



Bdü 



(12.97) 



donde <r, é y ü definen los parámetros nodales. 

Además, supondremos que la segunda ecuación que da la ley constitutiva 
se evalúa utilizando una "cuadratura nodal" y, por tanto, lleva simplemente 
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a especificar la ley constitutiva en dichos nodos, 

(*)< = (De)¡ (12.98) 

El proceso iterativo comienza, como en el caso general de la Ec. (12.84), 
por la variable de restricción y, como se sabe que se pueden obtener buenas 
soluciones con la forma estándar, se puede especificar 

p = K" 1 = Qf B r DB düj (12.99) 
El proceso iterativo resulta 

Q n+1 = ü n _ K -i r n (12.100a) 

con 

r n = EV 1 - f 3 (12.100b) 

¿ n+l = _ c -i Eü n+l (12.100c) 

(* n+1 )¿ = (Dc n+1 )¿ (12.100d) 

Empezando con <r° = e° = ü° = 0 se nota inmediatamente que el primer 
cálculo de u 1 es simplemente la solución estándar en desplazamientos. 

El segundo paso del cálculo es precisamente el alisado de las 
deformaciones discontinuas Bü 1 para obtener valores nodalmente continuos. 
Las operaciones son idénticas a las de la Sección 12.6.1 y de nuevo se puede 
conseguir un ahorro en el coste computacional aglutinando (diagonalizando) 
la matriz C y usando las iteraciones de la Ec. (12.70). 

De forma alternativa, a menudo se pueden conseguir excelentes resultados 
evaluando C y Eü n+1 mediante una cuadratura nodal y prescindir del 
proceso iterativo. 56,66-68 

En las Figuras 12.19 y 12.20 se muestran algunos ejemplos que ilustran 
la considerable mejora de resultados obtenible por este procedimiento mixto. 
El coste de la solución no es mucho mayor que el de la forma irreducible, 
y la convergencia es rápida. El proceso es similar al propuesto por Cantin 
et al 69,70 como una mejora iterativa de la solución estándar irreducible, en 
desplazamientos . 

La secuencia puede identificarse simplemente como: 

a) alisado de tensiones y deformaciones a la forma continua (mediante el 
procedimiento de promediado), y 

b) ajustar la solución en desplazamientos para equilibrar las fuerzas 
residuales creadas por el alisado. 

Si se interpreta de esta manera se nota que de hecho no es necesario 
proseguir hasta la convergencia completa del método mixto. Cada 
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Figura 12.19 Solución iterativa de la formulación mixta <r - u para una viga, 
u y a bilineales. 

solución con un número fijo de iteraciones es una aproximación aceptable, 
normalmente de mejor calidad que la solución pura en desplazamientos. 

Es importante acentuar una vez más que no debe imponerse la 
continuidad de deformaciones/ tensiones en las singularidades o en cambios 
abruptos de material. Si se hace esto la solución mixta puede empeorar los 
resultados del método en desplazamientos. 

El proceso de iteración es una adición a los programas "estándar" en 
desplazamientos para mejorar la precisión y que merece la pena realizar. 

12.9 Formas complementarias con restricción directa 

12.9.1 Formas Generales. En la introducción a este capítulo se definieron 
las formas irreducibles y mixtas y se indicó que en ocasiones es posible 
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Coordenada x 
Sigma xx a lo largo de B — C 



Figura 12.20 Solución iterativa para la formulación mixta <r/u usando dos formas 
del elemento triangular TC 3/3 y TCR 3/3. (a) Una viga mostrando 
convergencia con las iteraciones. (&) Un dominio con forma de L 
mostrando los resultados mejorados en la distribución de tensiones 
cuando se impone la no continuidad de la tensión en la singularidad 
(elemento TCR 3/3) 
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obtener más de una forma "irreducible". Para ilustrar esto en el problema de 
transmisión del calor dado por las Ees. (12.2) y (12.3) se introdujo la función 
de penalización a en la Ec. (12.6) y se obtuvo la correspondiente ecuación 
de gobierno (12.7) en función de q. Esta función de penalización no tiene 
un sentido físico obvio y se usa simplemente para obtener una aproximación 
"suficientemente cercana" a la satisfación de las ecuaciones de continuidad de 
flujo. Su papel es exactamente el mismo que la penalización con significado 
físico, que se introdujo en el problema incompresible y que permitió justificar 
los métodos de integración selectiva. En el contexto de la elasticidad se usó 
una función de penalización similar para resolver el problema a — u de la 
Sección 12.4.2, para eliminar u y operar solamente con las tensiones como 
variables del problema 4 . En este caso la integración selectiva fue esencial, tal 
como se indicó en la Sección 12.7. 

A veces es posible resolver el problema como irreducible suponiendo a 
priori que la elección de las variables satisface una de las ecuaciones. Se 
llama a tales formas directamente restringidas y obviamente la elección de 
las funciones de forma es difícil. 

Consideraremos dos ejemplos. 

El problema complementario de transmisión del calor. Aquí supondremos 
a priori que la elección de q es tal que satisface la Ec. (12.3) y las condiciones 
de contorno naturales 

V r q = Q en ti y q n = q en T q (12.101) 

Por tanto, sólo queda por sastisfacer la relación constitutiva (12.2), esto es, 

k~ l q + V4> = 0 en O con <j> = 4> en T¿ (12.102) 
Una forma débil de lo anterior es 

/ tfq r (k- l q + V¿)dn- / 6q n (<f>-4>)dT = 0 (12.103) 

Jü Jt¿ 

en la que Sq n representa la variación del flujo normal en el contorno. 
Usando el Teorema de Green se transforma lo anterior en 

/ fcfk^qdfl- / V T Sq4>dft+ ( 8q n 4>dT+ ( 6q n <f>dT = 0 (12.104) 

Jq Jn Jt Jr q 

Si además se supone que V T 8q = 0 en ti y Sq n = 0 en T g , esto es, 
que las funciones de peso son simplemente las variaciones de q y satisfacen 
las condiciones de continuidad de la Ec. (12.101), entonces la ecuación se 
reduce a 



/ 6q T k- 1 qda+ Í 6q n 4>dT = 0 



(12.105) 
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Esto es de hecho la variación de un principio de flujo complementario 

H = / Jq r k- 1 qdn+ / qnj>dT (12.106) 

Jn Jr^ 

Obviamente, se pueden plantear soluciones numéricas a partir de 
cualquiera de las ecuaciones anteriores, pero la dificultad es la elección de 
las funciones de prueba que satisfagan las restricciones. Volveremos sobre 
este problema más adelante. 

El principio de la energía elástica complementaria. En el problema 
elástico descrito en la Sección 12.4 se puede proceder de forma similar, 
suponiendo campos de tensión que satisfagan las condiciones de equilibrio 
previo, tanto en el contorno Tt como en el dominio ü. 

Así, y de forma análoga al ejemplo previo, se imponen sobre el campo de 
tensión las restricciones, que suponemos son satisfechas indénticamente por 
la aproximación, esto es, 

S T <r + b = 0 en fi y t = t en T t (12.107) 

De esta forma, sólo quedan por satisfacer las relaciones constitutivas y 
las condiciones de contorno en desplazamientos, osea, 

D _1 <r-Su = 0 en Ü y u = ü en T u (12.108) 
La forma débil de lo anterior se puede escribir 

/ 6a T (D-V- Su) dü+ f a T (u-ü)dr = 0 (12.109) 
Jn Jt u 

que al ser integrada usando el teorema de Green da 

/ ¿o^D-VdíU / (S T 6<rfudn- í 6t T üdT- f 6t T uaT = 0 (12.110) 
Jn Jn Jt u Jr t 

De nuevo, suponiendo que las funciones de prueba son variaciones 
completas que satisfacen la ecuación homogénea de equilibrio, esto es, 

S T 6<r = 0 en fi y St = 0 en T t (12.111) 
queda la forma débil 

/ ¿<r T D-Ván- / a T üdr = o (12.112) 

Jn JT U 
El correspondiente principio variacional de la energía complementaria es 

n = - / <r T D-Ván- / t T üdr (12.113) 

2 Jn Jt u 
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De cara al uso práctico, de nuevo surgen las dificultades asociadas con 
la selección de las funciones de aproximación, pero en ocasiones es posible 
elegirlas directamente. 70 

12.9.2 Solución usando funciones auxiliares. Las dos formas complementarias 
pueden ser resueltas usando funciones auxiliares para asegurar la satisfacción 
de las restricciones. En el problema de transmisión del calor es fácil verificar 
que la ecuación homogénea 



_ r d d 



(12.114) 



queda automáticamente sastísfecha definiendo una función \¡> tal que 



qX= d¿ 



q y =- 



dx 



Por tanto, si se define 

q = Lif> + q 0 y Sq = L6i¡> 
donde q 0 es cualquier flujo elegido de forma que 

V r q 0 = Q 

y 



(12.115) 

(12.116) 
(12.117) 



(12.118) 



d_ _d_ 
dy 1 dx 

la formulación de las Ees. (12.105) y (12.106) puede ser usada sin ninguna 
restricción y, por ejemplo, la estacionariedad de 

n = ^|(LV' + qo) r k- 1 (L^ + qo)án-^ {^j j>aT (12.119) 

bastará para formular el problema (aquí t es la dirección tangente al 
contorno). 

La forma anterior requerirá funciones de forma para t¡) que sean Co- 
continuas. 

En el correspondiente problema de elasticidad se puede obtener una forma 
similar bi- dimensional mediante el uso de las llamadas funciones de tensión 
de Airy i¡>. 71 Ahora las ecuaciones de equilibrio 



S r <r + b = 



d 

dx~ ax + dy Txy 



d_ 
dx 
d d 
d^ ay + dx" rxy 



(12.120) 
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se resuelven de forma idéntica eligiendo 



donde 



d 2 d 2 



d 2 



dyi'dz*' dxdy 
y <r 0 es una tensión arbitraria de modo que 

S r <r 0 + b = 0 



(12.121) 



(12.122) 



(12.123) 



De nuevo la, sustitución de (12.121) en la forma débil (12.112) o en 
el principio varicional complementario (12.113) produce una formulación 
directa en la que no se necesita añadir restricciones adicionales. 

El uso de esta función bi-dimensional de tensión en un problema plano 
por primera vez se debe a De Veubeke y Zienkiewicz 72 y Elias, 73 pero el lector 
debe notar que ahora, con la aparición de operadores de segundo orden, se 
precisa continuidad C\ en las funciones de forma, de manera similar a los 
problemas que se consideran en flexión de placas (viz. Vol. 2). 

Incidentalmente, las analogías con la flexión de placas van más allá y 
de hecho se puede probar que algunas de éstas pueden ser útiles en otros 
problemas 74 . 



12.10 Comentarios finales - la formulación mixta o una prueba de 
la "robustez" de un elemento 

La forma mixta de la formulación de elementos finitos descrita en este 
capítulo abre un nuevo campo de posibilidades, algunas potencialmente de 
mayor precisión que la que ofrecen las formas irreducibles. Además, permite 
el tratamiento directo de problemas con restricciones sin la introducción de 
formas penalizadas. Es típico en este contexto el desarrollo de aproximaciones 
directas para elasticidad incompresible. 

Sin embargo, una ventaja adicional aparece incluso en situaciones 
donde, según el principio de limitación, las formas irreducible y mixta dan 
resultados idénticos. Aquí el estudio del comportamiento de la forma mixta 
frecuentemente puede revelar debilidades o falta de "robustez" en la forma 
irreducible que de otra forma serían difíciles de determinar. Para ilustrar 
esto se puede considerar el caso de elasticidad compresible, que siempre se 
puede formular como una forma mixta (viz. Sección 12.5.1) o una forma 
irreducible equivalente en la que la variación de la presión sea idéntica. 

Esta equivalencia en el caso de un triángulo lineal (que se ha usado en 
los primeros capítulos del libro), o el tetraedro lineal, inmediatamente revela 
por qué tales elementos "no son robustos" cuando la comprensibilidad es 
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pequeña (o en elasticidad isótropa cuando el coeficiente de Poisson tiende a 

0. 5.. La razón es claramente la forma inadmisible de tales elementos cuando 
la compresibilidad tiene un valor límite nulo. 

Mediante el mismo argumento se puede justificar el uso de integración 
"reducida" (selectiva) en elementos cuadráticos. 

Dicho estudio de casos "límite" a menudo arroja luz sobre lo que pudiera 
parecer un comportamiento misterioso de un elemento. La aproximación 
mixta debidamente entendida expande el potencial del método de los 
elementos finitos y presenta posibilidades casi ilimitadas de introducir 
mejoras en detalle. Algunas de éstas serán discutidas en el próximo capítulo 
y otras en el Vol. 2. Crisfield 75 da una interesante visión de conjunto sobre 
este tema. 
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FORMULACIÓN MIXTA Y 
RESTRICCIONES. MÉTODOS DE 
CAMPO INCOMPLETO (HÍBRIDOS) 



13.1 Generalidades 

En el capítulo anterior se ha supuesto en la aproximación mixta que 
todas las variables eran definidas y aproximadas de la misma forma en todo 
el dominio de análisis. Sin embargo, en ocasiones se puede abandonar este 
procedimiento y adoptar diferentes formulaciones en diferentes subdominios 
y con algunas variables aproximadas sólo en las superficies que unen tales 
subdominios. En esta parte se discuten tales aproximaciones de campo parcial 
o incompleto que incluyen varias de las llamadas formulaciones híbridas. 

En los ejemplos que se presentan se consideran sólo aproximaciones en 
cuerpos sólidos elásticos, pero la extensión a la transmisión del calor u otros 
problemas de campo se puede hacer fácilmente como un simple ejercicio 
siguiendo los procedimientos descritos. 

13.2 Conexión a través de fuerzas en la interfase entre dos (o 
más) subdominios con formas irreducibles 

Uno de los ejemplos más obvios y frecuentemente utilizados de 
aproximación de "campo incompleto" es la subdivisión de un problema 
en dos (o más) subdominios en cada uno de los cuales se usa una 
formulación irreducible (en desplazamientos) y el uso de multiplicadores de 
Langrange (fuerzas) definidos independientemente en la interfase para unir 
los subdominios, como en la Figura 13.1 (a). 

En este problema se formula la aproximación en el dominio fí 1 en función 
de los desplazamientos u 1 y de las fuerzas de superficie en la interfase t 1 = A. 
Con la expresión estándar del trabajo virtual como forma débil [véase Ees. 
(12.21) a (12.24)] se tiene: 

/ í(Su 1 ) r D 1 Su l dft- / 6u' T XdT- í 6u lT bdÜ-í Su lT t dT = 0 
J& V JTj J& Jr t i 

(13.1) 

389 



390 



El Método de los Elementos Finitos 




Figura 13.1 Conexión entre dos (o más) dominios mediante variables de fuerzas 
definidas sólo en la interfase. (a) Las variables en cada dominio son 
desplazamientos u (forma irreducible interna), (b) Las variables en 
cada dominio son desplazamientos y tensiones <r - u (forma mixta). 



en donde, como de costumbre, se supone que la aproximación de u 1 satisface 
los desplazamientos prescritos en T^i. De forma similar se puede escribir 
para el dominio fi 2 , escribiendo ahora las fuerzas de superficie en la interfase 
como t 2 = — A para asegurar el equilibrio entre los dos dominios, 



/ ¿(Su 2 ) r D 2 Su 2 dü + / Su 2T X dT- í 6u 2T h dü- í 6u 2T t dT = 0 
Jn 2 7r/ Jr 2 Jr t 2 

(13.2) 

Las ecuaciones de los subdominios se completan con la forma débil de la 
continuidad de desplazamientos en la interfase entre los dos dominios, esto 
es, 

/ a r (u 2 - u 1 ) dT = 0 (13.3) 

La discretización de los desplazamientos en cada subdominio y de las 
fuerzas en la interfase lleva al sistema final de ecuaciones. Así, escribiendo 
aproximaciones independientes de la forma 



u 1 - N^ü 1 
u 2 = N u2 ü 2 
A = N A A 



(13.4) 
(13.5) 
(13.6) 
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se obtiene 



K 1 


Q 1 


o 








o 


Q 2r 
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1-1 


. o 


Q 2 


K 2 







(13.7a) 



donde 



K 1 = / B^D'B 1 dü 



Q 1 = 



Q 2 = 



f 2 = 



/„ 

JTt 

L 



B 2T D 2 B 2 dÜ 
dT 



(13.7b) 



N r ,t dT 



N J ,t dT 



Nótese que en la deducción de las matrices anteriores las funciones de 
forma N A , y por tanto A misma, están definidas sólo sobre la b'nea de interfase 
y cumplen por ello con la definición de aproximación de campo parcial. 

La formulación que se acaba de perfilar puede obviamente extenderse 
a muchos subdominios y en muchos casos de análisis práctico es útil para 
asegurar un mejor condicionamiento de las matrices y permitir que la solución 
se obtenga con un esfuerzo computacional reducido 1 . 

Las variables u 1 y u 2 , etc., aparecen como variables internas dentro 
de cada dominio (o superelemento) y pueden ser eliminadas a nivel local 
siempre que las matrices K^K 2 , etc., sean no singulares. Tal no singularidad 
presupone, sin embargo, que cada uno de los subdominios tiene prescritos 
suficientes desplazamientos como para eliminar los modos de sólido rígido. 
Si éste no es el caso, la eliminación parcial siempre es posible, conservando 
los modos de sólido rígido hasta que se aborda la solución completa. 

Naturalmente, la formulación que se acaba de usar se puede aplicar a un 
solo campo en formulación en desplazamientos en el que se requiere especificar 
los desplazamientos en los contornos en forma débil (en vez de imponerlos 
directamente en las funciones de forma de los desplazamientos). 

Este problema puede abordarse directamente o puede resolverse 
simplemente usando la primera ecuación de (13.7a) en la que se pone u 2 = ü, 
los desplazamientos especificados en Tj. 

Ahora el sistema de ecuaciones es simplemente 
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donde 



í Njü dT (13.9) 

Esta formulación es conveniente a veces para imponer un desplazamiento 
prescrito en un campo de desplazamientos elemental cuando el valor de 
contorno no encaja en el campo de las funciones de forma. 

En lo anterior se ha obtenido la formulación directamente vía las 
formas débiles o los residuos ponderados. Naturalmente, se puede dar un 
principio variacional tal como la minimización de la energía potencial total 
(véase Capítulo 2) sujeta a un multiplicador de Lagrange A para imponer 
continuidad entre los subdominios. La estacionariedad de 

n = - / (Su) T D(Su)¿n- / u T bdü- ( u T tdT+ ( \ T (u l -u*)iT 
2 7n Jn Jr t Jt¡ 

(13.10) 

lleva al conjunto de ecuaciones (13.1) a (13.3). 

13.3 Conexión a través de fuerzas en la interfase de dos o más 
subdominios con formas mixtas 

El problema tratado en la sección anterior puede naturalmente abordarse 
suponiendo una aproximación de tipo mixto de dos campos (<r/u) en cada 
subdominio, como se muestra en la Figura 13.1(6). 

Ahora aparecerán las variables u y <r en cada subdominio, pero la 
conexión se realizará de nuevo con la fuerza de superficie en la interfase 
A. 

Se tiene ahora, utilizando la formulación de la Sec. 12.4.2 para el dominio 
n 1 [véanse las Ees. (12.28) y (12.21)], 



L 



¿^[(D 1 )- V - Su 1 ] dü = 0 (13.11a) 

J ¿(Su 1 ) 1 V dft-jf 6u lT \dT- Jju 1T bdü-J^u 1T tdT=0 (13.11b) 

y de forma similar para el dominio Q 2 

í ¿<r 2T [(D 2 )-V-Su 2 ]dí) = 0 (13.12a) 
Jíl 2 

í 6(Su 2 ) T a 2 dÜ+í 6u 2T \dT-í 6u 2T bdíl- í 6u 2T tdT=Q (13.12b) 

Jn* j Tt Jq2 j v 
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Con la fuerza en la interfase en equilibrio la imposición de la continuidad 
exige que 

/ a T (u 2 -u 1 )dT = 0 



La discretización ahora es 



u 1 = N u iü 1 
a 1 = N,!* 1 
A = N A A 



u 2 = N u2 ü 2 
a 2 = N a 2* 7 



(13.13) 



A 1 


c 1 


0 


0 


0 




V , 




f} 


C 1T 


0 


Q 1 


0 


0 




ü 1 




n 


0 


Q 1T 


0 


0 




<! 






0 


0 


0 


0 


A 2 


c 2 








f? 


0 


0 


Q 2 


C 2T 


0 




U 2 J 







(13.14) 



con A, C, fi y Í2 definidos de forma parecida a la Ec. (12.31) con los 
subíndices de subdominio apropiados y Q 1 y Q 2 como en (13.7b). 

Todos los comentarios de la sección anterior se pueden aplicar aquí de 
nuevo, aunque la forma anterior no parece que se use frecuentemente. 



13.4 "Marco" de interfase en desplazamientos 

13.4.1 Generalidades. En los ejemplos anteriores se ha usado la fuerza de 
superficie como variable de interfase para conectar dos o más subdominios. 
Debido a la falta de las restricciones de sólido rígido la eliminación de los 
desplazamientos locales en los subdominios es imposible en general. Por ésta 
y otras razones es conveniente llevar a cabo la conexión de los subdominios 
a través de un campo de desplazamientos definido sólo en la interfase 
[Figura 13.2(a)] y eliminar todas las variables interiores para que la conexión 
pueda ser llevada a cabo mediante un procedimiento estándar de matriz de 
rigidez usando sólo las variables de la interfase. 

El marco de desplazamientos puede construirse de forma que rodee al 
subdomimo completamente, y si se eliminaran todas las variables internas se 
llega a una matriz de rigidez de un nuevo "elemento" que puede ser usado 
directamente acoplándolo con cualquier otro con definiciones similares de los 
desplazamientos en la interfase, independientemente del procedimiento usado 
para deducir tal elemento [Figura 13.2(6)]. 

En todos los ejemplos de esta sección se aproximarán los desplazamientos 
del marco de la forma 



v = N v v en Tj 



(13.15) 
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y se consideran las "fuerzas nodales" aportadas por un solo subdominio íí 1 a 
los "nodos" de este marco. Usando el principio de los trabajos virtuales se 
tiene 

donde t son las fuerzas que el interior ejerce sobre el imaginario marco. El 
equilibrio de las fuerzas nodales aportadas por cada subdominio proporciona 
la condición débil de continuidad de tensiones. 

Como finalmente las fuerzas t se pueden expresar en función de solamente 
los parámetros del marco v, se llega a 

q 1 = K*v + f¿ (13.17) 

donde K 1 es la matriz de rigidez del subdominio H 1 y f¿ son las "fuerzas" 
aportadas internamente. 

A partir de este punto son aplicables los procedimientos estándar de 
ensamblaje, y el subdominio se puede tratar como un elemento estándar que 
puede ensamblarse a otros asegurándose de que 

£q = 0 (13.18) 



rj 




de conexión de sub dominios: (a) conexión entre dos dominios; (6) un 
"superelemento" (híbrido) que puede ser conectado a muchos otros 
elementos similares. 



(13.16) 
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donde la suma incluye todos los subdominios (¡elementos!). Por tanto, sólo 
es necesario considerar un único subdominio en lo que sigue. 

13.4.2 Conexión entre dos o más subdominios con formas mixtas. 
Supondremos, como en la Sec. 13.3., que en cada subdominio, ahora llamado 
e por generalizar, las tensiones <r* y los desplazamientos u e se aproximan 
independientemente. Las ecuaciones (13.11) se reescriben sumándole a la 
primera la forma débil de la imposición de continuidad de desplazamientos. 

Ahora se tiene, en lugar de (13.11a) y (13.13) (y prescindiendo de los 
superindices) 



/ ^(D"V - Su) dÜ - ( 6t T (u - v) dT = 0 



(13.19) 



La ecuación (13.11b) se reescribe como la forma ponderada de la ecuación 
de equilibrio, o sea, 

- / 6u T (S T <r + b) dÜ + / 6u T (t -i)dT = 0 
Jn e Jr t e 

o bien, después de integrar por partes 
/ 6(Su) T <rdSl- í 6u T bdü- í Su T tdV- í 6u T t dT = 0 (13.20) 

Jn e Ja* Jy^ Jt^ 

En lo anterior, t son las fuerzas de superficie correspondientes al campo 
<r [véasela Ec. (12.29)]: 



t = G<r 



(13.21) 



En lo que sigue T*, esto es, el contorno con tensión prescrita, se tomará como 
nulo. 

Al aproximar las Ees. (13.19), (13.20) y (13.26) con 



u = N u u a = Ncrd- 



v = N„v 



se puede escribir, usando el método de Galerkin y limitando las variables al 
"elemento" e, que 



A e C e Q e 
C eT 0 o 

LQ cT o o 



{?}={?} 



(13.22a) 
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donde 



A e = 


/ nJd -1 n<7 
yo* 


dü 


C c = 


/ NjBdft- 


í (GN (r ) T N u 


Q e = 


/ (GN ff ) T N t 


, dT 


f 6 = 







(13.22b) 



La eliminación de a e y u e de lo anterior proporciona la matriz de rigidez 
del elemento y la contribución de fuerzas internas [véase la Ec. (13.17)]. 

Una vez más se puede notar que los sencillos criterios de estabilidad 
discutidos en el Capítulo 12 ayudan a la hora de escoger el número de 
parámetros de <r , u y v. Dado que la matriz final de rigidez de un elemento 
debería ser singular para tres movimientos del sólido rígido, se debe tener 
[por la Ec. (12.17)] que 

(13.23) 

en aplicaciones bi- dimensionales. 

Existen varias formas variacionales alternativas de la formulación 
anterior. Una particulamente útil es la desarrollada por Pian et al. 2 ~ 4 En ésta 
la representación mixta completa se puede escribir enteramente en función de 
un único principio variacional (para fuerzas de volumen nulas y si no existe 
contorno tipo T<): 

n n = - / -aD-V dü- í (S T <r) T u I dÜ + / <r T Sv dü (13.24) 

En lo anterior se ha supuesto que el campo compatible de v está definido 
sobre todo el dominio del elemento y no sólo en sus interfases, y uj se refiere 
al campo incompatible definido sólo en el interior del dominio elemental, t 

Nótese que con esta definición 

u = u/ + v (13.25) 

Para mostrar la validez de este principio variacional, que es práctico ya 
que no precisa la evaluación de integrales sobre la interfase, deduciremos 
la forma débil correspondiente a las Ees. (13.19) y (13.20) utilizando la 
condición (13.25). 



* Naturalmente, en esta forma el elemento podría encajar bien en el Capítulo 12, y la 
división entre formas híbridas y mixtas no resulta aquí única. 
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Ahora se puede escribir, en lugar de (13.19) (y notando que debe ser 
u/ = 0 en las interfases para asegurar la compatibilidad interelemental) 

/ ¿»<7 r (D _1 <r-Sv) dü- ( S^SmdÜ+í a T uj<¿r = 0 (13.26) 
Jw Jn< Jr ie 

Usando el teorema de Green la ecuación anterior queda simplemente 

/ í<r T (D _1 <r - Sv) dü + / (S r ¿<7) r u 7 dT = 0 (13.27) 

En lugar de (13.20) se escribe (en ausencia de fuerzas de volumen b y 
contorno Tt) 

( 6u*(S T v) dÜ + í 6v T {S T <r) dü = 0 (13.28) 

y usando de nuevo el teorema de Green 

/ S\x T rS T a dÜ - I 8(Sv) T <r dü = 0 (si Sv = 0 en T 7 ) (13.29) 

Estas ecuaciones son precisamente las variaciones del funcional (13.24). 

El principio variacional expresado por la Ec. (13.24) ha sido aplicado 
eficazmente por Pian y Sumihara 2 para desarrollar nuevos y sencillos 
elementos. Uno de tales elementos cuadriláteros se deriva en detalle a 
continuación. 

Naturalmente, el procedimiento desarrollado en esta sección puede 
aplicarse a otras representaciones mixtas o irreducibles con conexiones tipo 
"marco". Tong y Pian 5,6 han desarrollado varias formas alternativas de 
elemento utilizando este procedimiento. 

El cuadrilátero híbrido de Pian - Sumihara (Figura 13.3). La deducción de 
este elemento de cuatro nodos puede separarse en dos partes. En la primera 
se establece la aproximación para la tensión en función de polinomios lineales 
en las coordenadas naturales (£,??). El primer término de la Ec. (13.28) se usa 
para reducir el número de parámetros de tensión a un mínimo. Los cálculos 
subsiguientes se hacen entonces en función de la interpolación reducida de 
tensión y del campo compatible de desplazamientos solamente. En la segunda 
parte del desarrollo se modifican las interpolaciones de tensión para reducir 
el esfuerzo computacional necesario para establecer la matriz "de rigidez" del 
elemento. 

El desarrollo que se hace a continuación es para aplicaciones en problemas de 
tensión y deformación plana. La aproximación para la tensión en cada elemento 
se toma como 

<r = <7 0 +<r l (f,T7) 
donde a 0 es un conjunto de tres parámetros constantes y 
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El campo de v en 

el contorno y el interior 

está definido 

El campo de u = v + u, 
y a están definidos 
en el interior 



Figura 13.3 El cuadrilátero de Pian— Sumihara 



Uiv J l 7.* + 7.11 J 



Por tanto, nueve parámetros definen la variación de tensión en el elemento. 

El campo incompatible de desplazamientos se define mediante cuatro 
parámetros de la forma 

u/ = N a (¿,»?)üa 



l o (i 

y los desplazamientos compatibles del marco en el elemento se interpolan como 

donde JV{(£,i?) son las funciones de forma isoparamétricas de cuatro nodos 
usuales, bilineales (véase Capítulo 8). La ecuación (13.28) lleva al requisito 
de que en cada elemento 

/,{S=?)} ( <» + ^ )dn=0 

y 

Puede verificarse fácilmente que la sustitución de la aproximación de tensión 
en las relaciones anteriores proporciona sólo dos ecuaciones independientes 3 : 

6 3 aj - Mj - a s 7! + a x ->¡ 3 = 0 

y 
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donde 



í>f< 

1 


i 


4 

l 


4 

1 


4 


4 



1 1 



Por tanto, mediante la Ec. (13.28) la aproximación de tensión puede expresarse 
en función de siete parámetros independientes. El uso de este campo de tensión 
de siete parámetros en el funcional de la Ec. (13.24) sirve para eliminar el 
término de desplazamientos incompatibles de consideraciones ulteriores. 

El rango adecuado de un elemento de cuatro nodos para tensión — 
deformación plana se consigue con una aproximación de tensión de cinco 
términos — . En la referencia 2 la aproximación de siete términos se reduce 
a cinco términos independientes perturbando la forma geométrica del elemento. 
Alternativamente, se puede conseguir el mismo resultado mediante la integración 
por partes del término incompatible en la Ec. (13.28). El resultado es una 
integral de volumen y una integral de contorno. Si se exige que los términos 
de volumen y de contorno se satisfagan independientemente, se obtienen cuatro 
ecuaciones de restricción para reducir la aproximación original de nueve términos 
a los cinco términos deseados. Tras la integración por partes el término de 
volumen es 

Igualando esto a cero, tras restituir los campos de aproximación, resulta en 

/ Bl* l dQ = 0 

donde B¿ es la matriz deformación-desplazamientos deducida a partir de los 
desplazamientos incompatibles. Esta relación, combinada con las dos ecuaciones 
independientes originales, proporciona las cuatro ecuaciones 

6 3 a, = «,7! 

= <*i7j 
o» A = 
«i& = ¿17» 

que pueden usarse para construir la aproximación de tensión de cinco términos. 
El término de contorno da ecuaciones de restricción que necesariamente son 
combinaciones lineales de las cuatro ecuaciones anteriores. 

Las cuatro ecuaciones de restricción se pueden usar para escribir la 
aproximación de tensión de cinco términos. Nótese que cualquiera de los a t , b{ 
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pueden ser cero; por tanto, los parámetros de tensión se redefinen para evitar 
la división por estos parámetros geométricos. El resultado es 



a\r¡ 



a 3 b 3 £ a^r?. 



{:;! 



La aproximación de tensión anterior puede usarse ahora en (13.24) para deducir 
una matriz "de rigidez" elemental. Como ya se ha dicho, la construcción de la 
matriz de rigidez requiere la solución de la matriz resultante del primer término 
en (13.24), o sea, la inversión de una matriz 5x5. En este caso esto llevaría 
a un número significativo de operaciones numéricas que pueden evitarse en las 
situaciones donde la matriz de propiedades del material sea constante en todo 
el elemento. Este paso se consigue modificando ligeramente la interpolación de 
tensiones a la forma 



donde 



Ñ„ = 



m-to) ajo?-*) 



Esta modificación comporta simplemente un reescalado de los parámetros que 
definen la parte constante de la aproximación de la tensión. Se pueden deducir 
ahora valores para los parámetros £ 0 ,ty> de forma que 



/ <r T D _1 



-V<¿Q = (*o T ,* 1T > 


D 


- 1 n e | o ' 




0 | Á_ 


a inversa es 








"ÍTD- 1 | 0 " 


-i 




0 ■ 


0 | Á_ 






0 A" 1 



donde A es una matriz 2x2 definida como 

Á= / ÑjD" 1 ^ dü 
Los valores apropiados para £05*70 son 



*° " 3J„ 



3J 0 



donde J{ son los parámetros en el determinante jacobiano del elemento de cuatro 
nodos con 
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Los pasos anteriores se han implementado en una rutina elemental incluida 
en el Capítulo 15. El elemento resultante es muy eficiente numéricamente, 
comparado con el elemento isoparamétrico de cuatro nodos. La eficacia 
computacional proviene del hecho de que 



L 



<r T (Sv)<to = <¿r 0 T ,<r ,T > 



B 0 ÍT 



donde B 0 es la matriz deformación-desplazamientos del elemento isoparamétrico 
de cuatro nodos evaluada en el origen de las coordenadas naturales de este modo 
es idéntica al valor de una cuadratura de un punto de Gauss. También 



3 1 = / N.B 



dÜ 

y, por tanto, la matriz de rigidez elemental es 

k = B 0 T DB 0 íí e + C 1T Á- 1 C 1 

El primer término es idéntico a la evaluación del elemento en desplazamientos 
de cuatro nodos mediante una cuadratura de un solo punto. El segundo 
término es una matriz de estabilización de rango 2 cuyos términos se pueden 
evaluar fácilmente de forma analítica. En consecuencia, el elemento se puede 
implementar con considerablemente menos operaciones que la derivación del 
elemento en desplazamientos con cuadratura de Gauss 2x2. 

Una vez se han obtenido los parámetros de desplazamientos v en la solución 
global del problema, los parámetros de tensión <r 0 se calculan como 

* 0 = DB 0 v 

Comparando esto con la interpolación de tensión, se observa que <r 0 son las 
tensiones medias sobre cada elemento. Estos son valores precisos que son 
fáciles de calcular en un elemento. Debe notarse que las tensiones medias están 
asociadas al punto £ 0 , 77,, y no con el origen, donde se calcula B„. Este resultado 
de la formulación mixta contrasta con la solución en desplazamientos. Nótese 
también que no es necesario calcular a 1 para determinar los valores medios en 
el elemento. 

El elemento descrito arriba no sólo es muy eficiente en su implement ación, 
sino que es probablemente el elemento de cuatro nodos más preciso en una 
amplia gama de problemas de tensión y deformación plana hasta la fecha. El 
elemento funciona bien en problemas con flexión (ej., con los términos Ñ^d" 1 ) 
y en aplicaciones cuasi- incompresibles. Además, la sensibilidad a la distorsión 
es menor que en otros elementos isoparamétricos de cuatro nodos. Resultados 
típicos obtenidos en la referencia 2. En las Figuras 13.4 y 13.5 se muestran. 
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-tÍF 

-■*> 



150 



150 



7" 



0 



1.5 



3.0 



l+H-1- 



■2H-1+14 




£= 1 

^ = 0.25^ 



150 



HH-H— 2- 



1000 £ = 1500 
iv = 0.25 
1000 ¡ 150 



Figura 13.4 El cuadrilátero de Pian-Sumihara. Resultados comparativos en los 
ejemplos mostrados. 



Resultados 









Caso 3 




Caso 4 




Caso 1 


Caso 2 










Elementos 


*A 


-va 


VA 




VA 




Isoparamétrico 


6.00 


17.00 


45.7 


-1761 


50.7 


-2448 


bilineal Q 4 














Incompatible 


6.00 


17.61 










(Taylor.Wilson) 














Q 6 (ver Capítulo 11) 














Pian-Sumihara 


6.00 


17.64 


96.18 


-3014 


98.19 


-4137 


Exactos 


6.00 


18.00 


100 


-3000 


102.6 


-4050 



13.4.3 Conexión de subdominios de formas equilibradas. En esta técnica 
supondremos a priori que el campo de tensión es tal que 

(13.30) 

y que las ecuaciones de equilibrio se satisfacen idénticamente. Por tanto, 

S r <r = 0 ; S r <r 0 = b en ft y G<r = 0 ; Ga 0 = t en T \ 

En ausencia de TJ, la Ec. (13.20) se satisface idénticamente y se puede 
escribir (13.19) como (véase Capítulo 12, Sec. 12.9) 
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h 5 



0.5 
•0.5 



E = 75. v = 0 




Solución exacta 



PS-4 



CM 



Figura 13.5 El cuadrilátero Pian-Sumihara (P-S4) comparado con el cuadrilátero 
en desplazamientos (Q4). Efecto de la distorsión del elemento. 



/ 6<r T CD- l v T - Su) dü + / 6t T (u - v) dT = 
= / ¿<r r D-V + *o) dÜ - í (Gfcrfv dT = 0 
Al discretizar, notando que el campo u no aparece en el problema 

se tiene, al usar la Ec. (13.16), que 



(13.31) 



1 ?]{:}-{,%} 
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donde 



A e = / NaB^Na dü 
f, = / N^D-Vo dü 
Q c = í (GN a ) T N v dT 

JV¡e 



ff = / N v G<r 0 dT 
Aquí la eliminación de a es sencilla y se puede escribir directamente 
K e v = q e - $ - Q eT A e_1 ff 



K c = Q eT A e_1 Q e 



(13.33) 



En la Seccción 12.9 se han discutido los posibles campos de equilibrio 
y se han indicado las dificultades para elegir tales campos para un dominio 
subdividido en elementos finitos. En este caso, por otro lado, la situación 
es bastante simple ya que los parámetros que describen las tensiones de 
equilibrio dentro del elemento se pueden elegir arbitrariamente usando una 
expresión polinómica. 

Por ejemplo, si se usa una expresión polinómica simple en dos 
dimensiones: 



= «o + "iz + oc 2 y 
<? y =¡3o + fax +¡3 2 y 
<Txy = 7o + Jix + -y 2 y 

se observa que para satisfacer el equilibrio se requiere 



(13.34) 



S 1 * 



' d 




d ' 


dx 


0 


dy 




d 


d 


0 


dy 


dx 



«1 + 72 
02+71 



(13.35) 



y esto implica simplemente 



72 = -"i 
7i - 
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Por tanto, un desarrollo lineal en función de 6 — 2 = 4 parámetros 
independientes se consigue fácilmente. Naturalmente, se pueden usar 
desarrollos con términos de mayor orden. 
Es interesante observar que: 

1. n a > n v — 3 es necesario para asegurar estabilidad. 

2. Según el principio de limitación, la precisión de tal aproximación no puede 
ser mayor que la conseguida por una formulación en desplazamientos con 
un desarrollo compatible de v en todo el elemento, siempre que aparezcan 
expresiones polinómicas similares en las variaciones de las componentes 
de tensión. 

Sin embargo, en la práctica se obtienen dos ventajas con tales elementos, 
conocidos como elementos híbridos de tensión. En primer lugar, no 
es necesario construir campos compatibles de desplazamiento en todo el 
elemento (un punto útil en su aplicación, por ejemplo, a problemas de 
flexión de placas). En segundo lugar, para elementos distorsionados 
(isoparamétricos) es fácil usar campos de tensión que varíen con las 
coordenadas globales, y conseguir así mayor precisión. 

Pian 7 hizo uso de estos elementos por primera vez, y hoy se usan muchas 
variantes útiles. 8 " 22 

13.5 Conexión de soluciones de contorno (o tipo Trefftz) mediante 
"marcos" de desplazamientos prescritos 

Ya se ha hecho referencia previamente (Capítulo 9) a las soluciones 
de contorno (tipo Trefftz) 23 . En este caso los campos de desplazamiento/ 
tensión escogidos son tales que las ecuaciones homogéneas de equilibrio y las 
relaciones constitutivas se satisfacen a priori (y de hecho, a veces, algunas 
condiciones de tensión o desplazamiento prescritas en el contorno). 

Así, en las Ees. (13.19) y (13.20) los términos integrales sobre el 
subdominio (elemento e) desaparecen y, como las variaciones 6t y 8u están 
conectadas, se puede combinar todo en una única expresión (en ausencia de 
fuerzas de volumen) de la forma 

- / 8t T (u - v) dT + / ¿u T (t - t) dT + dÜ = 0 (13.36) 

Jr ie Jr te 

Esto unido a la ecuación de contorno (13.16) proporciona los medios para 
deducir la matriz de rigidez de tales subdominios. 

Por ejemplo, si se expresa el campo aproximado como 

u = Na (13.37) 

lo cual implica 

a = D(SN)a y t = G<r = GD(SN)á 
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se puede escribir en lugar de (13.22) 



H 



donde 



H* = / [GD(SN)] T N dT + / N T GD(SN) dT 

Q c = / [GD(SN)] r N v dT (13.39) 

ff = / N r t dT 
Jr t e 

En las Ees. (13.38) y (13.39) se ha omitido la integral sobre el dominio de 
la solución particular <r 0 correspondiente a las fuerzas de volumen b pero se 
ha permitido que una parte del contorno T* esté sometida a tensión prescrita. 
Las expresiones completas incluyendo la solución particular pueden obtenerse 
fácilmente. 

La ecuación (13.38) se puede usar para la solución de un problema 
de contorno en el que v y t sean conocidos en partes del contorno. Más 
importante, sin embargo, es que resulta una matriz de rigidez muy simple 
para un elemento completo rodeado por el marco. Se tiene 

K e v = q-Í e (13.40) 

en la cual 

K c = Q cT H c_1 Q e 

o. i ( 13 - 41 ) 

r = Q eT H c-1 ff 

Esta forma es muy similar a la de la Ec. (13.33) excepto que ahora sólo 
es preciso evaluar integrales sobre los contornos del elemento subdominio. 

No es evidente a primera vista que la matriz H c de la Ec. (13.39) deba 
ser simétrica. La simetría se demuestra a partir de la unicidad de la energía 
de deformación y, por consiguiente, 



/ t T udT= ( u T t dT 



y en consecuencia 



/ N r GD(SN) dT = / [GD(SN)] r N dT (13.42) 
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Es, por tanto, conveniente escribir H e en una forma obviamente simétrica 
como 



H e =1 í {[GD(SN)] r N + N r GD(SN)} dT- 

2 Jije 

- - í {[GD(SN)] T N + N T [GD(SN)]} dT 
2J Tte 



Se ha escrito mucho sobre los llamados "elementos de contorno" y sus 
méritos y desventajas. 24-26 Muy frecuentemente se usan soluciones singulares 
(funciones de Green) para satisfacer las ecuaciones de campo y éstas requieren 
complejos procedimientos de integración. Sin embargo, es posible obtener 
conjuntos completos de funciones que satisfagan las ecuaciones de gobierno 
sin introducir singularidades 27-31 y entonces basta con integración sencilla. 

Mientras que las soluciones de contorno se limitan a dominios lineales 
homogéneos, éstas dan soluciones muy precisas para un rango limitado 
de parámetros, y a veces se ha descrito su combinación con elementos 
finitos "estándar". En el pasado se han desarrolado varios procedimientos 
de acoplamiento, 32-35 pero la forma que se presenta aquí coincide con el 
trabajo más reciente de Zielinski y Zienkiewicz, 36 Jirousek 37-40 y Piltner. 41 
El último ha desarrollado elementos de elasticidad bi-dimensional y flexión de 
placas muy generales que pueden ser circundados por un dominio (elemento) 
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t = o 




El desplazamiento 
en el contorno está 
interpolado en forma 
polinomial 




} 











t = o 



: ; : 



- 




u = 0 



Los campos desplazamiento y 
tensiones están definidos por 
funciones de "forma" 
que satisfacen las 
ecuaciones de gobierno 
y los parámetros e 



Figura 13.7 Elementos de contorno tipo Trefftz. 
útiles. 39 



Algunas formas generales 



poligonal de muchos lados que puede acoplarse directamente a elementos 
estándar siempre que se tenga la misma interpolación de desplazamientos 
en los bordes, tal como se muestra en la Figura 13.6. Se ilustran, tanto 
elementos interiores con un marco circundando el volumen del elemento, 
como elementos exteriores satisfaciendo las condiciones de tensión en la 
superficie libre y en el infinito. 

Tales elementos pueden incluir en el arsenal de las "funciones de forma" 
N e [véase Ec. (13.37)] soluciones que sean solución exacta a singularidades 
o que satisfagan automáticamente las condiciones de tensión en contornos 
interiores, ej., círculos o elipses inscritos dentro de elementos grandes como 
se muestra en la Figura 13.7. 

Claramente, tales elementos pueden funcionar muy bien comparados con 
los estándar, ya que el carácter de la solución analítica se ha incluido de forma 
esencial. La Figura 13.8 muestra excelentes resultados que se pueden obtener 
utilizando estos elementos complejos. El número de grados de libertad 
es mucho menor que para una solución estándar en desplazamientos pero, 
naturalmente, el ancho de banda es mucho mayor. 39 

Dos puntos llaman claramente la atención en la formulación general de 
las Ees. (13.36) a (13.39). 

Primero, el campo de desplazamientos, a, sólo puede determinarse 
excluyendo los modos de sólido rígido. Estos sólo pueden dar deformaciones 
SN idénticamente iguales a cero y, por tanto, no dan contribución a la 
matriz H. 
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(a) 21 elementos de Trefftz, 252 GDL 



^ 1 1500 kN 

l 




Espesor t=lcm *= 0 21000 ^ 
0 20 40 60 



kN/cnr 



(b) 920 elementos estándar Q8, 5960 GDL 





0"xA 




T xyA 




kN/cm 2 


kN/cm 2 


kN/cm 2 


(a) 


77.9 






(b). 


77.2 


" 1.0"] 


0.0 " 


(74.2) 


(2.6) 


(0.1) 




Figura 13.8 Aplicación de elementos tipo Trefftz a un problema de tracción de 
una barra con un agujero circular en tensión plana, (a) Solución 
con un elemento de Trefftz. (b) Solución con elementos estándar de 
desplazamientos. (Los números entre paréntesis indican la solución 
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Segundo, las condiciones de estabilidad requieren que (para problemas 
en dos dimensiones) 

n 0 > n u — 3 

y de este modo se puede encontrar fácilmente el n a mínimo. De nuevo tiene 
poco interés incrementar substancialmente el número de parámetros internos 
por encima del número mínimo, ya que puede no ganarse precisión adicional. 

Se ha dicho anteriormente que la "traducción" de la formulación discutida 
a problemas gobernados por ecuaciones cuasi- armónicas es casi evidente. 
Esto se consigue reemplazando 

u <j> 
a — ► q 
t -» q n 
S - V 

Para la ecuación de Poisson 

VV = Q (13.45) 

se puede escribir una serie completa de soluciones analíticas en dos 
dimensiones de la forma 

Re(z n ) = l,x,x 2 -y 2 ,x 3 -3xy 3 ,... para z = x + iy (13.46) 

La Figura 13.9 muestra una solución simple de dos subdominios con 
valores de Q constantes pero diferentes y una conexión en el contorno, como 
indicación de la precisión de los procedimientos de conexión. 

13.6 Subdominios con elementos "estándar" y funciones globales 

El procedimiento que se acaba se describir puede usarse convenientemente 
con aproximaciones construidas internamente con elementos estándar (en 
desplazamientos) y funciones globales que ayudan a tratar singularidades en 
otros problemas internos. En este caso surge un término adicional en los 
nodos colocados en el interior del subdominio, pero el efecto de las funciones 
globales queda contenido dentro del subdominio. La formulación es algo más 
simple ya que no es preciso usar funciones complicadas tipo TrefFtz. 

Se dejan los detalles al lector, y en la Figura 13.10 se muestran algunos 
posibles ensamblajes de subdominios de utilidad. 



(13.44) 
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Figura 13.9 "Elementos" de contorno tipo TrefFtz conectando dos dominios 
de diferentes materiales en una barra elíptica sometida a torsión 
(ecuaciones de Poisson)." (a) Función de tensión dada por las 
variables internas mostrando casi continuidad completa. (6) 
componente x de la tensión de cortante (gradiente de la función 
de tensión mostrando discontinuidad abrupta en la unión de los 
materiales). 
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Figura 13.10 "Superelementos" construidos por ensamblaje de elementos 
estándar en desplazamientos mediante funciones globales 
eliminando singularidades limitadas al ensamblaje. 

13.7 Comentarios finales 

Las posibilidades de elementos o "superelementos" construidos mediante 
los métodos mixtos de campo incompleto de este capítulo son muy grandes. 
Muchos han encontrado uso práctico en programas de ordenador existentes 
como "elementos híbridos"; otros sólo ahora están disponibles de forma 
amplia. Una investigación más a fondo establecerá las ventajas de algunas de 
las formas descubiertas, y creemos que el uso de tales desarrollos aumentará 
en el futuro. 
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ESTIMACIÓN DE ERROR Y 
REFINAMIENTO ADAPTABLE 
EN ELEMENTOS FINITOS 

14.1 Introducción 

A lo largo de este libro se ha enfatizado el hecho de que el método 
de los elementos finitos ofrece solamente una aproximación a la solución 
exacta de un problema planteado matemáticamente. Se ha establecido que 
las diferencias entre las soluciones exactas y aproximadas, ej., errores en 
desplazamientos 

e u = u-Ü (14.1a) 

o errores en tensiones 

e a = a-a (14.1b) 

disminuyen si el tamaño de la subdivisión u h n se reduce o si "p", el orden 
del polinomio en la función de prueba utilizada, crece. Esto estableció la 
convergencia y, por tanto, la aceptabilidad o no de varias formas de elementos 
finitos. Sin embargo, la cuestión central de determinar la magnitud del error 
para un grado de subdivisión dado, no ha sido tratado hasta ahora (sino 
comparando en algunos ejemplos las soluciones de "elementos finitos" con la 
"exacta"). 

En este capítulo nos ocuparemos de determinar aproximadamente: 

a) el error que se ha cometido en un análisis particular de elementos finitos 
llevado a cabo (estimación de error a posteriori); 

b) la manera óptima de refinar la aproximación para conseguir resultados 
de una exactitud deseada dada, de forma económica^ 

En general la interacción entre a) y b) será adaptable y serán necesarios 
muchos pasos para alcanzar resultados óptimos. 

Se discutirán los principios de tal análisis completamente adaptable pero 
también se indicarán caminos más directos que pueden ser utilizados en la 
práctica. 

En la regeneración de la malla el usuario tiene a menudo la opción de 
ahorrar esfuerzos de preparación de datos manteniendo la malla original y 
refinando localmente, bien sea 
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a) introduciendo nuevos elementos del tipo usado originalmente pero de 
menor tamaño (h), o 

b) utilizando la misma definición de elementos pero aumentando el orden de 
polinomios utilizados (p) implicando nuevos "nodos" colocados en tales 
elementos, o 

c) utlilizando una combinación de a) y 6). 

En la Figura 14.1 se muestran las dos primeras posibilidades, llamadas 
a menudo refinamientos u h n o "p", respectivamente. En el Capítulo 
8, al tratar de las funciones de forma jerárquicas, se ha indicado cómo 
pueden añadirse fácilmente términos polinómicos más altos a los elementos 
existentes. Señalaremos aquí los méritos de tales formas en el análisis 
adaptable. 

! 

14.2 Normas de error y velocidad de convergencia 

La determinación del error local en la forma dada en las Ees. (14.1) 
no es conveniente en general y a veces puede resultar engañosa. Por 
ejemplo, bajo una carga puntual ambos errores, en desplazamientos y 




Malla original 




Refinamiento h (subdivisión) 




Refinamiento p (incremento del orden del polinomio) 
Figura 14.1 Refinamientos posibles de una malla poco precisa. 
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tensiones, serán localmente infinitos pero la solución en conjunto podría ser 
aceptable. Situaciones similares se darán cerca de ángulos entrantes donde, 
como es sabido, existen singularidades de tensiones en análisis elásticos 
y singularidades del gradiente en problemas de campo. Por esta razón 
se introducen a menudo varias "normas" que representan alguna cantidad 
escalar integral para medir el error o la función misma. 

Si, por ejemplo, estamos interesados en una ecuación general lineal de la 
forma de la Ec. (9.6) (véase Capítulo 9), esto es, 

Lu + p = 0 en O (14.2) 
se puede definir una "norma de energía" escrita para el error como 



MI 



= ^ e r Le düj V2 = j (u - Ü) T L(u - Ü) 



dÜ 



1/2 



(14.3) 



Esta medida escalar corresponde de hecho a la raíz cuadrada del funcional 
cuadrático, tal como se ha discutido en la Sec. 9.11 del Capítulo 9 y buscado 
su mínimo en el caso de un operador auto-adjunto L. 

Para problemas de elasticidad la norma de energía se define de forma 
idéntica y resulta, tras integración por partes, en 



= / (SefD 

Ja 



(14.4) 



(con la notación utilizada en el Capítulo 2). 

Aquí e viene dado por la Ec. (14.1a) y el operador S define las 
deformaciones como 



e = Su y £ = SÜ (14.5) 
y D es la matriz de elasticidad (véase Capítulo 2), resultando las tensiones 

<7- = Dg y ¿ = De (14.6) 

La norma de energía de la Ec. (14.4) puede, por lo tanto, escribirse 
alternativamente como 



(e-é) T B{e-é)dü 



1/2 



(e-é)(<T-a)dn 



1/2 



(14.7) 



(a-a)B- 1 (a-a)dn 



1/2 



418 



El Método de los Elementos Finitos 



y su relación con la energía de deformación es evidente. 

Fácilmente pueden ser ideadas otras normas escalares. Por ejemplo, 
la llamada norma de desplazamientos L 2 o el error en tensiones pueden 
escribirse como 



Mi, = 



L 
1 



(u-ú) T (u-Ú)dü 



(<r-*) T (<r-*)dn 



1/2 



1/2 



(14.8) 



(14.9) 



Tales normas nos permiten fijarnos en la cantidad particular de interés y 
realmente es posible calcular valores tales como la "raíz cuadrada de la media 
cuadrática" (RMC) de su error. Por ejemplo, el error RMC en tensiones, Aít, 
es para el dominio íí 



|A*| 



1/2 



(14.10) 



Cualquiera de las normas mencionadas puede ser evaluada sobre el 
dominio total o sobre subdominios, o incluso sobre elementos individuales. 
Nótese que 



N1 2 = £NI? 



(14.11) 



1=1 



donde i se refiere a elementos individuales fl t , tal que su unión sea H. 

Señalemos además que la norma de energía expresada en función de las 
tensiones, la norma L 2 de tensiones y el error RMC en tensiones tienen una 
estructura muy similar y que éstas se aproximan de forma parecida. 

Al llegar a este punto es interesante recordar la discusión del Capítulo 
2 (Sec. 2.6) en relación con las velocidades de convergencia. De ahí 
observaremos que con funciones de prueba de grado p en la formulación en 
desplazamientos, los errores en tensiones eran de orden 0(h) p . Este orden 
debería, por lo tanto, corresponderse con el error de la norma de energía, 
||e||. Estos argumentos son correctos para problemas sin singularidades, pero 
es interesante ver cómo la regla anterior es violada cuando éstas existen. 

En las Figuras 14.2 y 14.3 se muestran dos problemas similares de análisis 
de tensiones, en el primero de los cuales existe una fuerte singularidad. En 
ambas figuras se muestra la variación del error relativo de la norma en energía 
(en porcentaje): 



, = Mxl00* 



(14.12) 
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para un refinamiento tipo h resultante de una subdivisión uniforme de la 
malla inicial y para un refinamiento tipo p en el que el orden polinómico 
aumenta en toda la malla original. 

Señalemos dos hechos interesantes: Primero, las velocidades de 
convergencia h para varios grados polinómicos de las funciones de forma 
son casi las mismas en el ejemplo con singularidad (Figura 14.2) y están 
muy por debajo del orden teórico predicho 0(h) p , [o 0(NGL)~ p / 2 ya que 
NGL (número de grados de libertad) es aproximadamente inversamente 
proporcional a h 2 ]. 

Segundo, como muestra el caso de la Figura 14.3, donde se evita la 
singularidad redondeando el ángulo, la velocidad de convergencia mejora 
para elementos de orden más alto, aunque una vez más no se consiguen las 
velocidades teóricas (asintóticas). 

La razón de este comportamiento es claramente la singularidad y en 
general puede demostrarse que la velocidad de convergencia para problemas 
con singularidad es 

0(NGL)-[ min ( A '^/ 2 (14.13) 

donde A es un número asociado a la intensidad de la singularidad. Para 
problemas de elasticidad, A varía desde 0.5 para una fisura casi cerrada a 
0.71 para un ángulo de 90. o1 La velocidad de convergencia que se muestra 
en la Figura 14.2 se acerca al valor controlado por la singularidad para todos 
los valores de p utilizados en los elementos. 



Radio de Poisson, v = 0.3 
Espesor, t = 1.0 

Condiciones de deformación plana 

p = 1.0 




x 



Figura 14.4 Viga corta en voladizo. 
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Malla 1 Malla 2 




Malla 3 

Figura 14.6 Malla adaptable de elementos triangulares lineales para la viga corta 
en voladizo. 

En la Figura 14.4 se muestra otro problema con una influencia de 
singularidad fuerte tomado de la misma referencia. 1 En este caso, la 
convergencia que se muestra en la Figura 14.5 para una subdivisión uniforme 
de triángulos cuadráticos y lineales es casi la misma en el límite (dominado 
por la singularidad), a menos que se utilice la secuencia de las mallas que 
se muestra en la Figura 14.6. Se intenta conseguir para esta secuencia una 
malla óptima en la que el error en cada elemento sea (en el b'mite) constante. 
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Para tales mallas la velocidad de convergencia teórica, dependiente de p y es 
alcanzable, tal como se muestra en la Figura 14.5. 

Más adelante se trata sobre cómo puede conseguirse tal subdivisión de 
malla. 

Una última observación evidente tras haber examinado los resultados 
de la Figura 14.2 ó la 14.3 muestra que la convergencia tipo p tiene en 
general una velocidad más alta. Estos resultados se demuestran simplemente 
examinando las respuestas dadas para la misma malla utilizando polinomios 
diferentes. 

Una vez más es posible mostrar que la velocidad de convergencia tipo p 
alcanza valores muy altos si se utiliza una malla óptimamente subdividida. 2 

El hecho de que determinar la velocidad de convergencia a priori resulte 
imposible en la práctica quiere decir que con la excepción de los problemas 
más simples, la extrapolación tipo Richardson a la respuesta exacta (descrita 
en el Capítulo 2) no es generalmente útil a la hora de estimar errores. Por 
esta razón utilizaremos procedimientos más sofisticados en lo que sigue. 

14.3 Estimación de error-un procedimiento simple y efectivo para 
el refinamiento tipo h 

En aproximaciones irreducibles (en desplazamientos) a la elasticidad 
lineal y problemas de campo tratados anteriormente se ha supuesto en 
general una aproximación C 0 continua para ü (el desplazamiento) y esto 
conlleva tensiones discontinuas a. En el Capítulo 12 se ha mostrado cómo 
se puede obtener un campo continuo de tensiones <r* mediante promediado 
o "proyección". Así, si a* es un campo C 0 continuo interpolado mediante 
funciones del mismo tipo que las utilizadas para representar el campo ü, osea, 

Ü = Nü (14.14) 

y 

a* = Na* (14.15) 

la ecuación aproximada se consigue exigiendo la igualdad entre a* y &, de 
forma ponderada, esto es, 

/ N T ((r*-¿)<m = 0 (14.16) 

dando 




(14.17a) 



con 



<7 - DBü 



(14.17b) 
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= /n t n 
Jn 



(14.17c) 



El cálculo anterior se simplifica si se hace una aproximación diagonal o 
aglutinada para A y se sigue además un proceso iterativo de solución (véase 
el Capítulo 12, Sec. 12.6.1). 
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Malla 1, 40 GDL 
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Malla 2, 120 GDL 



17.9 


16.5 


18.2 


0.92 


1.01 


13.7 


12.1 


13-.3 


0.88 


0.97 




Malla 3, 400 GDL 
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6 Indice de efectividad 
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factor de corrección 

El sufijo L indica uso de la norma L 2 



Figura 14.7 Elementos bilineales. Viga en voladizo, tensión plana, E = 10 5 , 
v — 0.3. Análisis y estimación del error para subdivisión uniforme. 
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Con ambos campos & y a* disponibles se tiene que el error en tensiones 
puede estimarse con gran precisión como 



(14.18) 



La inserción de esta cantidad en las Ees. (14.7), (14.9) o (14.10) después de 
la solución del problema (esto es, a posteriori) permite calcular el error en 
cualquiera de las normas tratadas hasta ahora. 

Las estimaciones así obtenidas son excelentes, tal como indican las 
comparaciones con los valores exactos de error. Las Figuras desde la 14.7 a la 
14. 15 3 muestran una serie de problemas en los que se representa el índice de 
efectividad de la estimación de error para diversas mallas y tipos de elemento. 
Este índice se define como 
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IMIexacto 



(14.19) 
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Figura 14.8 Indices de efectividad local para el problema de la Figura 14.7 (mallas 
1 a 3)(0* norma de energía; en la norma L 3 los resultados son muy 
similares). 
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Malla 1 (120 GDL) 
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Malla 3 (514 GDL) 
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Malla 2 (340 GDL) 
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Malla 4 (558 GDL) 
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Malla 5 (578 GDL) 



Figura 14.9 Elementos bilineales. Una región en forma de L en tensión plana. 
Secuencia de refinamiento de malla. 
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Malla 1 (80 GDL) 
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Figura 14.11 Elementos bilineales. Análisis en deformación plana de una presa 
con una cavidad. Carga de agua solamente. Varios niveles de 
refinamiento (a) - (d). 
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Malla 3 (498 GDL) 
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Malla 4 (618 GDL) 




Figura 14.11 continuación 
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Malla 1 (310 GDL) 
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Figura 14.12 Elemento bicuadrático. Análisis en deformación plana de una presa 
con una cavidad. Carga de agua solamente. Varios niveles de 
refinamiento (a) - (d). 
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Figura 14.12 continuación 
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Figura 14.13 Generación automática de malla para alcanzar el 5 por ciento de 
precisión: cilindro grueso bajo carga diametral, (a) Elementos 
lineales, (b) Elementos cuadr áticos. 
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Se encuentra empíricamente que este índice (y, por tanto, la estimación 
del error) puede mejorarse corrigiendo la estimación directa por un factor 
constante. Este factor resulta ser para problemas de elasticidad: 

1.1 para elementos cuadrilaterales bilineales 

1.3 para elementos triangulares lineales 

1.6 para elementos bicuadráticos de nueve nodos 

1.4 para elementos triangulares cuadráticos 

De esta manera se obtienen los valores 8* y r¡* que se muestran en 
las ñguras. Sin embargo, incluso sin este recurso empírico los índices de 
efectividad son buenos. 

Aunque resulta intuitivamente "obvio" que las tensiones "alisadas" cr* 
son más precisas que las discontinuas y que, por consiguiente las estimaciones 
basadas en la Ec. (14.18) deberían ser buenas, se necesitaría una prueba 
más matemática de la corrección de la estimación. En la Figura 14.16 se 
ofrece una explicación simple y válida en la que se muestra una solución para 
un problema elástico unidimensional con un módulo constante, utilizando 
elementos cuadráticos y lineales. En este caso los valores de a son 
proporcionales a dufdx, y es evidente que el proceso de proyección o alisado es 
simplemente una aproximación en diferencias de mayor orden de la derivada 
nodal que la utilizada para calcular <r. Los argumentos son similares en dos 
y tres dimensiones. t 

El estimador de error presentado anteriormente es uno de los más sencillos 
de evaluar y de utilizar en la práctica. Su exactitud puede compararse 
con otros en los que el cálculo conlleva la evaluación de residuos obtenidos 
mediante la sustitución de la solución aproximada ü en la ecuación del 
problema. [Véase Ec. (14.2)], esto es, 

r = Lü + p (14.20) 

Este residuo se evalúa fácilmente dentro de cada elemento, pero en 
las interfases entre elementos resulta infinito si, por ejemplo, se tiene una 
ecuación diferencial de segundo orden y una aproximación continua Cq. El 
efecto integrado del residuo cerca de una interfase I cuando dft — ► 0 es 
equivalente a una integral de línea de la discontinuidad en los gradientes de 
u (o tracciones en un problema elástico) que llamaremos J (salto). Así 

J vdü = j Jdl (14.21) 

Los estimadores de error que usan la norma de energía obtenidos por 
varios autores 4-10 tienen la forma general (con r 2 = r T r, etc.) 



f Una prueba mas formal de validez de la estimación de error aquí propuesta ha sido 
presentada muy recientemente. 17 
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Figura 14.15 Triángulo cuadrático. Generación automática de malla para alcanzar 
el 5 por ciento de precisión. Análisis de deformación plana de una 
presa con una cavidad bajo carga de agua solamente, (a) Malla 
original. (6) Malla refinada. Con la estrategia de refinamiento de la 
F,r M 4.321 se alcanza, en una cineración, una Drecisión del 4.88 Dor 
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Figura 14.16 Porqué la proyección da una aproximación de mayor orden. (1) a 
Solución exacta. (2) & solución MEF = aproximación por mínimos 
cuadrados a a (discontinua). (3) <r* solución proyectada = 
aproximación por mínimos cuadrados a a (continua de alto orden). 
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|| c || 2 = d J r 2 dü + C 2 jf J 2 dl (14.22) 

donde fi es el dominio total e J la interfase total entre elementos. 

Para un único elemento, una expresión particular obtenida en las 
referencias 5 y 6 para problemas de dos dimensiones da una contribución 
elemental de la forma 

donde k depende del problema (siendo E/(l — v) para elasticidad en tensión 
plana), p es el orden polinómico de las aproximaciones utilizadas, y h el 
tamaño del elemento. 

Más adelante se volverá a tratar un estimador de este tipo, cuando se 
discutan los problemas de convergencia p, pero ahora señalaremos que: 

o) el estimador es más complejo de utilizar que el obtenido anteriormente ya 
que implica una evaluación de integrales de línea de las discontinuidades; 

b) se puede demostrar que el estimador simple utilizando alisado de 
tensiones es equivalente al obtenido y probado anteriormente por Babuska 
y Rheinboldt 5 , por lo menos en el caso de elementos bilineales (cuatro 
nodos); 5 - 11 

c) que para elementos de bajo orden la mayor contribución a las integrales 
(14.23) viene del término que incluye discontinuidades de las fuerzas de 
superficie entre elementos. Los usuarios de elementos finitos a menudo 
toman estas discontinuidades como una medida directa de error y existe 
de hecho una justificación '• teórica para esto como se muestra en lo 
anterior. 



14.4 El proceso de refinamiento h - Adaptabilidad 

Los estimadores de error tratados en la sección anterior permiten 
determinar la norma de energía global del error y los errores a nivel local 
(a nivel de elemento) también quedan normalmente bien representados como 
muestran las Figuras 14.8 y 14.10. Si estos errores se encuentran dentro 
de los límites prescritos por el analista, entonces el trabajo está claramente 
terminado. Sin embargo, frecuentemente estos límites se ven superados y es 
necesario refinar. La pregunta que se trata en esta sección es cómo llevar a 
cabo este refinamiento de forma óptima. Naturalmente son posibles muchas 
estrategias y mucho depende de los objetivos que se quieren alcanzar. 

En el caso más simple se intentará, por ejemplo, hacer el porcentaje de 
error relativo en la norma de energía 7] menor que algún valor especificado 
f¡ (por ejemplo 5 por ciento en muchas aplicaciones de ingeniería). Así debe 
conseguirse que 
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rj<fj (14.24) 

En una "malla óptima" es deseable que la distribución del error en norma 
de energía (esto es, ||e¡¡¿) sea igual para todos los elementos. Así, si el 
error permisible total está determinado (suponiendo que viene dado por el 
resultado de un análisis aproximado) por 

*KIH| 2 + l|e|| J ) 1/2 (14-25) 
se podría exigir una condición en la que el error en cualquier elemento i fuera 

Mi< ,(MíMf^ (14 , 6) 

donde m es el número de elementos implicados. 

Los elementos en los que no se cumple lo anterior son claros candidatos 
para el refinamiento. Así, si se define el coeficiente 



^ = (i (H.27) 



se refinará alH donde t 



& > 1 (14.28) 

El refinamiento podría llevarse a cabo progresivamente refinando 
solamente un cierto número de elementos en los que £¿ sea mayor que un 
cierto límite y cada vez dividir a la mitad el tamaño de tales elementos. 
En las Figuras 14.9 a 14.12 se muestra este tipo de proceso conocido como 
enriquecimiento de malla. El proceso de refinamiento mostrado arriba, 
aunque lleva finalmente a una solución satisfactoria obtenida con un número 
relativamente pequeño de grados totales de libertad, no es en general 
económico, ya que el número total de soluciones de prueba puede ser excesivo 
(como puede verse en los ejemplos). 

Un procedimiento más eficaz es diseñar una malla completamente nueva 
que cumpla el requisito de que 



(i < 1 (14-29) 

En este caso una posibilidad es recurrir a los criterios de velocidad de 
convergencia asintótica a nivel de elemento (aunque hemos visto que no son 
realistas en presencia de singularidades) y predecir la distribución de tamaños 
de elementos. Por ejemplo, supongamos 

f De hecho se puede "desrefinar" o usar un espaciamiento mayor entre elementos donde 
& < 1 si se desea un ahorro computacional. 
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IWIiOcfc? (14.30) 

donde h¿ es el tamaño del elemento actual y p el orden polinómico de 
aproximación; entonces, el tamaño del elemento para satisfacer el requisito 
de la Ec. (14.25) no debería ser mayor que 

h = C 1/P hi (14.31) 

Hoy existen programas de generación de malla en los que se puede 
especificar localmente el tamaño de los elementos y éstos se pueden usar 
para generar una nueva malla en la que realizar de nuevo el análisis. 12 En la 
Figura 14.6 y las Figuras 14.13 a 14.15 se muestra cómo empezando por una 
solución relativamente grosera una única predicción de malla permite una 
solución que (casi) satisface el nivel de precisión especificado como deseable. 

La razón del éxito de la regeneración de malla basada en el simple 
supuesto de velocidad de convergencia asintótica supuesto en la Ec. (14.30) 
es el hecho de que, con refinamiento, la malla tiende a ser "óptima" y la 
influencia de la singularidad localizada ya no afecta a la convergencia global. 
Ya se mostró este efecto en la Figura 14.6. 

Por supuesto los efectos de la singularidad estarán todavía presentes 
en los elementos adyacentes a la misma, y la subdivisión de malla puede 
mejorarse si en tales elementos se utiliza la convergencia adecuada y se 
escribe, en lugar de la Ec. (14. 13), 13 

h = ^ 1/X hi (14.32) 

en la que A es la potencia de la singularidad. Un número conveniente 
para utilizar en este caso es A = 0.5, ya que la mayoría de los parámetros 
de singularidad están entre 0.5-1.0. Con este procedimiento añadido a la 
estrategia de refinamiento se alcanza mayor precisión que el 5 por ciento en 
un remallado para los problemas de las Figuras 14.14b y 14.15. 

En los ejemplos ilustrados hasta ahora se ha mostrado en general 
un proceso de refinamiento con el número total de grados de libertad 
aumentando en cada nivel, aunque la malla sea rediseñada. Este no debe ser 
siempre el caso, ya que una malla fina pero mal estructurada puede tener un 
error mucho mayor que otra casi óptima. Para ilustrar este punto se muestra 
en la Figura 14.17 el refinamiento de un solo nivel diseñado para alcanzar 
un 5 por ciento de precisión en un paso empezando desde subdivisiones de 
malla uniforme. El problema aquí es el mismo que el que se muestra en las 
Figuras 14.4 a 14.6 y en el proceso de refinamiento se utilizan los criterios de 
malla de las Ecs.(14.31) y (14.32). 14 

Señalemos que ahora, en al menos un refinamiento, se produce un 
descenso de error total con una reducción de grados totales de libertad 
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(empezando para subdivisión uniforme 8x8 con NGL = 544 y rj = 9.8 
por ciento hasta NGL = 460 y r¡ = 3.1 por ciento). 

Ninguna de las estrategias sugeridas es "óptima" en el sentido de que 
un refinamiento de malla uniforme no es de ninguna manera necesario si 
el problema muestra "características direccionales" (esato es, la función u 
puede variar rápidamente a lo largo de alguna coordenada local x' y a una 
velocidad menor a lo largo de y'). Para tales situaciones podrían introducirse 
"indicadores de corrección" que nos indiquen en qué dirección es mas efectivo 
el refinamiento. Se tratará este procedimiento en una sección relacionada con 
la convergencia p. Alternativamente podrían introducirse diferentes normas 
de energía "direccionales". Estos refinamientos serán tratados más adelante. 

Como se mencionó anteriormente, la norma de energía no es, en la 
práctica, necesariamente el mejor criterio para refinar. El error de tensión 
local puede ser utilizado eficazmente y, aunque tales estimadores locales 
mediante los procedimientos señalados no son necesariamente precisos, éstos 
han sido utilizados con buenos resultados. 3 

Puede obtenerse una información local muy precisa en relación con 
tensiones, desplazamientos, factores de intensidad de tensiones, etc., 
mediante un replanteamiento adecuado del problema, que generalmente 
necesita una solución auxiliar. 15 La discusión de dichos procedimientos se 
deja a la literatura publicada, ya que es algo compleja para incluirla aquí. 

14.5 Estimadores de error para formulaciones jerárquicas. Una 
base para el refinamiento adaptable tipo p 

Existen varias posibilidades alternativas para derivar una aproximación 
al error total [tal como se ha mostrado en la Ec. (14.7)]. Una de ellas es, 
por supuesto, obtener una solución completa, por ejemplo, dividiendo a la 
mitad la malla existente. Otra es introducir un polinomio completo adicional 
en la aproximación. La diferencia entre dos soluciones consecutivas da una 
estimación del error local aunque a un coste muy considerable. 

Si se utiliza una forma jerárquica de aproximación, se puede obtener esta 
diferencia a un coste más razonable, utilizando la aproximación original. En 
esta forma jerárquica las ecuaciones discretizadas son (ver Capítulo 7), para 
ü = Nü, 

Kü = f (14.33a) 
y, con una variable ü h añadida jerárquicamente, 

Ü = Nü n + N ft ü fc 




(14.33b) 
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La solución de las Ees. (14.33) tendrá, por supuesto, un error de 
aproximación de la forma 

e = N(ü n - ü) + N^u* (14.34) 
Sin embargo, se puede hacer una aproximación razonable poniendo 

ü n « ü (14.35) 
en la segundo ecuación, osea, utilizando la aproximación original. Ahora 

-h = ( K Wt-l)(f, _ K /m ü) (14>36 ) 

y para conseguir esto sólo se necesita la inversión de la matriz K. hh . 

A menudo bastará una aproximación más cruda si se introducen los 
refinamientos jerárquicos uno a uno. Así, para cada grado de libertad que se 
introduzca en el "nodo" i, ü¿ es un escalar, y 



(tfJjV = ¿S (14-37) 



Para convertir la estimación de error local ej 1 = JV^üJ en una norma de 
energía se puede proceder de nuevo de varias formas. 

Una posibilidad es evaluar los cambios de tensión y deformación 
correspondientes, esto es, se obtiene, [ver Ec. (14.7)] 

HJ = üf I (SJ^) r D(Stfft dÜüf = üfK&ü* (14.38) 
siendo el estimador total 

para un gran número de grados de libertad introducidos. 
Otro procedimiento se basa en el residuo y en que 

||e||¿ = ^e T Ledny /2 = (- J^ T vdüj /2 (14.40) 
para cualquier ecuación diferencial, ya que 



Lü + p = r 
Lu + p = 0 



(14.41) 
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y 

Le = L(u — ü) — — r 

Ahora r puede ser evaluado para una u h dada tanto dentro del elemento como 
en las interfases [ver Ees. (14.20) y (14.21)], y si se observa que, de hecho, la 
segunda de las ecuaciones (14.33b) es una forma de residuos ponderados 

K hh ñ h = - ( N h rdü (14.42) 




A — 

Paso 1. Geometría inicial de la malla, Condiciones 
de contorno y carga: 77 = 25.8%. 72 GDL. 
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Paso 5. Versión adaptada de p. 77 = 7.2%. 144 GDL 

Figura 14.18 Una solución con refinamiento tipo p para el problema del dominio 
en forma de L. 
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se puede escribir para una única variable introducida utilizando las Ees. 
(14.33) y (14.40) a (14.42), 

La cantidad anterior es útil como un indicador de corrección que da 
de forma bastante exacta la magnitud del error que puede ser corregida 
introduciendo un grado particular de libertad y es, por supuesto, idéntica a 
la Ec. (14.38). Sin embargo, no es un buen estimador de error ya que a veces 
la nueva función de forma introducida N¡ puede ser ortogonal al residuo r. 

Se obtiene un estimador de error mejorado utilizando la desigualdad de 
Schwartz al sustituir la integral en la Ec. (14.43) de la forma 8 

(L N < rda )^(L N ? iíl )(L T ' dSl ) (14 - 44) 

Resulta que esta forma da un estimador que es eficiente, particularmente 
si se introduce un factor de corrección de y/2. Ahora se evalúa 



^ = 7=2 



E( J n Nf dü J n r 2 dü + ¡i Vi* ^ Si J 2 dl) 



1/2 



(14.45) 



reconociendo como antes la necesidad de tratar con saltos interelementales. 
La suma se lleva a cabo sobre todos los nuevos grados de libertad que pueden 
ser introducidos en la nueva etapa jerárquica. 

Obviamente el procedimiento tiene ventajas para refinamiento tipo p 
cuando se considera el siguiente orden polinómico más alto en un elemento 
al establecer los indicadores de corrección y el estimador de error. 

Durante el proceso de refinamiento el orden polinómico puede ser variable 
de elemento a elemento. 

Disponiendo de indicadores de error para todos los grados de libertad 
candidatos que pueden introducirse, la estrategia adaptable puede introducir 
directamente aquellos que proporcionen la mayor disminución de error [ver 
Ec. (14.43)]. 

Una técnica empleada a veces 9 consiste en incluir en el siguiente análisis 
todos aquellos grados de libertad que dan 



d > 7 C m¿x (14.46) 

donde C m ¿ LX es el máximo valor de cualquier indicador de corrección y 7 un 
número en el rango 0.1-0.5. 

Obviamente 7 = 0 corresponde simplemente al refinamiento completo de 
todos los elementos, pero cualquier valor razonable mayor que 0 tenderá a 
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dar un refinamiento óptimo, en el que el error en cada elemento tienda a ser 
constante después de muchos pasos adaptables. 

La Figura 14.18 muestra de nuevo el problema discutido previamente 
pero resuelto ahora utilizando refinamientos tipo p jerárquicos. La figura 
muestra la distribución final de los grados de libertad. 

El proceso adaptable descrito aquí debe ser continuado hasta que se 
alcance la precisión deseada y, aunque lleve a un ahorro en los grados de 
libertad usados finalmente, es menos eficaz que el descrito previamente en el 
cual se intentaba alcanzar directamente la solución de precisión buscada. 



14.6 Comentarios finales 

Los métodos de estimación de error y refinamiento adaptable que se 
describen en este capítulo constituyen una herramienta muy importante para 
la aplicación práctica de los métodos de elementos finitos. El rango de 
aplicaciones es grande y sólo se ha tratado aquí el rango relativamente simple 
de la elasticidad lineal y problemas similares autoadjuntos. Un reciente 
estudio 4 muestra muchas más áreas de aplicación y se dirige al lector a esta 
publicación si desea conocer interesantes detalles. En este punto querríamos 
reiterar que se pueden usar muchas normas o medidas de error diferentes y 
que para algunos problemas la norma en energía no es, de hecho, "natural". 
Un buen ejemplo es el presentado por los problemas de flujo de gases a 
alta velocidad, donde pueden aparecer gradientes muy pronunciados ( "ondas 
de choque"). La formulación de tales problemas es compleja, pero no es 
necesaria para la presente argumentación. En este análisis la atención se 
centra en la función u misma, y no en sus derivadas (tensiones). En tales 
casos se procede usando la norma X 2 de la función u misma como medida del 
error. En un caso unidimensional, tal como el ilustrado en la Figura 14.16, 
se encuentra que las derivadas nodales se aproximan bien por proyección y, 
por tanto, la segunda derivada (o curvatura) d 2 ú/dx 2 se aproxima dentro de 
cada elemento con precisión. 

Esto proporciona una estimación del error e de la forma 



e = u - ü = ~xi(h - Xi) 



d 2 u 
~dx~ 2 



(14.47) 



si xi es la coordenada medida desde el lado del elemento y si se supone que 
ü es nodalmente exacta. Inmediatamente, la norma L 2 del error viene dada 
para el elemento i como 



cPü 
dx 2 



(14.48) 



que puede ser usada en el control de un refinamiento de malla si se pretende 
limitar este error a un valor fijo en cada elemento. 
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Figura 14.19 Enriquecimiento de malla. Flujo supersónico sobre una cuña 
(número de Mach 3). (a) Configuración inicial de la malla, (b) 
Después de 101 pasos, (c) Después de 201 pasos (p=densidad; 
u= velocidad; e— energía específica). 
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Figura 14.20 Problema de la Figura 14.19. Densidad después de: (a) 100 
pasos; (b) 200 pasos; (c) 250 pasos (utilizando las mallas refinadas 
mostradas en la Figura 14.19). 
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(«) </>> 

Figura 14.22 Flujo viscoso sobre una placa plana. Número de Mach 3. (a) Mallas 
inicial y regenerada, (b) Líneas de isodensidad calculadas. 



Esta medida puede extenderse a un problema bidimensional, bien 
realizando un refinamiento uniforme o aplicando la medida según los ejes 
principales de curvatura. Las Figuras 14.19 a 14.22 muestran la aplicación 
de tales refinamientos adaptables para localizar con éxito las zonas de "shock" 
en problemas de flujo supersónico. En el primer ejemplo la malla se refina 
uniformemente y en el segundo direccionalmente, 12,16 mostrando la malla 
óptima resultante. Tal refinamiento no uniforme tiene también interés en 
problemas tales como el de deformación plástica donde tienen importancia 
las b'neas de deslizamiento direccional, y aquí hay por tanto otro campo para 
su aplicación. 
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Capítulo 15 



MÉTODOS DE CÁLCULO POR 
ORDENADOR PARA ANÁLISIS 
POR ELEMENTOS FINITOS 

15.1 Introducción 

En este capítulo consideraremos algunos de los aspectos relativos al 
desarrollo de los programas de ordenador para cálculo por elementos finitos 
que utilizan la teoría presentada en los capítulos anteriores. El programa 
de cálculo que presentamos puede utilizarse para resolver cualquiera de los 
problemas uní-, bi-, o tridimensionales discutidos previamente, siempre que 
la matriz global de coeficientes de las ecuaciones algebraicas resultantes sea 
simétrica. El programa puede ser fácilmente modificado para permitir la 
extensión al caso no simétrico. Aunque la teoría en este volumen se limita 
a las aplicaciones lineales, el programa se puede usar también para resolver 
problemas no lineales y /o transitorios, que serán discutidos en detalle en el 
próximo volumen. 

El programa de ordenador presentado es una extensión del trabajo 
contenido originalmente en la 3 a edición. 1 Se han hecho diversas extensiones 
para permitir la consideración de un rango más amplio de implementaciones 
computacionales y de tipos de problemas (aunque con algunas limitaciones 
debido a requisitos de espacio). La versión que se incluye en este capítulo 
se llama PCFEAP y está específicamente diseñada para usarla en ordenador 
personal. El nombre del programa es acrónimo de "Personal Computer Finite 
Element Analysis Program". En una versión para ordenador personal la 
principal limitación es la memoria disponible, y no es posible tener todos 
los vectores necesarios disponibles en memoria central ("in-core") al mismo 
tiempo. En consecuencia, se ha adoptado un sistema frontal con memoria en 
disco ("out-of-core") para resolver las ecuaciones algebraicas lineales. 2,3 Se 
usa un sencillo sistema de gestión de la memoria, que maneja la memoria 
principal y archivos en disco, para almacenar los vectores grandes que 
resultan de la matriz global de coeficientes y los términos elementales de 
historia. 

Para la implementación en grandes ordenadores con gestión de memoria 
virtual, es más eficiente evitar el uso de archivos en disco en la medida 
de lo posible. Así, para estos sistemas se incluye un solver "in-core" de 
banda variable como opción para la solución de las ecuaciones. 4 Es necesario 
seleccionar uno de estos sistemas a la hora de instalar el programa. Ambos 
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sistemas de manejo de ecuaciones que se incluyen son compatibles con la 
versión para ordenadores personales, PCFEAP. Se puede obtener una cierta 
mejora en la eficiencia reprogramando para evitar todas las operaciones de 
entrada/ salida a disco y manteniendo los vectores en memoria principal. 

La versión actual de PCFEAP permite la solución de problemas tanto 
en "cola" como de forma interactiva. El modelo de elementos finitos 
del problema se introduce mediante un archivo de entrada de datos que 
se prepara según las instrucciones que se detallan más adelante en este 
capítulo. Se incluye también una opción sencilla para gráficos que permite 
mostrar modelos de elementos finitos en una y dos dimensiones, tanto en la 
configuración indeformada como en la deformada. De nuevo, las limitaciones 
de espacio han impedido que se incluyeran otras opciones; sin embargo, 
programadores con experiencia pueden añadir fácilmente otras posibilidades. 
Al desarrollar el programa se han usado subprogramas de la librería de dibujo 
Graphics Development Toolkit. 5 En caso necesario éstas pueden ser sustiuidas 
por otros sistemas gráficos. 

Los programas de elementos finitos pueden dividirse en dos partes básicas: 

a) módulo de entrada de datos y preprocesadores, y 

b) módulos de resolución y salida de resultados que llevan a cabo el cálculo 
real (véase esquema simplificado en la Figura 15.1). 

En la práctica, cada módulo puede ser muy complejo. En las secciones 
siguientes discutiremos con algún detalle aspectos de la programación de 
cada uno de los módulos. Se supone que el lector está familiarizado con 
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Figura 15.1 Esquema simplificado del programa de elementos finitos. 
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los principios de los elementos finitos presentados en este libro, el álgebra 
lineal, la programación, y en particular con el lenguaje FORTRAN. Aquellos 
lectores que simplemente quieran usar el programa listado al final del capítulo 
pueden pasar por alto las secciones que siguen y pasar directamente a las 
instrucciones de utilización incluidas en las Secciones 15.3, 15.4 y 15.8. 

Este capítulo está dividido en ocho secciones. Las Secciones 15.2 y 15.3 
discuten el procedimiento adoptado para la entrada de datos, de manera que 
quede descrito el problema de elementos finitos, y las instrucciones para la 
preparación de las tarjetas de datos respectivamente. Básicamente, los datos 
consisten en cantidades asociadas a los nodos (ej. coordenadas, datos de 
condiciones de contorno, cargas, etc.) y cantidades asociadas a los elementos 
(ej. datos de conectividad, propiedades de los materiales, etc.). 

La Sección 15.4 discute algoritmos de solución para distintos tipos de 
análisis por elementos finitos. Con objeto de obtener un programa capaz 
de resolver muchos tipos de problemas de elementos finitos se introduce 
un macrolenguaje de programación. Este macrolenguaje está asociado 
a un conjunto de subprogramas compactos, pensado cada uno de ellos 
para calcular uno o, como máximo, algunos de los pasos básicos del 
proceso de solución mediante elementos finitos. Ejemplos de macrolenguaje 
son las instrucciones para formar la matriz de rigidez global, así como 
las instrucciones para resolver las ecuaciones, escribir resultados, etc. 
El concepto de macroprogramación permite incluir una amplia gama de 
algoritmos de solución en el programa que aquí se presenta. 

En la Sección 15.5 se discute la metodología comúnmente utilizada para 
obtener las matrices de los elementos. En particular, se utiliza la integración 
numérica para obtener las matrices de "rigidez", "masa" y "cargas" de los 
elementos para los problemas lineales de transferencia de calor y elasticidad. 
Asimismo, se discute la utilización de rutinas para obtener las funciones de 
forma básicas (ver Capítulos 7 y 8). 

En la Sección 15.6 se presentan los métodos para resolver los grandes 
sistemas de ecuaciones algebraicas resultantes de las formulaciones por 
elementos finitos. Los métodos adoptados para el programa de ordenador 
son un método frontal, basado en la eliminación gaussiana, 2 ' 3 y un método 
de perfil de ancho variable, basado en el método de Crout. 4 El método 
básico consiste en factorizar la matriz de coeficientes en el producto de una 
matriz triangular inferior y otra superior. El uso de este esquema conduce a 
un programa muy compacto y permite incluir la capacidad de resolución 
(esto es, nuevos estados de carga) sin ningún esfuerzo de programación 
importante adicional. El aprovechamiento de la capacidad de resolución 
puede reducir sustancialmente el coste del análisis de distintos estados de 
cargas. Los suprogramas que se incluyen sólo permiten la solución de 
matrices de coeficientes simétricas. Para formulaciones de elementos finitos 
que no conduzcan a una matriz simétrica es posible extender el sistema de 
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solución frontal tal como lo describe Hood. 6 El método de ancho variable es 
capaz de resolver algunos problemas no simétricos; sin embargo, es necesario 
modificar el mapa de memoria y el proceso de ensamblaje ( ver referencias 1 
ó 4). 

En la actualidad, existen muchos programas complejos y eficientes 
para análisis por elementos finitos capaces de tratar un gran número de 
variables y formulaciones. La gran complejidad de dichos programas hace 
implícita la dificultad de ponerlos al día para introducir las innovaciones 
tecnológicas. El programa que se presenta se ha escrito específicamente como 
un instrumento de educación e investigación, en el que los distintos "módulos" 
pueden modificarse o añadirse como se desee. Por supuesto, las subrutinas 
pueden combinarse para objetivos que incluso hoy pueden ser obviamente 
innecesarios. ■ 

Para desarrollar un programa para ordenadores pequeños no se 
mantienen todas las ecuaciones en memoria central; así, la capacidad del 
programa queda limitada por la memoria y el tamaño del disco del ordenador 
usado. Con la memoria central disponible en algunos ordenadores personales 
actuales, el programa sólo puede manejar problemas de ingeniería con varios 
cientos de incógnitas (el máximo ancho de frente es definido como 120). A 
costa de cierta complejidad y eficiencia, el programa puede extenderse para 
problemas mayores, y trataremos este tema en la Sección 15.7. 

Finalmente, la Sección 15.8 contiene un listado completo del programa 
discutido en este capítulo. También se incluyen rutinas de elemento 
para análisis de problemas bidimensionales de elasticidad lineal. Mediante 
el formato de estas rutinas el lector se encontrará en condiciones, una 
vez dominado este capítulo, de programar rutinas adicionales para otros 
problemas y de ampliar las capacidades del programa. 

15.2 Módulo de entrada de datos 

El módulo de entrada de datos esquematizado en la Figura 15.1 debe 
transmitir suficiente información a los otros módulos de manera que pueda 
resolverse cada problema. En el programa que aquí examinamos, el módulo 
de entrada de datos se utiliza para leer de un archivo de entrada los datos 
necesarios acerca de la geometría, materiales y fuerzas actuantes, de forma 
que puedan establecerse todas las matrices de elementos finitos posteriores. 
En el programa se establece un conjunto de matrices dimensionadas que 
almacenan las coordenadas nodales, la conectividad de los elementos, las 
propiedades del material, los códigos para las condiciones de contorno, fuerzas 
nodales y los desplazamientos prescritos, las temperaturas nodales, etc. La 
Tabla 15.1 lista los nombres de las matrices (y sus dimensiones) utilizadas 
para almacenar estas cantidades. 

La notación empleada para las matrices es distinta a la empleada en 
el resto del libro. Por ejemplo, en el texto se ha encontrado conveniente 
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TABLA 15.1 

NOMBRES DE LAS VARIABLES UTILIZADAS PARA 
ALMACENAMIENTO DE DATOS 



Nombre de la variable(dimensión) Descripción 



D(18,NUMMAT) 


Datos relativos a las propiedades del material, li- 


mitado a 18 palabras por tipo de material. 


F(NDF,NUMNP) 


Fuerzas y desplazamientos nodales. 


ID(NDF,NUMNP) 


Condiciones de contorno que después de la entrada 


de datos cambia los números de las ecuaciones 




en los vectores globales. 


IE(8,NUMMAT) 


Tipo de elemento para cada tipo de material. 


IX(NEN1,NUMEL) 


Conexiones nodales del elemento y número del tipo 


de material. 


T(NUMNP) 


Temperaturas nodales. 


X(NDM.NUMNP) 


Coordenadas nodales. 


NDF 


Número máximo de grados de libertad en un nodo 




(6 como máximo). 


NDM 


Dimensión espacial del problema (3 como máximo). 


NEN 


Número máximo de nodos conectados a un elemento. 


NEN1 


NEN+3 


NUMEL 


Número de elementos. 


NUMMAT 


Número de tipos de materiales. 


NUMNP 


Número de nodos. 



denominar a las coordenadas nodales por x¿, y¿, z±, mientras que en el 
programase llaman X(l,i), X(2,i), X(3,i) respectivamente. Esta modificación 
se hizo de manera que todas las matrices utilizadas en el programa pudieran 
dimensionarse dinámicamente; por tanto, cuando se analice un problema 
bidimensional, no han de reservarse posiciones para las coordenadas X(3,i) e 
igualmente para X(2,i) en los problemas unidimensionales. 

Además, el desplazamiento nodal en el texto se denomina a¿; en el 
programa se le denomina U(i) ó U(l,i), U(2,i), etc., donde el primer índice 
se refiere a los grados de libertad de un nodo (desde 1 a NDF). 

15.2.1 Asignación del espacio de almacenamiento. Un único vector se divide 
para almacenar todas las matrices de datos, así como alguna de las matrices 
globales, ej., de residuos, desplazamientos, cargas, etc. Cada una de las 
matrices relacionadas en la Tabla 15.1 está dimensionada exactamente al 
tamaño requerido para cada problema mediante el empleo de indicadores 
establecidos en el programa de control (véase Figura 15.2). De esta manera 
no se desperdicia espacio en el almacenamiento de datos y se reserva un 
espacio máximo para almacenar las matrices globales. Puesto que se utiliza 
este método de dimensionamiento automático no es posible establecer valores 
absolutos para el máximo número de materiales, nodos o elementos. 
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Módulo de entrada de datos 
y de perfil de las ecuaciones 




Q Stop J 



Inicia indicadores I 



Módulo de solución 
y salida de resultados 



I PMESH II 
I PROFIL i 



PMACR 



6 



Figura 15.2 Programa de control. 



El programa usa diferente precisión (enteros, reales, doble precisión) 
para mantener la máxima capacidad. El alineamiento de bytes se 
mantiene también para conseguir la máxima eficiencia en varios sistemas de 
ordenadores. El programa controla que existe espacio sufiente para resolver 
cada problema, y si no es así, imprime un mensaje de error. La capacidad 
total del programa se controla mediante la dimensión del vector en el "blank 
common" del programa principal y el correspondiente valor de MAXM. 
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Un segundo b'mite al tamaño del problema es el tamaño resultante de la 
matriz de coeficientes. Los términos se almacenan en el vector contenido en 
el "common" ADATA. En la versión que se da aquí, el solver frontal está 
limitado por un ancho de frente máximo de 120, y el solver en perfil a un 
vector con un perfil no nulo de menos de 8000 términos. Si se excede esta 
capacidad, se imprime un mensaje de error y el programa se para. 

El ancho de banda depende del orden de numeración de los elementos. 
Remunerar los elementos puede reducir el frente máximo a un tamaño 
aceptable. En la solución por perfil el frente depende de la numeración nodal; 
remunerar los nodos puede reducir el tamaño. Este asunto se discutirá algo 
más en la Sección 15.6. 

En general, para los límites actuales de dimensión amiento, el límite de 
malla se alcanzará primero con el sistema de solución frontal, mientras que 
el límite de tamaño de ecuaciones se alcanzará primero para el sistema de 
solución de ancho variable. 

15.2.2 Datos del elemento y coordenadas. Una vez establecida una malla 
para un problema pueden prepararse los datos para el programa (ver Sección 
15.3 para formatos). Como ejemplo, consideremos la definición de datos 
de las coordenadas nodales y conectividades del elemento para la región 
rectangular bidimensional (es decir, NDM=2) representada en la Figura 15.3, 
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A^) = número del elemento 
/ = número global del nodo 



Figura 15.3 Malla sencilla. 
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Opción 


Número local del nodo 


no. 


12 3 4 


a 


3 4 8 7 


b 


4 8 7 3 


c 


8 7 3 4 


d 


7 3 4 8 



Figura 15.4 Elemento típico de 4 nodos. 



donde se ha establecido una malla de nueve elementos rectangulares de 4 
nodos (NUMEL=9 y NEN=4) con 16 nodos (NUMNP). Para describir los 
datos de los nodos y del elemento, hay que asignar valores a cada X(iJ) para 
i = 1,2 y j = 1 a 16, y a cada IX(k,n) para fc = la4yra = la9. En la 
definición de la matriz de coordenadas X, la dimensión "i" indica la dirección 
de la coordenada y la "j" define el número del nodo. Así, el valor de X(l,3) es 
la coordenada x para el nodo 3 y el valor de X(2,3) es la coordenada y para el 
nodo 3. De manera similar, para la matriz de conectividad del elemento IX, el 
índice ib es el número local de un nodo de un elemento y "n" es el número del 
elemento. El valor de cualquier IX(k,n) es el número global de un nodo. El 
convenio para el número global del primer nodo es algo arbitrario. El número 
del nodo local 1 para el elemento 3 de la Figura 15.3 podría asociarse con 
el global 3, 4, 7 u 8. Una vez establecido el primer nodo local, los otros se 
definen de acuerdo con el convenio adoptado para cada tipo particular de 
elemento. Por ejemplo, el cuadrilátero de cuatro nodos puede numerarse de 
acuerdo con la Figura 15.4. Si se considera de nuevo el elemento 3, se tienen 
cuatro posibilidades para definir la matriz IX(k,3). Estas se muestran en la 
Figura 15.4. El cálculo de las matrices de los elementos a partir de cualquiera 
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de las descripciones anteriores debe producir los mismos coeficientes para las 
matrices globales. 

Para mallas muy grandes la preparación de datos sería muy tediosa; en 
consecuencia, el programa debe ser capaz de generar la mayor parte de los 
datos. Un esquema sencillo para la generación de nodos es introducir los 
puntos extremos de una línea cualquiera y generar por algún procedimiento 




Figura 15.5 Diagrama de flujo para entrada de datos de la malla. 
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los puntos interiores, por ejemplo, por interpolación lineal en el caso del 
programa que nos ocupa. Así, para la malla de la Figura 15.3 se podrían 
proporcionar las coordenadas de los nodos 1 y 4 y generar las de los nodos 2 
y 3. Hasta para este simple problema la preparación de datos de coordenadas 
se reduce a la mitad. 

Para cada elemento existe generalmente una regla con la que se pueden 
generar elementos. Consideremos de nuevo la malla de la Figura 15.3. Los 
valores nodales del elemento 2 son los del elemento 1 incrementados en 1; y 
los nodos del elemento 3 son los del 2 incrementados en 1. Por consiguiente, 
se podrían dar las conexiones de los elementos 1, 4 y 7 y generar el resto 
usando un incremento especificado. 

Se pueden desarrollar esquemas de generación más sofisticados. Por 
ejemplo, para regiones compuestas por bloques regulares de elementos, una 
alternativa consiste en describir un superelemento que luego se subdivide 
en elementos y nodos. 7 El procedimiento adoptado para introducir los datos 
de la malla debe ser coherente con la clase particular de problemas que el 
usuario quisiera analizar, así como con las facilidades disponibles. El esquema 
de entrada de datos que se incluye en el programa aquí ofrecido es sencillo y 
debe estar, para la mayoría de análisis, dentro de la capacidad del programa. 
Si un usuario desea preparar su propio esquema de entrada de datos puede 
combinarlo fácilmente con la subrutina PMESH, ya que cada segmento de 
entrada no interfiere con ninguno de los otros. En la Figura 15.5 se representa 
el diagrama de flujo para PMESH. 

15.2.3 Definición de las propiedades del material; diferentes rutinas de 
elementos. La discusión anterior se ha centrado sólo en las matrices de datos 
para las coordenadas nodales y la conectividad del elemento. Es también 
necesario especificar las propiedades del material asociado a cada elemento, 
las cargas y las vinculaciones de cada nodo. 

Cada elemento tiene propiedades del material asociadas al mismo; ej., 
para materiales elásticos lineales isótropos la constitución del material para 
un estado isotérmico está definida por el módulo de Young E y el coeficiente 
de Poisson v. En la mayoría de los casos, varios elementos tienen las 
mismas propiedades materiales y no es necesario especificar las propiedades 
individualmente para cada uno. En este caso, un elemento puede asociarse a 
un grupo de propiedades del material mediante un solo número en la tarjeta 
del elemento y las propiedades sólo han de definirse una vez. Por ejemplo, 
si la región que se muestra en la Figura 15.3 es toda del mismo material, 
sólo se necesita un grupo de propiedades del material y cada elemento estará 
referido a ese grupo. 

Un ejemplo más complicado es el que se vió en la Figura 1.4 del 
Capítulo 1, donde los elementos 1, 2, 4 y 5 podían ser elementos planos, 
mientras que el elemento 3 es un elemento unidimensional. (En los problemas 
de ingeniería reales pueden necesitarse varios elementos al mismo tiempo.) 
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En este caso hay que calcular al menos dos tipos de matrices de rigidez 
diferentes. En nuestro programa existen dispositivos para utilizar hasta 
cuatro tipos diferentes de rutinas en cualquier análisis. El programa se ha 
diseñado de manera que todos los cálculos asociados a cualquier elemento 
están contenidos en una subrutina de elementos llamada ELMTnn, donde 
nn varía entre 01 y 04 (ver Sección 15.5.3 para discusión de la organización 
de ELMTnn). Cada tipo de elementos que haya de emplearse se define 
como parte de los datos de las propiedades del material. Así, si el tipo 
de elemento 1, calculado utilizando por ejemplo la subrutina ELMT01, es un 
elemento plano de elasticidad lineal con 3 o 4 nodos y el tipo de elemento 2 es 
un elemento unidimensional, calculado utilizando por ejemplo la subrutina 
ELMT04, los datos para el ejemplo de la Figura 1.4 podrían ser: 

a) Propiedades del material: 



N.° del 


Tipo del 


Datos de propiedades 


material 


elemento 


del material 


1 


4 


E x% A x 


2 


1 


E 2 , v% 



b) Enlaces de los elementos: 



Elemento 


Número del 
material 


Conectividad 


1 


2 


1 


3 4 


2 


2 


1 


4 2 


3 


1 


2 


5 


4 


2 


3 


6 7 4 


5 


2 


4 


7 8 5 



donde E es el módulo de Young, v el coeficiente de Poisson, y A el área. Así, 
los elementos, 1, 2, 4 y 5 tienen propiedades materiales del grupo 2 que está 
asociado al elemento del tipo 1 — es decir, es un elemento plano de elasticidad 
lineal como muestra la Figura 1.4 — . De manera similar, el elemento 3 tiene 
propiedades materiales del grupo 1 que está asociado al elemento del tipo 4 o 
elemento unidimensional. Más tarde se verá que el esquema anterior conduce 
a la organización de una rutina de elemento que lee todos los grupos de datos 
de los materiales y calcula todas las matrices necesarias para el análisis por 
elementos finitos. 

Se podrían utilizar esquemas más sofisticados (ver la referencia 8); sin 
embargo, para el tipo y las capacidades del programa que aquí se incluye la 
complejidad añadida es innecesaria. 

15.2.4 Condiciones de contorno; números de las ecuaciones. El proceso 
de definir las condiciones de contorno y el procedimiento de modificar los 
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5 t 6 
I 



Nodos 



^ — Perfil 



(a) 



Almacenamiento del perfil = 54 palabras 



2 3 



Almacenamiento del perfil = 32 palabras • • • • 



Nodos 



(b) 



Figura 15.6 Matriz de rigidez, (a) Almacenamiento de la rigidez total. 

(6) Almacenamiento prescindiendo de las condiciones de vinculación. 

desplazamientos prescritos están unidos al método adoptado para almacenar 
las matrices globales, por ejemplo, las matrices de rigidez y de masa. En 
el programa sólo se almacenan los coeficientes que en las matrices globales 
estén dentro de un perfil no nulo. 

El almacenamiento del perfil no nulo de las ecuaciones lleva a economías 
considerables en comparación con el almacenamiento de la más tradicional 
solución en banda. f Además, en general es más eficiente prescindir de 
las filas y columnas de las ecuaciones que correspondan a desplazamientos 
especificados en el contorno. Como ejemplo, consideremos la matriz de 
rigidez correspondiente al problema representado en la Figura 1.1; para 
almacenar todos los términos comprendidos en el perfil superior se necesitan 
54 palabras, mientras que si se eliminan las ecuaciones correspondientes a 
los nodos vinculados 1 y 6 sólo se requieren 32 palabras para almacenar la 
rigidez compacta (ver Figura 15.6). Esto representa un ahorro de más del 
40% solamente para la matriz de rigidez. El esfuerzo (medido por tiempo 
de computador) para resolver las ecuaciones mediante un método de perfil 
es aproximadamente proporcional al cuadrado de la suma de las alturas de 
las filas. Para el ejemplo de la Figura 15.6 el almacenamiento compactado 



t En la Sección 15.6 veremos que el almacenamiento del perfil por columnas conduce a 
un método directo de solución de las ecuaciones muy eficiente. 
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conduce también a economías de más del 40 por ciento en la solución de las 
ecuaciones. 

En el método de solución frontal tampoco se incluyen las ecuaciones 
asociadas a valores prescritos de las variables dependientes. De esta forma, 
el máximo ancho de frente se reduce al mínimo. 

Para facilitar la operación de almacenamiento compacto se introduce 
como dato una matriz de condiciones de contorno para cada nodo. La 
matriz se denomina ID y se dimensiona tal como se muestra en la Tabla 15.1. 
Durante la entrada de datos, la componente de la matriz ID para un grado 
de libertad nodal que esté definido a priori, o bien que no tenga ninguna 
incógnita asociada (es decir, diferentes nodos pueden tener diferente número 
de incógnitas asociadas), se hace igual a un valor no nulo; para los otros 
grados de libertad ID vale cero. En la Tabla 15.2 se muestran los valores de 
ID para el ejemplo que se muestra en la Figura 1.1 del Capítulo 1, donde es 
evidente que los nodos 1 y 6 están completamente vinculados. 

TABLA 15.2 
VALORES DE LOS CÓDIGOS DE 
CONTORNOS VINCULADOS PARA ENTRADA DE 
DATOS DEL PROBLEMA DE LA FIGURA 1.1 



Nodo 


Grado de libertad 
1 2 


1 




1 


2 


0 


0 


3 


0 


0 


4 


0 


0 


5 


0 


0 


6 


-1 


1 



Los números de las ecuaciones compactadas se obtienen de la Tabla 15.2 
sustituyendo cada valor no nulo por un cero y cada valor nulo por el número 
de la ecuación apropiado. En el programa, esto se efectúa en la subrutina 
PROFIL comenzando con los grados de libertad asociados al nodo 1, etc. El 
resultado del ejemplo son los valores que se muestran en la Tabla 15.3, que 
contiene la información sobre el contorno vinculado pero, además, nos indica 
cómo ensamblar las ecuaciones compactadas. 

La solución de formulaciones mixtas que tienen matrices con diagonales 
nulas requiere especial cuidado a la hora de resolver las ecuaciones. Por 
ejemplo, en la formulación q, <f> de la Sección 12.2 es necesario eliminar todos 
los parámetros q¿ asociados a cada <j>j cuando se usen los métodos directos 
descritos en la Sección 15.6.1. Esto puede conseguirse numerándolas entradas 
de ID de forma que los parámetros q¿ tengan números de ecuación global 



466 



El Método de los Elementos Finitos 



TABLA 15.3 

NÚMEROS DE LAS ECUACIONES COMPACTADAS 
PARA EL PROBLEMA DE LA FIGURA 1.1 



Nodo 



Grado de libertad 
1 2 



menores que el parámetro <j>j asociado. 

El esquema de numeración de ecuaciones puede utilizarse además para 
tratar contornos repetidos (véase Capítulo 8, Sección 8.18), donde se impone 
que los nodos de dos contornos tengan el mismo desplazamiento cuyo valor 
se desconoce. Esto se consigue asignando el mismo valor a los números de las 
ecuaciones (prescindiendo del número no utilizado). El perfil de la ecuación 
o el frente se ajustan entonces de acuerdo con la conectividad (véase Sección 
15.2.7). 

15.2.5 Cargas. Deben definirse las fuerzas o desplazamientos nodales no nulos 
asociados a cada grado de libertad. En el programa, ambos se almacenan en 
la matriz F, y fuerzas y desplazamientos se distinguen entre sí comparando 
el valor correspondiente de la condición de contorno prescrita (de la tabla 
de los números de las ecuaciones) para cada grado de libertad. Para el 
ejemplo de la Figura 1.1, si a F(l,l) se le diera el valor 0,01 significaría que 
el desplazamiento del primer grado de libertad (es decir, u) está definido 
por 0,01 unidades, mientras que si F(2,3) valiera 5 indicaría que la fuerza 
correspondiente al segundo grado de libertad tiene un valor de 5 unidades. 

En muchos problemas las cargas pueden estar repartidas y en tales casos 
deben convertirse en fuerzas nodales antes de nada. Esto puede facilitarse 
en la entrada de datos añadiendo una nueva macroinstrucción DIST, que 
a su vez llama a una subrutina SLDnn para efectuar el cálculo de las 
fuerzas nodales equivalentes. Una vez que todas las cargas repartidas se 
han convertido en fuerzas generalizadas, se tratan de la misma manera que 
las cargas leídas por FORC. Nota aclaratoria: el uso del macro DIST debe 
seguir a la especificación de nuevo BOUN si el nodo sobre el que actúa la 
carga repartida está vinculado. 

El programa también permite especificar las temperaturas en los nodos. 
(Se utilizan para el cálculo de fuerzas debidas a la temperatura en problemas 
de estructuras; para otra clase de problemas, pueden interpretarse de manera 
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distinta por el usuario.) Las temperaturas se introducen para cada nodo de 
la misma manera que las fuerzas y las coordenadas. 

En la Sección 15.3 se dan instrucciones específicas para la preparación de 
datos para cada uno de los grupos discutidos con anterioridad. 

15.2.6 Comprobación de los datos de malla. Una vez proporcionados todos 
los datos de geometría, material y cargas, el programa estará listo para 
iniciar la ejecución del módulo de solución; no obstante, antes de ello 
suele ser preferible efectuar algunas comprobaciones de los datos leídos. La 
comprobación más sencilla sería un listado de los datos (y valores generados) 
tal como se da en el archivo de salida del programa. Para problemas 
grandes este procedimiento de comprobación dejaría grandes dudas acerca 
de la precisión de los datos — ¡es muy fácil introducir erróneamente algún 
dato y no percibirse del error a simple vista! — . Como método alternativo 
de comprobación se recomienda utilizar un procedimiento automático para 
dibujar la malla a escala. Adicionalmente, en elementos isoparamétricos 
se puede comprobar también el valor del jacobiano, como se sugirió en el 
Capítulo 8. Este programa permite dicha comprobación. También se pueden 
preparar rutinas de dibujo de mallas para problemas tridimensionales; sin 
embargo, si no se pueden borrar las líneas ocultas, o bien girar o seccionar 
las figuras, los gráficos corrientes son ininteligibles incluso en los problemas 
más sencillos. El tema general del trazado gráfico automático cae fuera del 
ámbito de este libro y se recomienda al lector que consulte las referencias 
9 y 10 para mayor información sobre aspecto tan importante en cualquier 
programa práctico de elementos finitos. 

15.2.7 Determinación del frente y del perfil. Como se ha discutido antes, 
el vector global para la matriz de coeficientes debe almacenarse bien en un 
modo frontal o en perfil, dependiendo de la opción de solución que se use. En 
ambos, la forma de almacenamiento es según las columnas situadas encima 
de la diagonal principal. En el método de perfil la diagonal se almacena 
separadamente, mientras que en el método frontal se guarda como parte de 
cada columna (la diferencia se debe a la eficiencia en la implement ación de 
los algoritmos de Gauss y Crout). 

Para minimizar los requisitos de almacenamiento del método de banda 
variable, antes que nada es necesario conocer el perfil de las ecuaciones; éste 
se determina numerando primeramente las ecuaciones activas como se ha 
descrito anteriormente y luego, usando la matriz de enlaces del elemento, IX, 
junto con el número de la ecuación y la matriz de condiciones de contorno, ID, 
para determinar el número de filas máximo de cada ecuación. Finalmente, 
las ecuaciones se compactan en una matriz y los valores del número de filas 
máximo se usan para fijar la dirección de los elementos diagonales en la matriz 
almacenada. Los pasos necesarios en la programación para determinar el 
perfil se dan en la subrutina PROFIL. El número total de ecuaciones está 
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determinado por el máximo valor de la matriz ID y se denomina NEQ. Las 
necesidades totales de almacenamiento para la mitad superior (o inferior) 
de la matriz perfil vienen determinadas por la dirección de la diagonal 
NEQ [osea, JDIAG(NEQ)]. Así pues, las necesidades de almacenamiento por 
encima del prefijado originalmente deben incrementarse en esa cantidad para 
cada matriz de perfil requerida, ej., en NEQ y JDIAG(NEQ) para problemas 
lineales simétricos en régimen permanente. 

En el método frontal, la presente implement ación divide el 
almacenamiento disponible en dos partes: una parte almacena los coeficientes 
y el término de la derecha de las ecuaciones del frente activo, y la otra 
se usa para almacenar las ecuaciones que ya han sido reducidas. Cuando 
esta segunda parte está llena, se realiza una operación de escritura a disco. 
Esto minimiza las costosas operaciones de entrada/salida al disco y mejora 
mucho la eficiencia respecto a implement aciones anteriores (ej., aquellas de 
las referencias 2 ó 3). Para hacer esta división es necesario conocer de 
antemano cómo de grande va a ser el frente durante el proceso de solución. 
Este cálculo lo lleva a cabo el subprograma PREFRT y se almacena en la 
variable MAXF. 

15.3 Instrucciones del programa 

La solución de un problema de elementos finitos mediante el programa 
expuesto al final de este capítulo comienza con la división de la región a 
analizar en una malla de elementos. El usuario debe seleccionar un sistema 
consistente de unidades para definir los valores numéricos de los datos. Si los 
contornos son curvos, la malla solamente aproximará la forma de la región 
(ej., véase Figura 15.7). Al dibujar la malla hay que tener en cuenta el tipo y 
orden (lineal, cuadrático etc.) de los elementos: para elementos triangulares 
bidimensionales la malla se define por una red de triángulos, mientras que 
para elementos cuadrilaterales isoparamétricos de 4 nodos la región puede 
definirse mediante una red de cuadriláteros. Puede que el usuario desee 
utilizar triángulos y cuadriláteros al mismo tiempo; en tal caso pueden 
ser necesarias dos rutinas de elementos, una para triángulos y otra para 
cuadriláteros. La rutina de funciones de forma, SHAPE, para cuadriláteros 
que se ofrece en este capítulo incluye el triángulo de tres nodos fusionando 
las funciones de forma de dos nodos; por tanto, en este caso solamente es 
necesario usar una rutina de elemento. 11 

Después de dibujada la malla se numeran los elementos y los nodos 
siguiendo un orden consecutivo. El orden de numeración de los nodos tiene 
gran importancia para el método de solución en perfil, mientra que el orden 
de numeración de los elementos es crucial para el método frontal. Como regla 
general, numerar los elementos y nodos a lo largo de las mismas direcciones 
de la malla produce a la vez un frente mínimo y un perfil mínimo. De hecho, 
numerar los nodos en el orden en que una solución frontal con el mínimo 
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5 




Figura 15.7 Malla para el problema del disco circular. 

esfuerzo eliminaría las incógnitas produce también un esquema eficiente para 
la solución de perfil (ej., ver referencia 12, donde se muestra que el esfuerzo 
en ambos métodos de solución es idéntico). A menudo se puede mejorar la 
numeración usando un esquema de renumeración automático. 13 " 15 El método 
de la referencia 15 produce una numeración cuasi-óptima para el número de 
términos en el perfil, lo cual proporciona la máxima eficiencia al resolver. La 
programación para implementar este método es muy compacta y se ejecuta 
a gran velocidad. 

Una vez completados el dibujo y la numeración de la malla, el usuario 
puede proceder a preparar los datos para el problema y la información de 
control de la Tabla 15.4, utilizada durante la entrada de datos subsiguiente 
y también para asignar posiciones de memoria en el programa. 
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TABLA 15.4 

FORMATO PARA EL TÍTULO Y LA INFORMACIÓN DE CONTROL 
TÍTULO-FORMAT (20A4) 

El título sirve también como comienzo del problema. 

Las cuatro (4) primeras columnas deben contener la palabra de comienzo FEAP. 



Columnas Descripción 

1 a 4 Debe contener FEAP 

5 a 80 Información alfanumérica que 

se escribirá en la salida de los 
resultados encabezando la página. 

DATOS DE CONTROL-FORMAT (715) 
Columnas Descripción 
1 a 5 Número de nodos 

6 a 10 Número de elementos 

11 a 15 Número de tipos de materiales 
16 a 20 Dimensión espacial (< 3) 
21 a 25 Número de incógnitas 

por nodo (< 6) 
26 a 30 Número de nodos/elemento 
31 a 35 Incremento del tamaño de las 

matrices del elemento sí 

éste excede NDFNEN 



Variable 
TITL(l) 
TITL(I),I 



Variable 

NUMNP 

NUMEL 

NUMMAT 

NDM 

NDF 

NEN 
NAD 



2,20 



Además de los formatos de entrada de datos, la Tabla 15.4 muestra 
el nombre de las variables que se emplean en el programa. Las variables 
NDF, NEN y NAD se utilizan para calcular el tamaño de las matrices de 
los elementos, NST. Normalmente, para formulaciones por el método de los 
desplazamientos, NDFNEN es el tamaño de la matriz de cada elemento; 
no obstante, si utilizan variables anodales o métodos híbridos, puede ser 
necesario aumentar el tamaño de la matriz de los elementos en NAD (nótese 
que la variables NAD no se ensamblan como parámetros globales). 

Una vez leídos todos los datos de control, el programa espera las líneas 
de datos de descripción de la malla; ej., coordenadas de nodos, conectividad 
de los elementos, etc. Cada problema o clase de problemas requiere 
diferentes tipos y cantidades de datos; en consecuencia, el flujo de datos 
en el programa está controlado por un grupo de macroinstrucciones. En la 
Tabla 15.5 se ofrecen las macroinstrucciones disponibles; se pueden añadir 
otras, modificando adecuadamente en la subrutina PMESH la lista de datos 
WD. Las macroinstrucciones PRINtf y NOPRint permiten al usuario escribir 
o no respectivamente los datos que se van leyendo. Así, una vez que una malla 
haya sido comprobada totalmente y se deseen nuevos análisis, no es necesario 

| Sólo son datos las palabras en mayúsculas. En el programa, el texto se puede introducir 
en mayúsculas o minúsculas. PCFEAP incluye un traductor de formato libre, que 
permite introducir texto y campos numéricos separados mediante comas (,). Esto evita 
la necesidad de llevar la cuenta de las columnas. 
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volver a escribir todos los datos de la misma. 
Un análisis necesita al menos de: 

a) datos de coordenadas de acuerdo con la macroinstrucción COOR que se 
preparan de acuerdo con la Tabla 15.6; 

b) datos de los elementos de acuerdo con la macroinstrucción ELEM que se 
preparan como se explica en la Tabla 15.7; y 

c) datos del material de acuerdo con la macroinstrucción MATE que se 
preparan de acuerdo con la Tabla 15.8 y con los datos necesarios para 
cada elemento en particular (véase Sección 15.8.3). 

Además, la mayoría de los análisis requerirán especificar las condiciones 
de los nodos vinculados en el contorno, macro BOUN, y las correspondientes 
fuerzas nodales o valores de los desplazamientos, macro FORC, que se definen 
de acuerdo con las Tablas 15.9 y 15.10 respectivamente. El programa permite 
la especificación de contornos inclinados en dos dimensiones utilizando el 
macrocomando ANGL. Se introduce el ángulo antihorario, en grados, que 
el eje 1 local forma con la dirección X(1,I). A continuación, los valores de 
FORC y BOUN son interpretados con respecto a la dirección rotada. Ciertos 
análisis pueden tener cantidades nodales auxiliares para definir las cargas. 
Por ejemplo, en el análisis de problemas de elasticidad, la temperatura puede 
proporcionar cargas. El programa permite definir una temperatura (o su 
carga nodal correspondiente) usando el macro TEMP seguido de los datos 
preparados de acuerdo con la Tabla 15.11. 

El final de cualquier malla se indica mediante la macroinstrucción END. 
El empleo de las tarjetas de macroinstrucciones permite al usuario definir sólo 
aquellos datos necesarios para cada análisis. La instrucción END significa fin 
de entrada de datos de la malla. El uso de tarjetas de macroinstrucciones 
reduce también la posibilidad de errores en la entrada de datos debidos a 
tarjetas en blanco introducidas por error. Solamente es necesario seguir un 
orden estricto en la secuencia de los datos dentro de cada macro segmento. 
Detrás de cada segmento de datos pueden aparecer varias líneas en blanco 
sin que afecten a la ejecución del programa. 

Una vez proporcionados todos los datos, el usuario puede elegir entre 
resolver el problema o no. Si sólo se desea una comprobación de la malla, se 
inserta la macroinstrucción STOP para detener la ejecución, o comenzar un 
nuevo problema tal como se describe en la Tabla 15.1. Si se desea la solución 
del problema, es necesario introducir nuevos datos de la forma que se expone 
en la sección siguiente. 

Como ejemplo de los datos necesarios para definir una malla, 
consideremos la malla que se halla representada en la Figura 15.7 para un 
cuadrante de un disco circular; en la Tabla 15.15 se reseñan las tarjetas de 
datos de entrada de este problema. 
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TABLA 15.5 

ENTRADA DE DATOS: INSTRUCCIONES DE MACROCONTROL 
DATOS DE MACRO CONTROL-FORMAT (A4) 

La lectura de cada segmento de datos está controlada por el valor asignado a CC. A 
continuación se muestran los valores admisibles; cada línea de CC debe ir inmediatamente 
seguida de los datos correspondientes (descritos en las Tablas 15.6 a 15.14). 

Valor de CC Datos a entrar 



COOR Datos de coordenadas. 

ELEM Datos de elementos. 

MATE Datos del material. 

BOUN Datos de condiciones de contorno. 

FORC Datos de las fuerzas nodales prescritas. 

TEMP Datos de temperatura. 

BLOC Datóos de nodos y elementos. 

POLA Convertir coordenadas polares a cartesianas. 

ANGL Angulo de inclinación de contornos bidimencionales. 

PRIN Escribir los datos de la malla siguientes (modo por defecto). 

NOPR No escribir los datos de la malla siguientes. 

END Debe ser la última tarjeta en los datos de la malla; ^ 
pone fin a la lectura de datos de la malla. 



Excepto para END y POLA los segmentos de datos pueden estar en cualquier orden. Si los 
valores de ANGL, BOUN, FORC o TEMP son cero no hay que leer esos datos. 



TABLA 15.6 
DATOS DE COORDENADAS 



DATOS DE COORDENADAS-FORMAT (2110, 6F10.0)- van inmediatamente después del 
macro COOR. 

Los datos de coordenadas contienen el número del nodo, N, y el valor de sus coordenadas. 
Solamente se utilizan los valores de (XL(I),I= 1, NDM), donde NDM es el valor leído en la 
línea de control. 

Las coordenadas nodales pueden generarse a lo largo de una línea recta descrita por los 
valores leídos en dos h'neas sucesivas. El valor del número del nodo se calcula usando el N y 
NG de la primera línea para calcular la secuencia N, N+NG, N+2NG, etc. NG puede leerse 
como un número negativo; en caso de tener el signo incorrecto, éste se cambiará. Los nodos 
no necesitan ser entrados en orden. 

Columnas Descripción Variable 

1 a 5 Número del nodo N 

6 a 10 Incremento para generación NG 

11 a 20 Coordenada XI XL(1)->X(1,N) 

21 a 31 Coordenada X2 XL(2)^X(2,N) 

31 a 40 Coordenada X3 XL(3)— X(3,N) 



Nota: Terminar con una(s) línea(s) en blanco. 
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TABLA 15.7 

DATOS DEL ELEMENTO 

DATOS DEL ELEMENTO-FORMAT (1615)- deben ir inmediatamente a continuación de 
un comando ELEM. 

Los datos de los elementos contienen el número del elemento, número del tipo de material 
(que también selecciona el tipo de elemento, ver la Tabla 15.8), y la secuencia de nodos 
conectados al elemento. Si el número de éstos es menor que NEN nodos (ver Tabla 15.1 
para la lectura de NEN) dejar los espacios en blanco o escribir ceros. 

Los elementos deben estar ordenados. Si se omiten las tarjetas de los elementos los datos del 
elemento se generan a partir de los del elemento anterior con el mismo número del material 
y los nodos todos incrementados por el LX del elemento anterior. Cuando el programa 
encuentra una línea en blanco la generación continúa hasta el último elemento. 



Columnas 


Descripción 


Variable 


1 a 5 


Número del elemento 


L 


6 a 10 


Número del tipo de material 


IX(NENl.L) 


11 a 15 


Número del nodo 1 


IX(1,L) 


16 a 20 


Número del nodo 2 


IX(2,L) 


etc. 






etc. 


Número del nodo NEN 


IX(NEN.L) 


etc. 


Incremento para generación 


LX 



TABLA 15.8 

DATOS DE PROPIEDADES DE MATERIALES 

GRUPOS DE DATOS DEL MATERIAL-deben ir inmediatamente a continuación del macro 
MATE. 

Cada grupo de propiedades de materiales selecciona también el tipo de elemento que se 
usará para los datos de las propiedades de los materiales. 
RECORD 1). FORMAT (8110) 



Columnas Descripción Variable 

I a 10 Número de grupo de propiedades MA 

II a 20 Tipo de elemento (1 a 4) IEL 

21 a 30 GDL global para GDL 1 local IDL(l) 

31 a 40 GDL global para GDL 2 local IDL(2) 

etc. hasta NDL 



El IDL(I) puede usarse para reasignar números de grados de libertad de variables locales 
de elemento a números de grados de libertad global. Los valores por defecto son IDL(I)=I. 
Si los valores introducidos son IDL(1)=2 y IDL(2)=1 entonces el GDL 1 del elemento será 
asignado al GDL global 2 y el GDL 2 del elemento al GDL 1 (intercambiados). Si cualquier 
IDL es no nulo un valor cero de otro GDL no será ensamblado. Así, es fácilmente posible 
restringir problemas bidimensionales para que respondan con una solución unidimensional. 
Cada Record 1) material debe ser seguido inmediatamente por los datos de propiedades de 
materiales precisadas por el tipo de elemento IEL que se está usando, ej., ver Sección 15.8.3. 
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TABLA 15.9 

DATOS DE CON DICIONES DE CONTORNO 

CONDICIONES DE CONTORNO-FORMAT (1615)- deben ir inmediatamente a 
continuación de un macro BOUN 

Para cada nodo que tenga al menos un grado de libertad con un desplazamiento restringido 
debe leerse un conjunto de condiciones de contorno. El código para movimientos restringidos 
en el contorno es 

= 0 no vinculado, fuerza especificada 

^ 0 restringido, desplazamiento especificado 

Valores de la fuerza o del desplazamiento que se leen en FORC (Tabla 15.10): 

Variable 
N 

NX 

IDL(l) - ID(1,N) 
IDL(2) - ID(2,N) 

IDL(NDF) - ID(NDF.N) 

Nota: Al generar los códigos de condiciones de contorno para los nodos IDL se hace igual a 
cero si se lee > 0, e igual a -1 si se lee negativo. Todos los grados de libertad con códigos 
no nulos se suponen fijos. Acabar con una(s) líneas(s) en blanco. 



Columnas Descripción 

1 a 5 Número del nodo 

6 a 10 Incremento para generación 

11 a 15 Código para el GDL 1 

16 a 20 Código para el GDL 2 

etc. 

etc. Código para el GDL NDF 



TABLA 15.10 
DATOS DE VALORES DE LAS FUERZAS NODALES O 
DESPLAZAMIENTOS PRESCRITOS 



DATOS DE FUERZAS-FORMAT (2110, 7F10.0)- debe ir inmediatamente a continuación 
de un macro FORC. 

Para cada nodo que tenga una fuerza o desplazamiento nulo debe leerse o generarse una 
tarjeta de fuerza. La generación es idéntica a la de los datos de coordenadas (ver Tabla 
15.6). El valor que se especifica es una fuerza si el código de restricción correspondiente es 
cero y un desplazamiento si el código de restricción correspondiente no es cero. 

Variable 
N 

NG 

XL(1) - F(1,N) 
XL(2) - F(2,N) 



Columnas 


Descripción 


1 a 10 


Número del nodo 


11 a 20 


Incremento para generación 


21 a 30 


Fuerza (Desplaz.) del GDL 1 


31 a 40 


Fuerza (Desplaz.) del GDL 2 


etc. 




etc. 


Fuerza (Desplaz.) del GDL NDF 



XL(NDF) - F(NDF,N) 



Nota; Terminar con una(s) tarjeta(s) en blanco. 
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TABLA 15.11 
DATOS DE TEMPERATURAS NODALES 



DATOS DE TEMPERATURA-FORMAT (2110, F10.0)- debe ir inmediatamente a 
continuación de un macro TEMP. 

Para cada nodo que tenga una temperatura no nula debe leerse su valor. Los valores pueden 
generarse de igual manera que para las coordenadas (ver Tabla 15.6). 

Columnas Descripción Variable 

1 a 10 Número del nodo N 

11 a 20 Incremento para generación NG 

21 a 30 Temperatura nodal XL(1) — T(N) 



Nota: Terminar con una(s) tarjeta(s) en blanco. 



TABLA 15.12 
DATOS DE MALLA POR BLOQUES 



DATOS DE BLOQUE - deben ir inmediatamente a continuación de un macro BLOC. 
Genera un "bloque" de nodos y elementos. Se describe un superelemento mediante 
un cuadrilátero de cuatro o nueve supernodos que se numeran como se muestra en la 
Figura 15.25. Los datos del bloque se especifican como sigue: 

RECORD 1) FORMAT 8110 

Columnas Descripción Variable 

1 a 10 Número de supernodos NN 

11 a 20 Número de espacios a lo largo del lado 1-2 del superelemento NR 

21 a 30 Número de espacios a lo largo del lado 1-4 del superelemento NS 

31 a 40 Número del primer elemento del bloque en el supernodo 1 NI 
41 a 50 Número del primer elemento del bloque adyacente en el supernodo 1 NE 

51 a 60 Número del conjunto de propiedades para el bloque MA 

61 a 70 Incremento de nodos entre líneas NODINC 

71 a 80 Tipo de bloque NTYP 
0 = cuadriláteros de 4 nodos 

8 = cuadriláteros de 8 nodos 

9 = cuadriláteros de 9 nodos 

Notas: (1) Los nodos se incrementan a lo largo del lado 1-2 del superelemeto, luego saltan 
NODINC nodos antes de comenzar la siguiente Knea. 

(2) Si NE es cero no se genera ningún elemento. 

(3) NR y NS deben ser impares para NTYP 8 ó 9. 

(4) Los elementos cuadriláteros de ocho nodos generan un nodo central, pero éste 
no se conecta al elemento (debe anularse con restricciones a través de BOUN) 

RECORD 2 al NN+1. FORMAT I10.3F10.0 

Columnas Descripción Variable 

1 a 10 Número del supernodo L 

11 a 20 Coordenada XI del supernodo R 

21 a 30 Coordenada X2 del supernodo S 

31 a 40 Coordenada X3 del supernodo T 

Nota: sólo se usan NDM coordenadas del supernodo. 
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TABLA 15.13 
DATOS DE COORDENADAS POLARES 

DATOS POLARES - FORMAT 3110.0, 2F10.0 - Deben ir inmediatamente a continuación 
de un macro comando POLA. 

Cada nodo que ha sido previamente introducido en forma polar r, 9 (o r, 9, z), donde 9 es en 
grados medidos anteriormente desde el eje XI, es tranformado a componentes cartesianas 
XI, X2 (o X,l, X2, X3). 



Columnas 


Descripción 


Variable 


1 a 10 


Número del primer nodo 


NI 


11 a 20 


Número del último nodo 


NE 


21 a 30 


Incremento entre nodos 


INC 


31 a 40 


Coordenada XI del centro 


XO 




de coordenadas polares 




41 a 50 


Coordenada X2 del centro 


YO 



Nota: las coordenadas se calculan 



X{l t I) = XO + rcos $ 
X{2, 1) = YO + r sen 9 
X(3,J) = X(3.J) 

donde: r es X(1,I) y 9 es X(2,I) introducidos a través de COOR o BLOC. 



TABLA 15.14 
DATOS DE ÁNGULOS 



DATOS ANGULARES - FORMAT 2I10.F10.0 - deben ir inmediatamente después de un 
macro comando ANGL. 

Los datos de ángulos contienen el número de nodo N y el valor del ángulo en grados, medido 
antihorariamente desde el eje XI. Los ángulos nodales pueden generarse usando NG de la 
misma forma que los datos de coordenadas, 



Columnas Descripción Variable 

I a 10 Número de nodo N 

II a 20 Incremento de generación NG 
21 a 30 Ángulo en grados ANG 
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TABLA 15.15 
EJEMPLO DE LAS TARJETAS DE DATOS 
PARA EL PROBLEMA DEL DISCO 



FEAP * * QUADRANT OF A CIRCULAR DISK (EXAMPLE PROBLEM) 



1 Q 
19 


i i 
± í 


J. A A 


4 


k/UUEVi/ 








1 


1 


0. 


0. 


5 


o 


5. 


0. 


5 




0. 


2. 


10 


o 


4.5828 


2. 


i. X 




0 . 


4. 


14 


0 


3.0 


4. 


15 


0 


4.0 


3. 


16 


o 


0 . 


5 . 


17 


0 


0.75 


4.9434 


18 


0 


1.5 


4.7697 


19 


o 


2.25 


4.4651 


ELEM 








1 


1 


1 2 7 


6 1 


5 


1 


6 7 12 


11 1 


9 


1 


11 12 17 


16 1 


B0UN 








1 


1 


1 -1 




5 


0 


0 1 




6 


5 


-1 0 




16 


0 


1 0 




FORC 








16 


0 


0. 


-5- 


MATE 








1 


1 






100. 




0.3 


0.0 



END 

o bien, en formato libre y usando el preprocesador 
de texto en minúsculas: 

feap** Quadrant of a circular disk (example problem) 

19,11,1,2,2,4 

coord 

1,1,0. ,0. 

5. ,5. 

6,1. ,2. 

10. ,4.5828,2. 

etc. , hasta 

end 

interactivo 



stop 
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15.4 La solución de problemas de elementos finitos y el lenguaje 
de macroprogramación 

Finalizada la entrada de datos y la comprobación de la malla, se estará 
en condiciones de iniciar la solución del problema. Es en ese momento 
que en el programa debe estar disponible para el usuario el tipo particular 
de solución. En muchos programas existentes el usuario sólo dispone 
de un pequeño número fijo de algoritmos de solución. Por ejemplo, el 
programa puede ser capaz sólo de resolver problemas lineales estacionarios; 
o, adicionalmente, puede estar preparado para resolver problemas lineales en 
régimen transitorio. En la práctica, los programas de ingeniería de algoritmos 
fijos son demasiado restrictivos y el usuario debe modificar continuamente el 
programa para resolver su problema — ¡frecuentemente a expensas de otro 
usuario! — . Por tal motivo es conveniente tener un programa que contenga 
módulos para varias posibilidades de algoritmos y que, en caso necesario, 
pueda modificarse sin interrumpir las posibilidades de empleo por otros 
usuarios. El programa del que aquí tratamos es elemental y el lector puede 
sin duda encontrar muchas maneras de mejorarlo y ampliarlo a otra clase 
de problemas. Una modificación importante sería incluir un lenguaje de 
interpretación matricial de manera que términos individuales o ecuaciones 
puedan modificarse para necesidades específicas. 

El concepto de macroprogramación descrito en esta sección ha sido 
usado por los autores durante más de 10 años, y hasta la fecha no ha 
inhibido nuestras actividades de investigación por quedar anticuado. El 
mismo programa se usa de forma rutinaria para resolver problemas en 
ordenadores personales, miniordenadores y ordenadores de gran tamaño. 
Sólo los subprogramas de solución de ecuaciones se cambian según los 
diferentes entornos. 

15.4.1 Problemas lineales en régimen permanente. El aspecto básico del 
programa de algoritmos variables es un lenguaje de macroinstrucciones que 
puede utilizarse para elaborar módulos para algoritmos específicos de acuerdo 
con las necesidades. El usuario solamente necesita aprender las reglas 
nemotécnicas del lenguaje para su utilización. Por ejemplo, si se desea formar 
la matriz de rigidez global se emplea la instrucción TANG (TANG es la 
regla nemotécnica para una matriz de rigidez tangente, y para elementos 
no lineales, forma y ensambla en la matriz de rigidez global las matrices de 
rigidez tangentes calculadas de acuerdo con el estado de desplazamientos real; 
para elementos lineales es simplemente la matriz de rigidez lineal). Si se desea 
formar el 2.° miembro de las ecuaciones modificadas para los desplazamientos 
prescritos se utiliza la instrucción FORM. Las ecuaciones resultantes se 
resuelven mediante la instrucción SOLV. La salida de resultados puede 
obtenerse empleando las instrucciones DISP para los desplazamientos, y 
STRE para las variables de los elementos, como tensiones y deformaciones. 
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TABLA 15.16 

LISTADO DE LOS COMANDOS DEL LENGUAJE DE MACROPROGRAMACIÓN 

La tabla siguiente contiene una lista de los comandos de macroinstrucciones que pueden 
usarse para construir algoritmos de solución, en modo "de cola", el comando MACR debe 
colocarse después de los datos de la malla. Las demás macroinstrucciones deben seguir a 
continuación, y terminar con un macro END. En modo interactivo, el comando INTE sigue 
a los datos de malla, y a continuación, los usuarios son interrogados para especificar el 
algoritmo de solución, terminando con un comando QUIT o EXIT (EXIT genera un archivo 
de datos para recomenzar). 
FORMAT - A4,11X,A4,11X ) 3F15.0 

Columnas 



1-4 16-19 31-45 46-60 61-75 Descripción 



BETA 

CHEC 
DATA 

DISP 



DT 
FORM 

LOOP 

MASS 
MESH 



NEWF 



T 
ALL 



NI N2 



VI 



NEXT 

PLOT MESH VI V2 



PLOT OUTL VI V2 

PROP NI 
REAC ALL NI N2 



REST 
SOLV 

STRE ALL NI N2 



VI V2 Especifican parámetros para análisis 

transitorio por defecto Vl= 0.25, V2= 0.50 
Comprobar la malla (ISW=2)f 
Leer datos para el macrocomando 
T (T puede ser sólo DT o TOL) 
N3 Imprimir desplazamientos de los nodos 
NI a N2 con incrementos de N3; ALL 
para imprimirlos todos 
Hacer el incremento en el tiempo a VI 
Formar el segundo miembro de las ecuaciones 
(ISW=6) 

Repetir n veces todas las instrucciones 
hasta el macro NEXT correspondiente 
Formar la masa diagonal (ISW=5) 
Introducir cambios en la malla 
(no puede cambiar condiciones de contorno 
o conectividades elementales) 
Fijar una fuerza de referencia F„ en el estado de 
carga actual (inicialmente, F = 0) 
Finalizar una instrucción LOOP 
Dibujar la malla, VI es el factor de escala 
de deformación, V2 es el conjunto de propiedades 
(0= todos) 

Dibujar el contorno de la malla, VI, V2 
como para MESH 

Introducir Ni tablas de cargas proporcionales 
N3 Imprimir reacciones en los nodos NI a N2 

con incrementos de N3; ALL imprime todos los 
valores (ISW=6) 

Recomenzar el problema previo a 
partir de los archivos especificados 
al comienzo del análisis 
Resolver para hallar nuevos 
desplazamientos (después de FROM) 
N3 Imprimir variables para elementos 
NI a N2 con incrementos 
N3 (ISW=4) 



fLas operaciones son comprobadas en cada elemento para epecificar el valor de IS W 
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Columnas 



1-4 16-19 31-45 46-60 61-75 Descripción 

STRE NODE NI N2 N3 Imprimir variables (tensión, etc.) 

para los nodos NI a N2 con incrementos 
de N3 (ISW=8) 

STRE ERRO Imprimir estimadores de error y de 

refinamiento para los elementos (ISW=7) 

TANG VI V2 Calcular y factorizar también el residuo y 

resolver las ecuaciones; perturbar la matriz 
tangente con V2 veces la matriz de masa 

TIME Avanzar en el tiempo en un valor DT 

TOL VI Fijar el valor de la tolerancia a VI 



Un ALL añadido a DISP o STRE indica que se deben imprimir resultados 
para todos los nodos /elementos. Es posible imprimir deteminadas secuencias 
de resultados, como se muestra en la Tabla 15.16. Las instrucciones anteriores 
son suficientes para resolver problemas lineales en régimen permanente, es 
decir, las macroinstrucciones 

TANG 

FORM 

SOLV 

DISP,ALL 

STRE,ALL 

son exactamente las necesarias para resolver cualquier problema lineal en 
régimen permanente. Sin duda el lector observará en este punto que el orden 
de dichas instrucciones puede cambiarse a veces sin afectar al algoritmo. Por 
ejemplo, si se emplean las macroinstrucciones 

FORM 

TANG 

SOLV 

STRE,ALL 

DISP,ALL 

se tiene el mismo algoritmo, excepto que los resultados de las cantidades 
relativas a los elementos se obtienen antes que los desplazamientos nodales. 

El programa de algoritmos variables descrito mediante el macrolenguaje 
puede ampliarse en caso necesario. Por ejemplo, cuando se analizan 
problemas con varios estados de carga, la matriz de rigidez global es siempre 
la misma y sólo necesita formarse una vez. El segundo miembro varía 
y es preciso calcular los nuevos desplazamientos. El procedimiento para 
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resolver dos estados de cargas requiere cambiar las fuerzas nodales y /o los 
desplazamientos prescritos. La macroinstrucción MESH hace que vuelva a 
utilizarse el módulo de entrada de datos, y en ese momento pueden cambiarse 
las fuerzas. Los datos se colocan después de las macroinstrucciones del 
programa que terminan con la sentencia END. Así pues, el macro programa 
y los datos para dos estados de carga podría ser: 



instrucciones para el problema 1 



instrucciones para el problema 2 



TANG 
MESH 

FORM 

SOLV 

DISP, ALL 

STRE, ALL 

MESH 

FORM 

SOLV 

DISP, ALL 

STRE, ALL 
END fin del macroprograma 
FORC 

cargas para el problema 1 
END fin de entrada de datos de la malla 
FORC 

cargas para el problema 2 
END fin de entrada de datos de la malla 

Advertirá el lector que se repite dos veces el mismo bloque de 
instrucciones y que si hubiera diez estados de carga se perdería un esfuerzo 
considerable en preparar las tarjetas de datos del macrograma. Para corregir 
esto se introducen bucles tal como el par de instrucciones 



LOOP„n 
NEXT 



que indica que el bucle sobre todas las instrucciones entre LOOP y NEXT 
se repetirá n veces; por consiguiente, el macroprograma para dos estados de 
carga será ahora 
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TANG 

L00P„2 

MESH 

SOLV 

DISP,ALL 

STRE, ALL 

NEXT 

END final del nuevo programa 
FORC 

cargas para el problema 1 
END 
FORC 

cargas par el problema 2 
END 

Debe notarse que en el modo INTEractivo la ejecución no comienza hasta 
que un LOOP no se cierra con una instrucción NEXT. 

En este programa se tiene la misma sencillez con diez estados de carga 
que con dos (excepto para los datos de FORC). 

Se dará cuenta el lector que la instrucción TANG se ejecuta sólo una vez 
mientras que la instrucción SOLV se ejecuta dos. El programa reconocerá 
automáticamente que la segunda ejecución utiliza una matriz de rigidez para 
la cual ya se ha llevado a cabo la descomposición triangular, y seleccionará 
un modo operativo de resolución (ver la Sección 15.6). 

Pueden resolverse otros muchos problemas usando la sencilla lista de 
macroinstrucciones expuesta en la Tabla 15.16. En los apartados siguientes 
se resumen algunos algoritmos. 

15.4.2 Método de carga incremental. Se da a continuación el programa de 
macro- instrucciones para resolver un problema en el que las cargas cambian 
con el tiempo. Se supone que el problema tiene un conjunto de cargas 
que varían con el tiempo de forma proporcional. El programa PCFEAP 
puede cambiar las cargas en cada paso como se ha descrito anteriormente; 
sin embargo, en las situaciones en que se dé proporcionalidad es posible variar 
las cargas mediante la especificación de un conjunto de funciones de carga. 
Se supone que la forma general de las cargas dependientes del tiempo es 



F(t) = F 0 + P(t)F 



(15.1) 
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TABLA 15.17 

CARGAS PROPORCIONALES — FORMAT (2110, €F '10.0) 



Columna Descripción Variable 

1 a 10 No se usa (tipo de caiga =1) 

11 a 20 Exponente de la función seno L 

21 a 30 Tiempo mínimo de caiga TMIN 

31 a 40 Tiempo máximo de caiga TMAX 

41 a 50 Paiámetio 1 Al 

51 a 60 Paiámetio 2 A2 

61 a 70 Paiámetio 3 A3 

71 a 80 Paiámetio 4 A4 



Nota: se pueden introducir un númeio de 10 funciones de carga proporcional 
a la vez 



donde F(t) es el vector de cargas actuales, F 0 es un vector fijo de fuerzas, F es 
el conjunto de fuerzas nodales definidas por el comando FORC, y P{t) es una 
función temporal de carga proporcional. En PCFEAP la carga proporcional 
se puede especificar como: 

P(t) = At + A 2 t + ¿ 3 [sen(¿ 4 ¿ + i min )] L i min < t < t max (15.2) 

Se pueden introducir un máximo de 10 funciones de carga proporcional en 
cada momento; la función se puede hacer cero tan a menudo como se desee 
durante la ejecución (ver la Tabla 15.17). 

Se puede usar el macro comando NEWF para igualar el valor de F 0 al 
valor actual y la distribución de F(¿). En consecuencia, la distribución de 
fuerzas se puede entonces redefinir para describir un nuevo estado de carga 
proporcional. Al principio de la ejecución F 0 se hace cero. 

Un nuevo programa que usa el concepto de carga proporcional es 



DT„0.1 


At = 0.1 


PROP„l 


F = P(t)F 


TANG 


calcula la matrix de coeficientes (constante) 


LOOP„10 


bucle de incrementación 


TIME 


i = t + At 


FORM 


calcular F(t) - P(a) 


SOLV 


calcular A a, hacer a = a + Aa 


DISP„1,12 


imprimir a para los nodos 1 a 12 


STRE,ALL 


imprimir las tensiones en todos los elementos 


NEXT 


fin del bucle 


END 
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15.4.3 Integración de las ecuaciones del movimiento. La integración de las 
ecuaciones diferenciales del movimiento para sistemas estructurales puede 
hacerse utilizando PCFEAP. Este tema se tratará con mucho más detalle en 
el próximo volumen, donde se desarrollarán y analizarán métodos generales 
basados en los elementos finitos y otros métodos tradicionales. La versión 
actual del programa incluye la versión más sencilla de los métodos beta-m. 16 
El método coincide con el clásico de Newmark. 17 

Las ecuaciones del movimiento para un ecuación diferencial lineal son: 



Má + Ka = F 



donde M es la matriz de masa. Los elementos incluidos en PCFEAP formulan 
M como una matriz diagonal (aglutinada; ver Apéndice 7). Se pueden incluir 
masas consistentes (no diagonales), pero entonces deben combinarse con 
el cálculo de la matriz de coeficientes del elemento, o debe modificarse el 
programa para que incluya esta opción. 1 Puesto que el tratamiento general y 
la solución de las ecuaciones de movimiento quedan fuera de los objetivos de 
este volumen, se incluyen los macro comandos que llevan a cabo la solución 
para indicar que el programa puede usarse para un rango más amplio de 
problemas que los definidos originalmente. El orden apropiado es 



BETA 

PR0P„1 

MASS 

DT„0.024 

TANG 

LOOP,time,50 

FORM 

SOLV 

DISP„2,24,2 
STRE,NODE,2,4 
NEXT,time 
STRE,ALL 

END 



Definir los parámetros de integración 

usar carga proporcional en el tiempo 

formar la matriz de masa aglutinada 

definir el paso de tiempo como 0.024 

calcular la matriz tangente (K + C1M) 

llevar a cabo 50 pasos de tiempo de la solución 

calcular el residuo (F — P(a) — Má) 

obtener una nueva solución 

imprimir desplazamientos nodales 2,4,6, • • •, 24 

imprimir las tensiones en los nodos 2,3 y 4 

final del bucle sobre el tiempo 

imprimir el estado final de tensiones en todos 

los elementos 



En el anterior macro programa la notación "time" en las instrucciones 
LOOP/NEXT no es usada por el programa (ver Tabla 15.15), pero ayuda a 
que el algoritmo de solución sea más comprensible. 

15.4.4. Soluciones no lineales; método de Newton. El lenguaje de macro 
programación también puede usarse para resolver problemas no lineales. Por 
ejemplo, el sistema de ecuaciones 



P(a) = F 
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puede resolvese iterativamente mediante el método de Newton haciendo 

K r Aa = F - P(A) = R(a) 

donde K T es una cierta matriz de iteración (normalmente calculada por 
linearización de P), y se realizan un número de iteraciones especificado, o 
hasta que se alcanza una tolerancia de error aceptable. En PCFEAP se 
usa una tolerancia en "energía" para terminar las iteraciones si se alcanza 
convergencia. La "energía" se calcula de la forma 

E = R r • Aa 

para las ecuaciones desconocidas solamente. Existen varias posibilidades de 

efectuar las iteraciones. Una es: 

LOOP,iteration,10 hacer 10 iteraciones como máximo 
TANG„1 calcular la matriz K r , el residuo y 

resolver las ecuaciones 
NEXT,iteation fin del bucle de iteración 

Una estrategia alternativa de iteración es: 

TANG calcular la matriz Kj 

LOOP,iteration,10 hacer 10 iteraciones con K T fija 

FORM formar un nuevo residuo R 

SOLV resolver las ecuaciones 

NEXT,iteration fin del bucle de iteración 

El lector puede observar que se pueden combinar las estrategias; hacer unas 
cuantas iteraciones con la matriz de coeficientes fija a un cierto valor, cambiar 
la matriz de coeficientes y las iteraciones. 

15.4.5. Programación de las macro instrucciones. El módulo de macro- 
instrucciones del programa PCFEAP está contenido en las subrutinas 
PMACR, PMACIO, PMACR1 y PMACR2. La rutina PMACR llama a 
las otras rutinas; PMACIO lee las entradas y controla los bucles; PMACR1 
lleva a cabo todas las operaciones concernientes a cálculos elementales, y 
PMACR2 realiza todas las restantes macro operaciones. Los macro comandos 
disponibles se almacenan en el vector de caracteres WD. Por tanto, para 
añadir una macro instrucción al programa se debe redimensionar el vector 
WD, modificar la lista de palabras almacenadas como datos en WD, y hacer 
los cambios apropiados en PMACR1 y PMACR2. Los parámetros NW1 y 
NW2 en PMACR definen el número de comandos contenidos en PMACR1 y 
PMARC2, respectivamente. El parámetro adecuado debe cambiarse cuando 
se añade un comando. Si se necesitan nuevos vectores de solución se 
pueden definir nuevos apuntadores en los vectores contenidos en el "common" 
usando el subprograma PSETM (nótese en el subprograma PSETM como se 
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determina la precisión de cada variable). El parámetro lógico en la llamada 
a PSETM puede usarse para asegurar que la memoria se reserva sólo en la 
primera llamada a PSETM. Antes de añadir un nuevo macro comando se 
recomienda al programador que estudie cuidadosamente el programa listado 
en este capítulo. En particular, las indicaciones de opciones de solución 
almacenados en el common FDATA se usan para indicar al programa que 
vectores existen realmente y no deben ser cambiados por ningún nuevo macro 
comando, ya que esto afectaría a la forma de operar del programa. 

15.5 Cálculo de los módulos de solución de elementos finitos 

Cuando se establecen las macroinstrucciones para los cálculos de los 
elementos (ej., TANG o FORM), muchas de las operaciones son las mismas. 
En esta sección se discuten los aspectos que intervienen en el cálculo de 
las matrices de los elementos para un análisis por elementos finitos. El 
primer paso es localizar todos los datos geométricos, de material y de 
desplazamientos para el cálculo de la matriz de cada elemento. En particular, 
las cantidades de cada elemento a calcular incluyen la rigidez, masa, fuerzas 
interiores, tensiones, deformaciones, etc. En la Sección 15.5.2 se discuten 
los aspectos para el cálculo de éstas para los casos de elasticidad lineal y 
transmisión del calor. La organización de las rutinas del elemento en el 
programa se da en la Sección 15.5.3. 

15.5.1 Localización de los datos del elemento. Cuando se quiera calcular 
alguna matriz de un elemento, por ejemplo, la de rigidez, S, o el vector 
de cargas o de fuerzas interiores, P, sólo se necesitarán las cantidades 
asociadas al elemento en cuestión y todos los demás valores serán superfluos. 
Las cantidades nodales y las de los materiales que sean necesarias pueden 
determinarse a partir de los números de los nodos y de los materiales 
almacenados en la matriz IX de cada elemento. En el programa, los valores 
necesarios se transfieren desde las matrices globales a un sistema de matrices 
locales antes de llamar a la rutina de elemento adecuada, o sea, a la subrutina 
ELMTnn. Este proceso se denomina llamará localización. Las cantidades que 
se localizan son: 

a) las coordenadas nodales que son almacenadas en la matriz XL, 

b) los desplazamientos nodales y sus incrementos que son almacenados en 
la matriz UL, 

c) las temperaturas nodales que son almacenadas en la matriz TL, y 

d) los números de las ecuaciones que se almacenan en el vector de destino 
LD. 

El vector LD, descrito en el paso (d) y se usa para efectuar el ensamblaje 
de la matriz de rigidez (o de masa) del elemento y del vector de cargas o de 
fuerzas interiores del elemento, en la matriz de rigidez (o de masa) global 
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y el vector de cargas global respectivamente. De acuerdo con esto, para las 
siguientes matrices del elemento 

j^LD(l) LD(2) LD(3) ... 

"S(l,l) S(l,2) S(l,3) 
S(2,l) S(2,2) 



el término S(iJ) se ensamblaría en la matriz de rigidez (o de masa) global 
en la posición correspondiente a la fila LD(i) y a la columna LD(j), es decir 
el vector LD contiene los números de las ecuaciones de las matrices globales. 
Similarmente, P(i) se ensamblaría en la posición correspondiente al valor de 
LD(i). Al establecer LD(i) se reordenan los grados de libertad de acuerdo 
con la Tabla 15.8. 

El proceso de localización es el mismo para todos los tipos de elementos 
finitos y está por tanto centralizado en la subrutina PFORM, que organiza 
todos los cálculos asociados a los elementos, incluidos los bucles sobre los 
distintos tipos de elementos descritos por la matriz IX. Las propiedades del 
elemento se almacenan en la matriz cuadrada S y en la matriz columna P. 
El vector LD es un vector de destino de elemento para los números de las 
ecuaciones globales y se usa para transformar S y P en las matrices globales. 

Durante la localización, el número de nodos realmente conectados a cada 
elemento (es decir, NEL que puede ser menor que NEN) está determinado por 
el mayor valor no nulo de la matriz IX correspondiente al elemento con ese 
número. Los valores intermedios nulos se interpretan como que el nodo no 
está conectado. De esta manera el programa permite conectar elementos 
con un número de nodos diferente, ej., triángulos de tres nodos pueden 
combinarse con cuadriláteros de cuatro nodos. 

Puesto que el valor actual de los desplazamientos nodales está localizado 
durante todos los cálculos del elemento, el programa puede usarse para 
resolver problemas no lineales. Ésta es, de hecho, la única información 
adicional necesaria, en comparación con los problemas lineales, para construir 
las matrices de rigidez tangentes, etc., para resolver problemas no lineales 
como se discute en los capítulos 18 y 19 de la referencia 1 y se considerará 
en detalle en el próximo volumen. 

Antes de proceder a calcular las matrices de un elemento hay que advertir 
que la localización (excepto para el valor actual de los desplazamientos) 
podría hacerse de una vez por todas, pudiéndose prescindir después de las 
matrices globales de datos, o guardarlas en disco. Esto implicaría más pasos 
de programación y también un empleo eficiente del almacenamiento y lectura 
de la memoria periférica para mantener espacio adecuado en el núcleo para 
la determinación posterior de los vectores globales. 





P(l) 




P(2) 
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15.5.2 Cálculo de las matrices de los elementos. El cálculo eficiente de las 
matrices de los elementos (en tiempo de programación y de cálculo) es un 
aspecto crucial de cualquier análisis por elementos finitos. El desarrollo de 
rutinas para evaluar la rigidez del elemento (o la rigidez tangente) y las 
matrices de carga puede llevarse a cabo mediante una combinación de los 
métodos numéricos apropiados. Con objeto de explicar el desarrollo, se ofrece 
aquí, en primer lugar, el planteamiento de los pasos esenciales, mostrándose 
después algunos detalles para el caso de tensión y deformación plana. 

Los pasos esenciales para calcular la matriz de rigidez de un elemento, 
S, se resumen en la Figura 15.8. Los ingredientes clave son la integración 
numérica, el uso de rutinas para las funciones de forma (que son idénticas 
para todos los problemas que requieran el mismo orden de continuidad) y 
una formulación eficiente de los productos matriciales. 

Generalmente se utilizan las fórmulas de la cuadratura de Gauss para 
calcular las integrales, puesto que son las que ofrecen mayor precisión en 
relación al esfuerzo empleado (véase el Capítulo 8). En algunos casos es 
preferible usar otras fórmulas. Por ejemplo, si se emplea una fórmula de 
cuadratura cuyos puntos de integración son sólo los nodos, el cálculo de 
los términos de masa lleva entonces a una matriz de masa diagonal, que 
en problemas de dinámica generalmente es más ventajosa. Esta idea puede 
usarse también para calcular tensiones "nodales" (véase el Capítulo 12 y el 
Apéndice 7). 

Los subprogramas de funciones de forma permiten al programador 
desarrollar elementos para muchos problemas de manera rápida y segura. 
El subprograma de funciones de forma no sólo evalúa la función de forma, 
sino también sus derivadas respecto del sistema de coordenadas global. 
Consideremos, como ejemplo, el problema bidimensional de clase Crj, donde 
solamente se necesitan las primeras derivadas de cada función de forma N¡. 
Para el cuadrilátero isoparamétrico de 4 nodos se tiene 



JVi = -(l + £¿{)(l + )CT) 



(15.3) 



donde rjj son las coordenadas £, r¡ de los nodos. 

Según el concepto de elemento isoparamétrico se tiene 

x =NiX{ 

y =Níví 

cuyas derivadas vienen dadas por 



(15.4) 



(15.5) 
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^ Inicie»^ 







Forma D 



S — 0 



100 



1. LINT 



> 



Cálculo de las 
func. de forma 



Forma B 



DB DB 



5- 5 + B T DB 



^ Inicio ^ 

i 



Forma C 






S — 0 







100 



< ^ L * 1, LINT ^ > 



Cálculo de las 
func. de forma 



W„ * VN, VN, 



c 



Return 



(a) 



^ Return ^ 



(*>) 



Figura 15.8 Método para calcular la matriz de rigidez del elemento, (a) Usando 
la rutina de funciones de forma del elemento e integración numérica. 
(b) Para elementos con propiedades del material constantes. 



1 »i.v i J 



•ni 



-y, ( 



(15.6) 



donde J es el determinante del jacobiano y ( ), x representa la derivada parcial 
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d( )/dx, etc. Las relaciones anteriores definen los pasos que debe efectuar el 
subprograma de funciones de forma que se muestra en la Figura 15.9, donde 
se supone que las coordenadas locales se han almacenado en la matriz de 
coordenadas locales XL. 

Esta rutina de funciones de forma puede utilizarse para todos los 
problemas bidimensionales de clase Cq que emplean el elemento de 4 nodos 
(ej., problemas de elasticidad bidimensional y de revolución, conducción del 
calor, flujo en un medio poroso, dinámica de fluidos, etc.). El subprograma de 
funciones de forma puede también utilizarse para la generación de los datos 
relativos a la malla 7 . La rutina de funciones de forma se extiende fácilmente 
a elementos de mayor orden. Como ejemplo, las rutinas SHAPE y SHAP2 
(véase la Sección 15.8.3) dan funciones de forma que comprenden triángulos 
de tres nodos hasta cuadriláteros serendípitos y lagrangianos de 8 y 9 nodos 
respectivamente. Los elementos pueden tener algunos lados lineales y otros de 
segundo grado, omitiendo simplemente el número del nodo lateral en el caso 
de que se desee un lado lineal. Además, se pueden construir interpolaciones 
jerárquicas, evitando simplemente las correcciones al final del subprograma 
SHAP2. 

La generación del triple producto matricial merece también especial 
atención puesto que en las matrices B y D hay a menudo muchos ceros. 
Se pueden usar varios métodos para reducir el número de operaciones. El 
primero es formar la matriz triple producto directamente. A pesar de que 
esto parece, a simple vista, necesitar demasiados cálculos manuales, es de 
hecho elemental si se lleva a cabo nodo por nodo. Por ejemplo, consideremos 
el problema de elasticidad bidimensional lineal, donde 







0 




Bi = 


0 




(15.7) 











y por razones de isotropía 



D n D 12 0 
D l2 D n 0 
0 0 £> 33 



(15.8) 



donde D33 es igual a (Dn - Di 2 )/2. Así pues, para un par de nodos típicos 
i y j, el término de rigidez del elemento k{j viene dado por 



(15.9) 



donde 



(15.10) 
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SUBROUTINE SHAPEF(SS,TT,XL,XSJ,SHP) SHP 1 

IKPLICIT REAL*8 (A-H.O-Z) SHP 2 

C... Shapa íunction routine for 4-noda isoparamatric quadrilataral SHP 3 

C SHP 4 

C SS.TT - Natural coordinatos for shapa functions SHP 5 

C SHP (1,1) - X-darivativa of I-noda shapa function SHP 6 

C SHP(2,I) - Y-darivativa of I-noda shapa íunction SHP 7 

C SHP (3,1) - Shapa function for I-noda SHP 8 

C XS Jacobian array SHP 9 

C XSJ » Jacobian datarminant SHP 10 

C XL(l.I) X-coordinate of I-noda SHP 11 

C XL(2,I) Y-coordinate of I-noda SHP 12 

C SHP 13 

REAL XL(2,4),SI(4),TI(4) SHP 14 

REAL*8 SHP(3.4).XS(2,2) SHP 15 

DATA SI/-.5..5,.5,-.5/, TI/-. 5, -.5, .5, .5/ SHP 16 

C SHP 17 

C... Computa shapa functions and their natural coord. dar ivat ivas SHP 18 

C SHP 19 

DO 100 1-1.4 SHP 20 

SHP(1,I) - SI(I)*(0.S+TI(I)*TT) SHP 21 

SHP(2,I) - TI(I)*(0.5+SI(I)*SS) SHP 22 

SHP(3,I) ■ (0.5+SI(I)*SS)*(0.5+TI(I)*TT) SHP 23 

100 CONTINUE SHP 24 

C SHP 25 

C Computa jacobian transí ormat ion from X,Y to SS.TT SHP 25 

C SHP 26 

DO 120 I - 1.2 SHP 27 

DO 120 J - 1.2 SHP 28 

XS(I.J) = 0.0 SHP 29 

DO 110 K = 1,4 SHP 30 

XS(I.J) = XS(I.J) + XL(I.K)*SHP(J.K) SHP 31 

110 CONTINUE SHP 32 

120 CONTINUE SHP 33 

C SHP 34 

C... Computo jacobian determinant SHP 35 

C SHP 36 

XSJ - XS(1,1)*XS(2,2) - XS(1,2)*XS(2,1) SHP 37 

C SHP 38 

C Transform to X,Y derivativos SHP 39 

C SHP 40 

DO 130 I = 1,4 SHP 41 

TEMP - ( XS(2,2)*SHP(1,I) - XS(2 , 1) *SHP(2 , D/XSJ SHP 42 

SHP(2,I) = (-XS(1,2)*SHP(1.I) + XS(1,1)*SHP(2, D/XSJ SHP 43 

SHP(l.I) = TEMP SHP 44 

130 CONTINUE SHP 45 

RETURN SHP 46 

END SHP 47 



Figura 15.9 Subprograma de funciones de forma para un elemento de 4 nodos. 
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Por tanto, 



D 12 N jtX 



D 12 Nj 
DuNj 



(15.11) 



(N iíX Q n + N iiy Q 31 ) (N iiX Q 12 + N itV Q 32 ) 
(Ni, y Qn + N iiX Q 3í ) (Ni, y Q 22 + N itX Q 32 ) 



Así pues, para cada par de nodos hay que efectuar 14 multiplicaciones para 
formar k^, mientras que si calculásemos directamente B^DB necesitaríamos 
30 multiplicaciones. También, cuando la matriz del elemento es simétrica 
sólo hay que formar la mitad durante la integración numérica (la otra mitad 
se obtiene por simetría). En la Figura 15.10 se muestra una rutina típica 
para el cálculo de la matriz de rigidez, donde se supone que los puntos de la 
cuadratura de Gauss y sus coeficientes se almacenan en las matrices SG, TG 
y WG. 

El procedimiento puede también extenderse a problemas anisótropos 
sustituyendo la matriz isótropa D por la anisótropa correspondiente y luego 
recalculando la matriz Qj. 

El cálculo de las matrices de rigidez de los elementos para problemas en 
los que las propiedades del material son constantes dentro de cada elemento, 
puede efectuarse de manera más eficiente advirtiendo (Capítulo 6) que la 
energía interna puede ahora escribirse, usando subíndices, como 



y a D a bcd 



Jv< * 6 ' 



N 3 d dVü J c 



(15.12) 



donde a, 6, d, c son subídices de las ecuaciones elásticas y varían sobre la 
dimensión espacial del problema, e z, j son los índices nodales que en un 
elemento varían de 1 a NEL. Así pues, la matriz de rigidez del elemento para 
el par de nodos i, ji, viene dada por 



K% = W l ¿D abcd 



(15.13) 



donde 



< = j Ve N ¿ N ¿ dV 



(15.14) 



Para materiales isótropos las constantes elásticas se expresan por 



D abcd = S ab S cd* + l¿( S achd + S ad 6 bc) 



(15.15) 
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. Isoparametric element stiffness computation for linear 
•lasticity * * plana stress/strain dif fer only in valúas 
oí elastic parameters * * 



100 

110 
120 
C. . 



130 



D(l), D(2) , D(3) 
plañe stress: 

plañe strain: 



DV 

LINT 

HDF 

NEL 

NST 

S 

SG.TG 

SHP 

XL 

XSJ 

VG 



= Material moduli 
D(l) - E/(l. -HU*NU) 

D(2) - NU*D(1) 
D(l) = D*(1.-NU)/((1.+NU)*(1.-2*NU)) 

D(2) - NU*D(1)/(1.-NU) 
D(3) - (D(l) - D(2))/2. 
= Area differential Toluae * gauss veight 
= Number oí quadrature points 
= Number of degrees-of-freedom at a node 
- Number of nodes on element 
= Size of S-array 
= Element stiffness axray 
= Natural coordinates of Gaus» points. 
= Shape functions and their x,y derivatives 
= Nodal coordinates - localizad 
= Jacob i an determinant 
= Gauss quadrature seights 



.Compute contribution at each quadrature point. 
DO 120 L = l.LINT 

CALL SHAPEF(SG(L) ,GT(L) .WL.XSJ.SHP) 

DV = XSJ*WG(L) 

Dll - D(1)*DV 

D12 = D(2)*DV 

D33 = D(3)*DV 
.For each J-node compute: DB = D*B 

Jl = 1 

DO 110 J = 1 , NEL 

DB11 = D11*SHP(1.J) 
DB12 = D12*SHP(2,J) 
DB21 = D12*SHP(1.J) '' 
DB22 = D11*SHP(2,J) 
DB31 = D33*SHP(2,J) 
DB32 = D33*SHP(1,J) 
For each I-node compute S = Bt*DB 



II = 1 

DO 100 I = l.J 

S(I1 ,J1 )=S(I1 
S(I1 ,J1+1)=S(I1 



, Jl )+SHP(l,I)*DBll+SHP(2,I)*DB31 
,J1+1)+SHP(1.I)*DB12+SHP(2,I)*DB32 
S(I1+1,J1 )=S(I1+1,J1 )+SHP(l.I)*DB31+SHP(2,I)*DB21 
S(I1+1.J1+1)=S(I1+1,J1+1)+SHP(1.I)*DB32+SHP(2,I)*DB22 
II = II + NDF 
CONTINUE 
Jl = Jl + NDF 
CONTINUE 
CONTINUE 
.Compute lower part by symmetry 
DO 130 I = 2, NST 
DO 130 J = 1.1 

S(I,J) = S(J,I) 
CONTINUE 
RETURN 
END 



STF 1 
STF 2 
STF 3 
STF 4 
STF 5 
STF 6 
STF 7 
STF 8 
STF 9 
STF 10 
STF 11 
STF 12 
STF 13 
STF 14 
STF 15 
STF 16 
STF 17 
STF 18 
STF 19 
STF 20 
STF 21 
STF 22 
STF 23 
STF 24 
STF 25 
STF 26 
STF 27 
STF 28 
STF 29 
STF 30 
STF 31 
STF 32 
STF 33 
STF 34 
STF 35 
STF 36 
STF 37 
STF 38 
STF 39 
STF 40 
STF 41 
STF 42 
STF 43 
STF 44 
STF 45 
STF 46 
STF 47 
STF 48 
STF 49 
STF 50 
STF 51 
STF 52 
STF 53 
STF 54 
STF 55 
STF 56 
STF 57 



Figura 15.10. Cálculo de la rigidez de un elemento de elasticidad plana. 
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donde A y /¿ son los parámetros de Lame que están relacionados con las 
constantes elásticas usuales E y v por A = i/£/(1+i/)(1-2i/), /x = £7/2(1+1/). 
Por consiguiente, la matriz de rigidez se calcula a partir de 

K t ¿ = XWÍÍ + ft (W^ + S ac WÜ) (15.16) 

En la Figura 15.8(6) se dan los pasos para calcular la matriz de rigidez de 
los elementos en los casos de elasticidad plana usando este procedimiento. 
Esta manera de calcular matrices de rigidez se propuso en la referencia 
18 y proporciona una reducción de aproximadamente un 25 por ciento en 
comparación con el procedimiento de la Figura 15.8(o). En tres dimensiones 
el ahorro es todavía mayor. 

El cálculo de otras matrices de elemento puede también efectuarse usando 
una rutina de funciones de forma. Por ejemplo, se puede calcular la matriz de 
masa de elemento para problemas en régimen transitorio o de valores propios. 
La matriz de masa para el problema bidimensional se obtiene mediante 

M^^lj^pNjdV (15.17) 

donde I es una matriz unidad 2 X 2 y p es la densidad (ver Apéndice 7). En 
la Figura 15.11 se muestran las sentencias para calcular la matriz de masa 
de un problema plano, donde la matriz de masa concentradas (diagonal) del 
elemento se almacena en el vector P. 



C. . . .Isoparametric «lement aass «atril íor plañe problema HAS 1 

C MAS 2 

C P = Diagonal (lumped) aass array (in vector) HAS 3 

C HAS 4 

C. . . .Compute natrix at each integration point HAS S 

DO 500 L "= 1, LINT HAS 6 

C .... Compute añapa functions HAS 7 

CALL SHAPEF(SG(L),TG(L),XL,XSJ.SHP) HAS 8 

C....For each node I compute contribution HAS 9 

DHASS - D(4)*XSJ*WG(L) HAS 10 

DO 510 I - l.NEL HAS 11 

P(2*I-1) - P(2*I-1) + DHASS*SHP(3,I) HAS 12 

P(2*I ) = P(2»I-1) HAS 13 

510 CONTINUE HAS 14 

500 CONTINUE HAS 15 

RETURN HAS 16 

END HAS 17 



Figura 15.11 Matriz de masa consistente para el cuadrilátero de 4 nodos. 

La rutina de funciones de forma puede también utilizarse para calcular las 
deformaciones, tensiones y fuerzas interiores del elemento. Para el problema 
bidimensional plano las deformaciones se calculan por 
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e = B&i (15.18) 

y las tensiones por 

<r = V£ = Qí&í (15.19) 

La matriz B¿ se ha dado antes para el problema bidimensional y sólo 
depende de las derivadas de las funciones de forma. Previamente se ha 
calculado en los puntos de Gauss cuando se evaluó la matriz de masa del 
elemento. Si se quiere conocer también el valor de las tensiones en los 
puntos de Gauss, la matriz B podría almacenarse en una cinta, o disco, y 
leerse cuando se desee calcular las deformaciones o las tensiones. (De hecho 
Q se podría haber almacenado también). El programa PCFEAP permite 
almacenar Q para cada elemento. Este procedimiento fue adoptado en el 
programa que se da en la referencia 19. Frecuentemente, sin embargo, los 
puntos donde hay que determinar las tensiones y deformaciones no coinciden 
con los puntos de Gauss. En estos casos hay que volver a calcular la 
matriz B. En problemas no lineales el cálculo de deformaciones y tensiones 
debe efectuarse directamente; por consiguiente, parece conveniente que un 
programa sea capaz de calcular las deformaciones y tensiones cuando sea 
preciso. Adicionalmente, en la macroinstrucción FORM se calculan las 
fuerzas interiores que vienen expresadas por 

P^-^BjadV (15.20) 

utilizando los desplazamientos calculados. Los pasos del programa para 
el cálculo de deformaciones, tensiones y fuerzas interiores del problema 
bidimensional se dan en la Figura 15.12. Las coordenadas locales f , r¡, donde 
se evalúan las tensiones y deformaciones se denominan SG, TG. El usuario 
puede definirlas como datos o prefijarlas para que los resultados se evalúen 
en un punto particular; por otra parte pueden especificarse como puntos de 
Gauss. 

Si las tensiones se calculan en los puntos de Gauss, éstas pueden 
extrapolarse a los nodos y alisarse tal como se sugirió en el Capítulo 12. 
Para ello pueden usarse también subprogramas para las funciones de forma. 

La generalidad de una función de forma isoparametric a Co, puede 
aprovecharse para programar rutinas de elemento para otros problemas. Por 
ejemplo, en la Figura 15.13 se dan las instrucciones necesarias para calcular 
la matriz de "rigidez" para los problemas de la ecuación de Laplace discutidos 
en el Capítulo 12. 

15.5.3 Organización de las rutinas de elemento. La discusión previa se ha 
concentrado en los procedimientos para determinarlas matrices de elementos. 
Advertirá el lector que todas las matrices cuadradas de elementos se han 
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C Isoparametric Element Stress, Strain, and Internal Forcea STR 1 

C STR 2 

C P - Internal íorce vector STR 3 

C UL - Nodal displacement vector STR 4 

C STR 5 

C Compute element stresses, strains and forcea STR 6 

C STR 7 

DO 440 L - l.LINT STR 8 

C. .. .Compute element shape functions STR 9 

CALL SHAPEF(SG(L),TG(L).XL,XSJ,SHP) STR 10 

C... Compute strains and coordinates STR 11 

DO 410 1-1,3 STR 12 

EPS(I) - 0.0 STR 13 

410 CONTINUE STR 14 

XX - 0.0 STR 15 

YY - 0.0 STR 16 

DO 420 I' - l.NEL STR 17 

XX - XX + XL(1,I)*SHP(3,I) STR 18 

YY = YY + XL(2.I)*SHP(3,I) STR 19 

EPS(l) = EPS(l) + UL(1,I)*SHP(1,I) STR 20 

EPS (2) - EPS(2) + UL(2,I)*SHP(2,I) STR 21 

EPS(3) - EPS(3) + UL(1,I)*SHP(2.I) + UL<2,I)*SHP(1,I) STR 22 

420 CONTINUE STR 23 

C. . . .Compute stresses STR 24 

SIG(l) - D(1)*EPS(1) + D(2)*EPS(2) STR 25 

SIG(2) - D(2)*EPS(1) + D(1)*EPS<2) STR 26 

SIG(3) » D(3)«EPS(3) STR 27 

C....0utput stresses and strains to unit ISW STR 28 

IF(MCT.GT.O) THEN STR 29 

CALL PRTHED(IOW) STR 30 

WRITE(I0V,2000) STR 31 

MCT - 25 STR 32 

ENDIF STR 33 

WRITE(IOW,2001) N, KA, XX, YY.SIG.EPS STR 34 

C... Compute the internal forcé vector (stress divergence term) STR 35 

DO 430 I = l.NEL STR 36 
P(2*I-1) - P(2*I-1) - (SHP(1.I)*SIG(1)+SHP(2,I)*SIG(3))*DV STR 37 
P(2*I ) = P(2*I ) - (SHP(2,I)*SIG(2)+SHP(1,I)*SIG(3))*DV STR 38 

430 CONTINUE STR 39 

440 CONTINUE STR 40 

RETURN STR 41 

2000 F0RMAT(// ' ELEMENT STRESS/STRAI N'// STR 42 

1 ' Elmt Hatl X-coord Y-coord' ,5X, '11-Stress' ,5X, STR 43 

2 '22-Stress\5X, ' 12-Stress'/39X, ' 11-Strain' ,5X, '22-Strain', STR 44 

3 '12-Strain') STR 45 

2001 F0RMAT(2I6,2FU.4.3E14.5/34X,3E14.5) STR 46 
END STR 47 



Figura 15.12 Cálculo de funciones, deformaciones y fuerzas internas. 
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c. . . 


. Isoparametr ic element computación for Laplace operator 


HEA 


1 


c 




HEA 


2 


c 


DC1} x « visotropxc material paxameterj 


HEA 


3 


c 


DV * Are a wexghtxng 


HEA 


4 


c 


LINT = Number of xntegratxon poxnts 


HEA 


5 


c 


NEL a Number oí noeles connected to element 


HEA 


6 


c 


S x Element coeííxcxent matrxx 


HEA 


7 


c 


C Cl Tfl as Tnf aari+í nn nnintfl í ri nJl't". llT*n"l roordfl 
Ou » 1 Vi m t e Eira, w xou puiu i* o uat lll qi va uo • 


HEA 


8 


c 


SHP ■ Shape íunction axray 


HEA 


9 


c 


XL — Nodal coordínate array (lo.calized) 


HEA 


10 


c 


XSJ m Jacobxan determxnant 


HEA 


11 


c 


WG — Integration weights 


HEA 


12 


c 




HEA 


13 


c . . . 


.Compute contriDution at eacn integratxon poxnt 


HEA 


14 


c 




HEA 


15 




DO 120 L = l.LINT 


HEA 


16 




/iiti CUADITU fer (T \ TrfJ"\ TT YQ T <!HP^ 
(/1LL iHArtf (.blj (L) , LKiKLJ , Ai- ,AaJ , Silr / 


HEA 


17 




DV = XSJ*VG(L) 


HEA 


18 




DI = DvlJ*DV 


HEA 


19 


c 




HEA 


20 


\l . . . 


. r or eacn j noae compute . uo *— u*jd 


HEA 


21 


c 




HEA 


22 




Dü 110 J - 1,NlL 


HEA 


23 




DB11 = Dl*SHPtl p J; 


HEA 


24 




VtSléí — Ul*añr\Ml 9 Jj 


HEA 


25 


c 




HEA 


26 


c . . . 


.For each I-node compute: S - Bt*DB 


HEA 


27 


c 




HEA 


28 




nn 1 aa t — 1 t 


HEA 


29 






HEA 


30 


100 


CONTINUE 


HEA 


31 


110 


CONTINUE 


HEA 


32 






HEA 


33 


c 




HEA 


34 


c. . . 


.Compute symmetric part of S 


HEA 


35 


c 




HEA 


36 




DO 130 I = 2.NEL 


HEA 


37 




DO 130 J = 1,1 


HEA 


38 




S(I,J) = S(J,I) 


HEA 


39 


130 


CONTINUE 


HEA 


40 


c 




HEA 


41 




RETURN 


HEA 


42 




END 


HEA 


43 



Figura 15.13 Matriz de rigidez para el operador de Laplace. 



almacenado en la matriz S, mientras que los vectores de elementos se 
almacenan en el vector P. Esto se ha hecho intencionadamente, ya que todos 
los aspectos del cálculo de las matrices de los elementos para el programa 
se van a agrupar en un único subprograma llamado "rutina del elemento". 
El subprograma ELMLIB llama a una rutina de elemento, que es la rutina 
de generación de la biblioteca de elementos. Tal como la hemos dado aquí, 
la biblioteca de elementos proporciona espacio para cuatro subprogramas de 
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SUBROUTINE ELMTNN(D.UL,XL,II,TL,S.P,NDF,NDM,NST,ISW) ELM 1 

IMPLICIT REAL*8 (A-H.O-Z) ELM 2 

C ELM 3 

C MQCK ELEMENT ROUTINE ELM 4 

C ELM 5 

INTEGER*2 IX(NEN.l) ELM 6 

REAL XL(NDM.1),TL(1),DM ELM 7 

REAL*8 D(18).UL(NDF,1).S(NST,NST),P(NST) ELM 8 

C ELM 9 

COMMON /ADATA/ AA( 16000) ELM 10 

COMMON /CDATA/ NUMNP , NUMEL , NUMMAT , NEN , NEO, ELM 11 

COMMON /ELDATA/ DM, N.MA .MCT, IEL.NEL ELM 12 

COMMON /HDATA/ NH1.NH2 ELM 13 

COMMON H(l) ELM 14 

C READ AND OUTPUT MATERIAL PROPERTY DATA ELM 15 

IF(ISW.EQ.l) THEN ELM 16 

c The array D(18) is used to store up to 18 words oí ELM 17 

c information for each material set ELM 18 

NH1 ~ number ol sords each element needs in data base. ELM 19 

C CHECK ELEMENT FOR ERRORS ELM 20 

ELSEIF(ISW.EQ.2) THEN ELM 21 

C Check element for any negativo jacobians, etc. ELM 22 

C COMPUTE ELEMENT COEFFICIENT MATRIX - AND RESIDUAL ELM 23 

ELSEIF(ISV.EQ.3) THEN ELM 24 

c The S(NST.NST) array is used to store matrix, and ELM 25 
c the P(NST) array is used to store the element residual ELM 26 
H(NH1) * first Hord in history data base for this element. h ELM 27 

C OUTPUT ELEMENT QUANTITIES (E.G., STRESSES) ELM 28 

ELSEIF(ISW.Eq.4) THEN ELM 29 
c N is the current element number, MCT is a line counter ELM 30 

C COMPUTE DIAGONAL ELEMENT MASS MATRIX ELM 31 

ELSEIF(ISV.EQ.5) THEN ELM 32 
c The P(NST) array is used to store the diagonal matrix ELM 33 

C COMPUTE A RESIDUAL ONLY ELM 34 

ELSEIF(ISW.Eq.6) THEN ELM 35 

c Compute an element residual in P(NST) ELM 36 

C COMPUTE ERROR EST IMATES ELM 37 

ELSEIF(ISW.Eq.7) THEN ELM 38 
c Compute error quantities for each element accumulate ELM 39 

C COMPUTE STRESS PROJECTIONS TO NODES ELM 40 

ELSEIF(ISW.Eq.8) THEN ELM 41 

c Compute the stress projections in array AA ELM 42 

ENDIF ELM 43 

RETURN ELM 44 

END ELM 45 

Figura 15.14 Organización de la rutina de un elemento tipo. 



elementos al mismo tiempo, donde los nombres de las rutinas del elemento son 
ELMT01, ELMT02, ELMT03 y ELMT04. Esto se puede ampliar fácilmente 
añadiendo más nombres de rutinas de elementos en ELMLIB. La subrutina 
ELMLIB se llama a su vez desde la subrutina PFORM que, como se ha dicho 
antes, es la subrutina que efectúa el lazo sobre todos los elementos, establece 
matrices locales para las coordenadas (XL), desplazamientos (UL) y destinos 
en las matrices globales (LD). La subrutina PFORM también ensambla los 
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vectores elementales en los vectores globales (cargas, residuos, reacciones y 
masa) y usa el subprograma MODIFY para llevar a cabo las modificaciones 
adecuadas para los desplazamientos prescritos no nulos. Cuando se llama 
una rutina de elemento, el valor del parámetro ISW se especifica entre 1 y 8. 
El parámetro indica qué tipo de operación se va a llevar a cabo en la rutina 
de elemento. Cada rutina de elemento debe proporcionar las transferencias 
correspondientes para cada valor de ISW. En la Figura 15.14 se muestran los 
pasos esquemáticos que realiza una rutina de elemento tipo. 

15.6 Solución de ecuaciones algebraicas simultáneas lineales 

Al resolver problemas por el método de los elementos finitos nos 
enfrentaremos finalmente con la resolución de un gran sistema de ecuaciones 
algebraicas simultáneas lineales. Por ejemplo, en el análisis de problemas 
lineales en régimen permanente, el ensamblaje directo de las matrices de 
rigidez de los elementos conduce a un sistema de ecuaciones algebraicas 
lineales. En esta sección se consideran métodos para resolver las ecuaciones 
siguiendo un procedimiento directo, que permite calcular a priori el número 
de operaciones numéricas a realizar, o bien según un método iterativo o 
indirecto que no permite dicha estimación a priori. 

15.6.1 Método directo. Consideremos en primer lugar el problema general de 
la solución directa del sistema de ecuaciones algebraicas dado por 

Ka = r (15.21) 

donde K es una matriz cuadrada de coeficientes, a es un vector de incógnitas 
y r es un vector de cantidades prefijadas. El lector puede asociar éstas a las 
cantidades descritas previamente, es decir: la matriz de rigidez, las incógnitas 
nodales y las fuerzas especificadas prescritas o las residuales. 

En la discusión que sigue se supone que la matriz de coeficientes ya está 
preparada de forma que para resolver las ecuaciones nunca sea necesario 
intercambiar filas y /o columnas. Esto es cierto cuando K es simétrica, 
definida positiva (o negativa). f Podrá ser cierto o no cuando las ecuaciones 
sean asimétricas o indefinidas, condiciones que pueden presentarse cuando 
la formulación por elementos finitos se base en algunos métodos de residuos 
ponderados. En tales casos se necesitarán ciertas comprobaciones o análisis 
adicionales para asegurarse de que las ecuaciones pueden resolverse. 20,21,22 

Por el momento consideremos que la matriz de coeficientes puede 
escribirse como producto de una matriz triangular inferior con coeficientes 
unidad en la diagonal, y una matriz superior triangular, es decir 

f En los métodos mixtos que llevan a la Ec. (12.43) la solución viene dada en función de 
una parte definida positiva para q seguida de una parte definida negativa para ^. Por 
tanto, se necesitan intercambios si el orden de las ecuaciones se define como se describió 
en la Sección 15.2.4. 
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donde 



L = 



K 


= LU 




1 


0 .. 


. 0" 


L 2 \ 


1 .. 


. 0 




L n 2 • • 


. i. 



(15.22) 



(15.23) 



U 



0 U 22 



U ln 

U'n 



(15.24) 



Este paso se llama descomposición triangular de K. La solución de las 
ecuaciones puede obtenerse ahora resolviendo la pareja de ecuaciones 



Ly = r 
Ua = y 



(15.25) 



dónde y se introduce para facilitar la separación; ver referencias 20 ó 21. 

El lector puede observar fácilmente que la solución de estas ecuaciones 
es trivial. En función de los elementos de las ecuaciones la solución es 



2/1 = r l 

i-1 

Vi =ri ~ ^2 Li 3 y í 



i = 2, 3, . . . , n 



(15.26) 



a n =yn/U n 



Vi ~ £ 



Uijdj 



Vi 



1, n-2, 



1 



(15.27) 



La expresión (15.26) constituye la llamada "eliminación hacia adelante" 
mientras que las (15.27) son las correspondientes a la "sustitución hacia 
atrás" . 

El problema se reduce a construir la descomposición triangular de la 
matriz de coeficientes. Este paso se lleva a cabo usando variantes de 
la eliminación gaussiana. En la práctica, las operaciones necesarias para 
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TABLA 15.18 
DESCOMPOSICIÓN TRIANGULAR DE K 



Zona activa 
K Xi 



1 I I 



U XX = K XX | 
I 



Paso 1. Zona activa: Primera fila y columna hasta la diagonal principal. 

^ Zona reducida 

. Zona activa 



1 


K X3 


1 K ia 


[11 0 1 


r u xx 


| U 13 = K„ 


K 3X 


K 33 


1 K» 




0 


U n = K 31 — L 3l U 13 


K tx 











Paso 2. Zona activa: Segunda fila y columna hasta la diagonal principal. Se usa la primera 
fila de K para elimnar L 3 , U xl . La zona activa usa sólo valores de K de la zona activa, 
y valores de L y U que ya se han se han calculado en los pasos 1 y 2. 

y — Zona reducida 

, — Zona activa 





"10! 0 | 






\K„\ 


L» 1 1 0 | 


0 u„ 


U 3I = K 3i L 3i U Xi 


K»i K*3 K>> | 


-C-si La La — 1 


0 0 


U ti = K ss — L tl U ls 












L i3 ={K» - L»U l3 )p 33 







Paso 3. Zona activa: Tercera fila y columna hasta la diagonal pricipal. Se usa la primera 
fila para eliminar L tl U xl ; se usa la segunda fila de términos reducidos para eliminar 
L»iU 33 ( coeficiente reducido K i3 ). Se reduce la tercera columna para reflejar las 
eliminaciones por debajo de la diagonal. 



la descomposición triangular se llevan a cabo directamente en la matriz 
de coeficientes; no obstante, para mayor claridad, los pasos básicos se 
muestran en la Tabla 15.18 usando diferentes matrices por separado. La 
descomposición se efectúa de la misma manera que opera el subprograma 
D ATR1 ; así, el lector podrá comprender fácilmente los detalles de esta rutina 
una vez que haya asimilado los pasos de la Tabla 15.18 Las referencias 4 y 
23 dan detalles adicionales. 

En DATR1 la variante de Crout de la eliminación gaussiana se usa 
sucesivamente para reducir la matriz de coeficientes original a una forma 
triangular superior. La porción triangular inferior no se hace cero pero se 
utiliza para construir L, como se muestra en la Tabla 15.18. Como hemos 
mencionado antes, las matrices triangulares superior e inferior sustituyen a 
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U columna j de la zona activa 



Fila ; de la 
zona activa 




Figura 15.15 



1.7 



L n L l2 • • • ¿,, ¡ 



Figura 15.16 
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la matriz de coeficientes original; en consecuencia, no es posible retener los 
elementos de la diagonal principal de ambas L y U. Los de L son triviales 
puesto que por definición se sabe que valen todos la unidad. 

Con base en la organización de la Tabla 15.18, es conveniente considerar 
la matriz de coeficientes dividida en tres partes: la primera es la región que se 
ha reducido totalmente, la segunda la región que se está reduciendo (llamada 
zona activa) y la tercera la región que contiene los coeficientes originales sin 
reducir. Estas regiones se muestran en la Figura 15.15, donde la columna j 
sobre la diagonal y la fila j por debajo de la diagonal constituyen la zona 
activa. El algoritmo para la descomposición de una matriz cuadrada n x n 
puede deducirse de la Tabla 15.18 y de la Figura 15.16 como sigue: 



ÜU =Kn (15.28a) 



Para cada zona activa j desde 2 a n 



^ = K n/ u n (15 28b) 



Entonces 



Lji = (^Kji - ]T LjmUm^j /Uü 



i-1 



¿ = l,2,...,j-l (15.28c) 
Uij =Kij - ^ LirnUmj 



m=l 



y finalmente 



Ljj =1 



tí (15.28d) 
U jj =K jj ~ L jmUmj 
m-1 

La ordenación del proceso de reducción y los términos utilizados se muestran 
en la Figura 15.16. Los resultados de la Tabla 15.18 y de las ecuaciones 
(15.28) pueden ser comprobados por el lector mediante la matriz del ejemplo 
representado en la Tabla 15.19. 

Una vez efectuada la descomposición triangular de una matriz, pueden 
calcularse las soluciones para los distintos r utilizando las expresiones (15.26) 
y (15.27). Este proceso se suele llamar resolución, ya que no es necesario 
volver a calcular L y U. Para matrices de coeficientes muy grandes el proceso 
de descomposición es muy caro mientras que la resolución es relativamente 
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TABLA 15.19 

EJEMPLO: DESCOMPOSICIÓN TRIANGULAR DE UNA MATRIZ 3x3 



u 



2 1 

4 2 
2 4 



u 



£J 



Paso 1. Lu = l,Uu = 4 



J_J ! 

0.5 1 [ 



Paáo 5. L 2 i = l = 0.5, tfu = 2, ¿ 22 = 1, U 12 = 4 - 0.5 x 2 = 3 



1 

0.5 



0.25 0.5 



1 

1.5 
3 



Paso 3. ¿si = | = 0.25, tf 13 = 1,£ 32 = 2 ~% 25x2 = ^ = 0.5 

[/ 23 = 2-0.5xl = 1.5,I 3 3 = l,t/ 33 = 4 - 0.25 x 1 - 0.5 x 1.5 = 3 



1 

0.5 
0.25 



1 

0.5 



1 

1.5 
3 



4 2 1 
2 4 2 
12 4 



Paso 4- Comprobación 



barata; en consecuencia, es necesario disponer de capacidad de resolución en 
todo sistema de solución por elementos finitos. 

En la discusión anterior se ha considerado el caso general de solución de 
ecuaciones (sin intercambiar filas y /o columnas). Generalmente, las matrices 
de coeficientes que aparecen en todo problema de elementos finitos presentan 
ciertas propiedades particulares. Frecuentemente la matriz de rigidez es 
simétrica (K{j = Kj{) y es fácil comprobar en este caso que 

E/y = LjiUa (15.29) " 

Para esta clase de problemas no es necesario almacenar la matriz de 
coeficientes completa. Basta con almacenar sólo aquellos coeficientes situados 
encima (o debajo) de la diagonal principal y utilizar la ecuación (15.29) 
para construir la parte que falta. Esto reduce a casi la mitad el espacio 
necesario para la matriz de coeficientes. Puede economizarse aún más en 
el almacenamiento si se almacenan solamente los términos incluidos dentro 
de una banda no nula. En las formulaciones de elementos finitos el máximo 
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"ancho de banda" de los coeficientes no nulos puede generalmente reducirse 
en comparación con el número de incógnitas — con frecuencia en un 10- 
20 por ciento — , lo que reduce el almacenamiento desde n(n -f l)/2 a (0,1 
a 0, 2)n 2 para problemas simétricos. Un método típico de almacenamiento 
para ecuaciones en banda simétricas se muestra en la Figura 15.17. Meyer 24,25 
ofrece una discusión acerca de los sistemas en banda junto con una extensa 
bibliografía. 

Aún puede reducirse más el almacenamiento y el esfuerzo de cálculo 
necesarios, almacenando las partes necesarias de la parte triangular superior 
de la matriz de rigidez por columnas y la parte triangular inferior por 
filas, tal como se muestra en la Figura 15.18. Esto ya ha sido sugerido 
en las referencias 26 a 30 para matrices simétricas. Entonces es necesario 
almacenar y calcular solamente por el interior del perfil no nulo de las 
ecuaciones. Este método de almacenamiento tiene ventajas concretas 
sobre un almacenamiento en banda. Primeramente requiere siempre 
menos capacidad de almacenamiento; en segundo lugar, las necesidades de 
almacenamiento no resultan severamente afectadas por unas pocas columnas 
muy largas, como se muestra en la Figura 15.18, y por último, es fácil utilizar 
rutinas de productos escalares para efectuar la descomposición triangular y 
la reducción hacia adelante 20 . Este último punto es de suma importancia en 
los computadores modernos orientados hacia el cálculo vectorial. 

Se ha incluido un subprograma de solución de ecuaciones en perfil para 
su uso en el paquete de solución por el método de los elementos finitos. Su 
nombre es DATRI y DASOL para ecuaciones simétricas y no simétricas. El 
perfil de ambos casos debe ser simétrico. Las columnas por encima de la 
diagonal principal, o las filas por debajo de ella, se almacenan en un único 
vector, que se muestra en la Figura 15.18. Para localizar los elementos de la 
diagonal se utiliza un vector de apuntadores. En la Tabla 15.20 se definen 
las variables usadas en los subprogramas de solución DASOL y DATRI. 

El subprogarama DASBLY se usa para ensamblar la matriz de 
coeficientes y el vector de fuerzas/residuales. Se usa el vector LD para 
localizar las ecuaciones activas y la posición en cada columna o fila. 

Se puede usar el método frontal de solución para aumentar el número 
de ecuaciones más alia de aquél que puede ser resuelto en memoria central 
usando el sistema de solución en perfil. El método frontal fue descrito 
por primera vez por Irons 2 y adoptado después para el programa descrito 
por Hinton y Owen. 3 En el método frontal las ecuaciones activas vienen 
determinadas por la secuencia en que se procesan los elementos. En un 
momento dado sólo un pequeño conjunto de ecuaciones están activas. Por 
ejemplo, la Figura 15.19 muestra una malla en la que se han procesado 
los elementos hasta el u E n . Las ecuaciones activas en el momento en que 
se introduce el elemento E se indican en la figura. Una vez que se han 
introducido los coeficientes de E, los términos asociados al nodo" x" y sus 
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Semi ancho 
de banda 



Perfil 




¡ ^22 ^23 ^24 ' 



Simétrica ! K55 *56 ¡ 

1 -, ! 



| ^66 ^67 
I , 



l ^77 ^78 



Figura 15.17 
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TABLA 15.20 

VARIABLES USADAS EN LOS SUBPROGRAMAS DATRI Y DASOL DE 
SOLUCIÓN DE ECUACIONES 

AD(I) Diagonales de la matriz de coeficientes, reemplazados por los recíprocos de 

U al regresar de DATRI 
AU(I) Coeficientes sobre la diagonal, reemplazando por el factor AD.U 

al regresar de DATRI 
AL(I) Coeficientes bajo la diagonal, reemplazadas por el factor L 

al regresar de DATRI (AU=AL en el caso simétrico) 
B(I) Término independiente del sistema al llamar a DASOL.reemplazado 

por la solución de las ecuaciones a la salida. 
JP(I) Apuntador al último elemento de cada fila/columna de AL/UL, respectivamente 
NEQ Número de ecuaciones 
ENERGY Energía de las ecuaciones activas. 

FLG Indicador, si es verdadero se trata el sistema como no simétrico, y debe 
proporcionarse almacenamiento separado para AU y AL 



vecinos inmediatos están completos (esto es, ningún otro elemento afectará a 
los términos en las ecuaciones asociadas a x). En consecuencia, las ecuaciones 
asociadas a a: se pueden eliminar mediante un proceso gaussiano estándar. 2,3 
La matriz de coeficientes frontal del momento se muestra también en las 
Figura 15.19, junto con la ecuación asociada ai. El paso de la solución 
gaussiana debe realizarse para la ecuación x y afecta a todos los demás 
términos en el frente activo de la matriz de coeficientes. Si existe simetría, 
ésta se conserva en el paso de solución. El paso de eliminación gaussiana 
para la ecuación x se puede escribir de la forma 

i A s;+1 = Ds'LxAz (15.30) 

donde: 



-L 2x 
-L 3x 

1 

Lnx 



fila x 



(15.31a) 



columna x 



es una matriz casi vacía del tamaño de la matriz frontal de coeficientes activa, 
donde 
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filas 



(15.31b) 



columna x 



es una matriz diagonal unidad excepto en la fila x en la que la diagonal es 
cero. Al operar con D x y L x se obtiene una matriz A x+ j que tiene ceros en 
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la fila y columna x. Las columnas x de L x y la diagonal A xx se guardan para 
la fase de solución. La descomposición triangular frontal es llevada a cabo 
por el subprograma PFRTD, la eliminación hacia adelate por PFRTFW, y 
la sustitución hacia atrás por PFRTBK. Las columnas de L se guardan en 
un espacio de memoria que se controla, y cuando este espacio está lleno se 
escribe a disco a través de la rutina PBUFF. Sólo se consideran matrices 
A simétricas y las columnas de la parte triangular superior de la matriz se 
almacenan en un único vector. 

Una vez que se ha realizado un paso de la solución frontal la ecuación 
x ya no es necesaria, y puede ser eliminada del conjunto de ecuaciones 
activas. Esto crea una columna y fila de ceros en la posición x. Ahora 
se pueden colocar nuevas ecuaciones en ese lugar; sin embargo, al final 
existirán muchas filas y columnas nulas, ya que el número de ecuaciones 
activas varía durante el proceso. El vector frontal sería entonces mayor, 
y esto resultaría en el procesamiento de ecuaciones "nulas" adicionales al 
tratar las ecuaciones x. Para evitar esto, el sistema de solución de PCFEAP 
recoloca primero la ecuación x dentro del área de memoria. Durante el 
paso de eliminación los elementos dentro del bloque rectangular de términos 
a la derecha de la columna x son movidos una columna a la izquierda, y 
los términos en el triángulo por debajo de la fila x son movidos una fila 
hacia arriba y una columna hacia la izquierda. Esto se consigue simplemente 
mediante un apuntador adicional que indica la posición para almacenar 
los términos reducidos. Con este procedimiento las ecuaciones activas 
permanecen compactas y el número de ecuaciones puede variar durante 
el proceso de solución (y llegar a ser cero al final de éste). Mientras 
que los movimientos descritos arriba son deseables durante la fase de la 
descomposición triangular, en una resolución es necesario hacer a la inversa 
para obtener la solución de cada ecuación. Esto requiere más operaciones 
con enteros que las requeridas por el método de solución en perfil. 

En la referencia 12 se muestra que las soluciones usando un método 
de perfil operando sobre las ecuaciones almacenadas en el orden en que 
un programa frontal lleva a cabo las eliminaciones, requiere exactamente 
el mismo número de operaciones que el método frontal. Sin embargo, existen 
diferencias en el detalle de programación (ej., los movimientos descritos 
anteriormente), y por lo tanto, los dos sistemas de solución consumen 
distintos tiempos de cálculo. La mayor ventaja del sistema frontal es 
la facilidad para ensamblar términos de la matriz de coeficientes de las 
ecuaciones activas. En una solución de banda variable que utilice memoria 
periférica una matriz elemental puede tener términos que pertenezcan a 
diferentes bloques de almacenaje. En consecuencia, sería necesario recalcular 
el vector elemental para cada bloque o guardarlo en un espacio de reserva - 
cualquiera de los dos métodos aumentan el coste de la solución. Por lo tanto, 
el sistema frontal es una buena elección cuando no es posible mantener la 
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matriz de coeficientes enteros en la memoria del ordenador a la vez. El 
tamaño del problema está limitado por el máximo tamaño de la matriz 
de coeficientes del frente activo que puede guardarse en la memoria del 
ordenador (en PCFEAP esto es alrededor de 120 para las 8000 palabras 
del "common" ADATA). Una vez que se excede este límite un solucionador 
de banda variable con memoria periférica será siempre más eficiente que el 
método frontal. 

15.6.2 Solución iterativa. Para problemas muy grandes el número de 
términos no nulos dentro del perfil de la matriz de coeficientes es pequeño 
comparado con el número de elementos nulos. Esto es especialmente cierto 
en problemas tridimensionales donde la altura de las columnas puede ser de 
varios miles de términos entre las cuales menos de cien sean no nulos antes de 
construir los factores triangulares (que rellenarán los elementos nulos). En 
consecuencia, para este tipo de problemas los métodos de solución iterativos 
serán, en general, más eficientes que la solución directa. Este es un área 
de investigación que recibe en la actualidad considerable atención (ver las 
referencias 31 y 32). Para dar una idea de las ventajas potenciales de los 
métodos iterativos incluimos a continuación una discusión breve del método 
de Gauss-Seidel. Para llevar a cabo las iteraciones de Gauss-Seidel se escribe 
primeramente una descomposición aditiva de la matriz de coeficientes 21 

K = L + U (15.32) 
donde los coeficientes de L están en la mitad triangular inferior, es decir 

Li^Kij t = 2, 3, n; j = 1, 2, i (15.33) 
Los coeficientes de U están en la mitad triangular superior 

Ui^Kij ¡ = 1,2 n-1; j = i + 1, i + 2, . . . , n (15.34) 

y todos los demás coeficientes de L y U son nulos. 

El esquema iterativo de Gauss-Seidel básico viene dado por el algoritmo 

a°=v 

(15.35) 

La n+1 =r-Ua n V 

donde v es un vector inicial y el índice indica el número de la iteración. Si la 
matriz de coeficientes es simétrica y definida positiva, el método de Gauss- 
Seidel se sabe que es convergente (ver referencia 21); no obstante, la velocidad 
dé convergencia puede ser inaceptablemente pequeña. En tales casos el 
esfuerzo de cálculo puede en general reducirse significativamente usando un 
factor de sobrerrelaj ación. Para facilitar el uso de la sobrerrelaj ación se 
sustrae el término La n de ambos lados de la ecuación (15.35), para dar 
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L Aa = r - Ka n (15.36) 

y la solución prosigue usando 

a n+1 = a n + u>Aa (15.37) 

donde u> es un factor de sobrerrelajación entre 0 y 2, que depende del 
problema. El proceso anterior se llama "sobrerrelajación sucesiva" o SOR. 
Las principales ventajas de la iteración son la reducción del almacenamiento 
en la memoria central y la eliminación de la descomposición triangular que 
es la parte más costosa de la solución directa. Sólo se necesita realizar 
multiplicaciones con los términos no nulos de K; en consecuencia, el coste por 
iteración es muy pequeño en comparación con la descomposición triangular 
de la solución directa. Sus inconvenientes son: el desconocimiento de cuántas 
iteraciones son necesarias para obtener una solución aceptable; el valor 
óptimo de u que debe usarse; y que el método a veces falla cuando se aplica 
a ecuaciones no simétricas o no definidas. 

Existen muchos métodos iterativos que se pueden usar para resolver 
las ecuaciones. Investigaciones actuales que utilizan la estructura de 
elementos finitos parecen prometedoras; sin embargo, no existen todavía 
en la actualidad ningún procedimiento que pueda usarse para resolver la 
generalidad de los problemas de elementos finitos. En consecuencia, la 
mayoría de los programas de solución por elementos finitos de hoy usan 
todavía métodos de solución directa para resolver las ecuaciones algebraicas. 

15.6.3 Cálculo de la energía. Cuando se resuelven problemas de elementos 
finitos a partir del valor mínimo (o máximo) de un funcional, generalmente 
se desea calcular el valor mínimo (o máximo) del mismo. En el problema 
discreto esto equivale a calcular la energía dada por 

-2ü(a) = a T Ka = a T r (15.38) 

donde K es simétrica, puesto que ahora sólo consideraremos principios de 
valor mínimo (o máximo). Frecuentemente no conviene tener el segundo 
miembro de la ecuación y la solución al mismo tiempo en la memoria central. 
En tal caso puede calcularse el valor del funcional durante la resolución de 
las ecuaciones. Usando la descomposición triangular y las condiciones de 
simetría para Üfy , la ecuación (15.38) puede escribirse como 

É E E "¡V mi U-lV mjaj = ¿ a in (15.39) 

m=l i=l j=l i=l 



lo que se convierte en 
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n 

£ a in (15.40) 
i=l 

si se usa la ecuación (15.35). Así pues, puede calcularse el valor de la 
energía durante la reducción hacia adelante del primer miembro, sin tener 
que almacenar la solución y el primer miembro al mismo tiempo. 33 

El valor de la energía discreta calculada puede utilizarse para estimar 
la velocidad de convergencia de la energía, ya que la energía del error es 
igual al error de la energía, por ejemplo, consultar la referencia 34, donde se 
demuestra que 

n(a - a h ) = U{a) - U(a h ) (15.41) 

! 

siendo II la energía. Así la velocidad de convergencia de la energía puede 
estimarse entonces dibujando la curva de log[II(a) — n(a^)] en función del 
log h donde h es una medida del tamaño de la malla, y a, a h son las soluciones 
exacta y aproximada. Además de la energía, el programa PCFEAP tanbién 
calcula los estimadores de error descritos en el Capítulo 13. La versión que 
se incluye calcula errores basados en los estimadores de energía y también 
aquéllos basados en los errores al cuadrado de las tensiones (esto es, sin 
usar la matriz de propiedades de los materiales). Finalmente, se dan los 
estimadores de refinamiento necesario para producir un 5 por ciento de error. 
Se dan los estimadores de refinamiento tanto para la formulación en energía 
como en tensiones. Basándose en una solución del problema ambos métodos 
indican donde se necesita introducir un refinamiento adicional de la malla; sin 
embargo, la ventaja del método de tensiones es que también puede extenderse 
a aplicaciones no lineales. 

15.7 Ampliación y modificación del programa 

Las secciones anteriores describen el programa que se lista en la sección 
siguiente. Las posibilidades del programa, pese a ser bastante importantes, 
pueden aún mejorarse. Las mejoras pueden incluir: aumento de la capacidad 
para tratar problemas mayores, potenciar el lenguaje del macroprograma 
y, finalmente, añadir postprocesadores que preparen gráficos de resultados 
característicos. 

Para muchos problemas de ingeniería analizados mediante elementos 
finitos, la capacidad del programa aquí discutido será inadecuada. La 
inadecuación se manifiesta primeramente en el número de incógnitas que 
pueden manejarse, ya que la capacidad está limitada primordialmente por 
el tamaño de la matriz de rigidez. Dicha capacidad puede incrementarse 
dividiendo la matriz de rigidez en bloques como se muestra en la 
Figura 15. 20. 28 Así sólo sería necesario almacenar dos de estos bloques en la 
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memoria en un instante dado, en vez del sistema total de ecuaciones. Cuando 
se usan grandes computadores este solo cambio aumentaría la capacidad del 
programa para poder tratar varios miles de incógnitas. La eficiencia del uso 
de bloques de ecuaciones aumenta si los datos de la malla se escriben en la 
memoria periférica durante el proceso de solución, de manera que las matrices 
globales tengan disponible la máxima área de memoria. Adicionalmente, el 
ensamblaje de las ecuaciones globales tendría que modificarse, puesto que no 
se dispone de todo el sistema de ecuaciones al mismo tiempo. Las matrices 
de los elementos tendrán ahora que almacenarse en la memoria periférica, y 
las ecuaciones ensambladas bloque por bloque (ej., consultar referencia 19). 

Si se quiere aumentar la capacidad aún más, debe llevarse a cabo una 
modificación radical en el almacenamiento de las matrices de datos. Dichas 
matrices deben disponerse en bloques, almacenarse en la memoria periférica y 
utilizarse cuando se necesiten. En este caso será necesario escribir programas 
especiales para manejar con eficiencia la gran cantidad de entradas de datos 
y salidas de resultados y, por tanto, será más ventajoso efectuar el proceso 
de localización sólo una vez. 

Además de incrementar la capacidad del programa para tratar un mayor 
número de incógnitas, será necesario añadir macroinstrucciones que permitan 
tratar un mayor número de tipos de problemas. En la Sección 15.4 sólo se 
incluyen algunas de las sentencias posibles y el programa que ofrecemos no 
puede, por ejemplo, resolver problemas generales no lineales. Si bien es 
posible formular una estrategia general iterativa usando los comandos que 
se incluyen, la solución eficiente de muchos problemas no lineales requiere el 
uso de algoritmos de "búsqueda en línea" ("line-search") o de los métodos 
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de "longitud de arco" ("arc-lenght"). Éste es un tema general que se tratará 
con detalle en el próximo volumen. Además, la inclusión de procedimeintos 
para calcular los valores y vectores propios de problemas generales permitiría 
estimar el tamaño de los pasos de tiempo en las soluciones transitorias, 
calcular las cargas de pandeo de estructuras, o para soluciones generales 
por el método de superposición modal en problemas lineales. De hecho, 
las aplicaciones generales precisan a menudo macro comandos especiales y 
en versiones mayores del programa se tiene una utilidad de "librería" para 
permitir que los usuarios añadan comandos sin modificar los subprogramas 
PMACR. 

Finalmente, hemos aludido al problema de comprobar mallas y afirmado 
que todo esquema de solución viable precisa de un paquete de gráficos. Si 
esto es cierto para comprobación de datos, lo es también para interpretación 
de resultados. Para análisis de gran tamaño, especialmente si dependen 
del tiempo, no es posible interpretar una gran cantidad de resultados 
numéricos impresos. En estos casos la facilidad de la representación gráfica es 
ciertamente una necesidad. El tipo de representación gráfica utilizada debe 
ser capaz de dibujar la deformación de mallas (ampliando los desplazamientos 
si es necesario), dibujar gráficos de tensiones y deformaciones, y producir 
gráficos en función del tiempo. 9 

En las Figuras 15.21 a 15.24 se muestran unos cuantos ejemplos de 
gráficos y se sugieren algunos de los dispositivos para trazado de gráficos 
de los que debe disponerse. 

Los programas generales para dibujo de gráficos pueden también 
incorporarse al programa utilizando el macrolenguaje para controlar la 
creación de los ficheros gráficos. 

15.8 Listado del programa de elementos finitos 

Se incluye aquí el listado completo en Fortran del programa de ordenador 
que se ha discutido en este capítulo. La sección está dividida en cinco partes: 
la primera parte contiene las rutinas de los módulos de control y entrada de 
datos, la segunda la rutinas de los módulos de solución y de salida de los 
macro comandos, la tercera los sistemas de solución de ecuaciones, la cuarta 
la rutinas gráficas y la quinta las rutinas elementales para elasticidad lineal 
basadas tanto en la formulación por desplazamientos como en la mixta, y 
un sencillo elemento estructural tipo barra. Las rutinas en cada parte están 
separadas en grupos que deben colocarse en un único archivo de programa. 
Se usa esta organización para facilitar la creación del programa usando un 
sistema de macro o mini ordenador. Los archivos se listan y describen 
brevemente en la Tabla 15.21. 

15.8.1 Instalación del programa de ejecución. El programa ha sido verificado 
exhaustivamente usando dos entornos informáticos. El primero es un IBM o 
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(a) Dibujo del modelo (6) Dibujo sin líneas ocultas 

Figura 15.21 Dibujos de mallas tridimensionales con la posibilidad de ehminar 
líneas ocultas (cortesía del Prof. N.N. Christiansen, Universidad de 
Brigham Young, Provo, Utah). 

sistema de ordenador personal equivalente, usando un compilador de Fortran 
77 35 y el Graphics Development Toolkit. 5 Se recomienda instalar el programa 
usando el sistema de solución frontal. Al compilar el programa todas las 
rutinas excepto PCMAC2.F0R y los archivos de los elementos y los de dibujo 
deben estar a nivel de sistema ("root level"). El programa necesita al menos 
384 Kbytes de la memoria pricipal y dos unidades de disco flexible. Un disco 
duro mejoraría significativamente los resultados. 

Si el programa ejecutable se llama PCFEAP.EXE (o PCFEAP) entonces 
el programa se ejecuta mandando el comando "pcfeap" desde la terminal. 
Cuando se termine el primer análisis el programa preguntará dónde deben 
almacenarse los archivos de salida de resultados. Cuando se usa el programa 
con sólo dos unidades de disco flexible, el disco del programa debe estar 
cargado en una de ellas (a:), y los archivos de salida deben escribirse en un 
disco de trabajo en la segunda (b:). Cuando se dispone de disco duro el 
programa y los archivos de salida pueden guardarse en la misma unidad (c:). 

Como segundo entorno se ha usado un miniordenador con memoria 
virtual y se recomienda usar el sistema de solución de banda variable. En 
el miniordenador el software gráfico se sustituyó por otras rutinas. También 
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Figura 15.23 Líneas de igual tensión. 




Figura 15.24 Gráfico de la historia de tensiones con el tiempo - muestra enseguid. 
anomalías tales como oscilaciones crecientes. 
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TABLA 15.21 

ARCHIVOS PARA EL PROGRAMA FUENTE DE PCFEAP 



Nombre del archivo 


Descripción 


PCFEAP.FOR 


Programa principal, asignación de archivos, instalación 


PCDEPT.FOR 


Rutinas dependientes de la instalación o del compilador 


PCMESH.FOR 


Rutinas de definición de la malla 


PCMAC1.FOR 


Rutinas de macro programa — parte 1 


PCMAC2.FOR 


Rutinas de macro programa — parte 2 


PCMAC3.FOR 


Rutinas de macro programa — parte 3 


PASOLV.FOR 


Rutinas de solución de banda variable 


PASOLV.FOR 


Rutinas de solución frontal 


PCPLOT.FOR 


Rutinas de dibujo para la malla y el contorno 


PCELM1.FOR 


Rutina del elemento con formulación en desplazamientos 




elasticidad lineal plana y axial-simétrica 


PCELM2.FOR 


Rutina del elemento con formulación mixta, B-barra; 




elasticidad lineal plana y axial-simétrica 


PCELM3.FOR 


Rutina del elemento para elasticidad plana; 




formulación de Pian-Sumihara 


PCELM4.tex 


Rutina del elemento para barra elástica 



El programa PCFEAP y su documentación interactiva está disponible en diskette y 
cinta magnética. Se puede obtener más información escribiendo a: Professor R.L. Taylor. 
Department of Civil Engineering, University of California, Berkeley, CA 94720, USA. 



se aumentaron significativamente los vectores en el "common" no etiquetado 
y en el "common" ADATA. Ambas versiones usaron diferentes precisiones 
para definir variables enteras, reales y en doble precisión. La instalación y 
ejecución del programa se llevan a cabo de la misma manera que en la versión 
micro; sin embargo, los parámetros del disco se usan simplemente como parte 
del nombre del archivo en el directorio del ordenador. 

Después de la instalación se escribe un pequeño archivo de disco llamado 
FEAP.NAM en que se guardan los parámetros de instalación y los nombres 
de los archivos usados en el último análisis. 

Los archivos de análisis son: 

1. Archivo de entrada. Este archivo guarda los datos de entrada que 
describen la malla y el algoritmo de solución (ej., MACR y el macro 
o INTE). 

2. Archivo de salida. Este archivo guarda los resultados creados durante la 
generación de malla (si se usa NOPR se guarda muy poca información), 
y además, cualquier resultado soli citado durante la ejecución de macros. 

3. Archivo de lectura para re-ejecución. Este archivo se puede usar para 
recomenzar una ejecución previa si se ha guadado el archivo de re- 
ejecución adecuado. 

4. Archivo de escritura para re-ejecución. Este archivo se puede usar para 
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guardar un archivo de re-ejecución con el estado actual de la solución en 
cuanto a parámetros de control, desplazamientos y variables históricas. 

El archivo de salida guarda la información que aparece en la pantalla 
durante la ejecución en modo iterativo. 

Cuando se usa PCFEAP se le pide al usuario que especifique cada uno 
de los cuatro archivos. Después de la primera ejecución de un problema 
los nombres de los archivos usados se guardan como nombres por defecto 
para el siguiente análisis. Cuando se ejecuta un nuevo problema el usuario 
tiene la opción de rebautizar los archivos. Se sugiere que el archivo de 
entrada comience con una "I" (ej., IEXAMPL1); entonces el programa 
cambia los nombres por defecto para que empiecen con "O", "R", "S" 
para los archivos de salida, lectura para re-ejecución y escritura para re- 
ejecución, respectivamente (ej., 0EXAMPL1, REXAMPL1, SEXAMPL1). 
Si se deben redireccionar los archivos a otra unidad de disco se debe 
especificar la dirección completa (ej., C:IEXAMPL1,C:EXAMPL, etc.). Los 
resultados de los archivos están limitados a 12 caracteres, incluyendo los 
redireccionamientos de disco. 

15.8.2. Módulos de control y entrada de datos. Los subprogramas de 
control y entrada de datos están contenidos en los archivos PCFEAP.FOR, 
PCDEPT.FOR y PCMESH.FOR 

(o) El archivo PCFEAP.FOR contiene los siguientes subprogramas: 

Descripción 
Programa Principal 
Borra los archivos de trabajo 
Prepara los archivos de entrada, salida 
y re-ejecución 

Controla la solución global del problema 
Calcula las proyecciones nodales de 
tensiones 

Imprime el título de cabecera en el archivo 
de salida 



Nombre 


Tipo 


PCFEAP 


PROGRAMA 


PDEFIL 


SUBRUTINA 


FILNAM 


SUBRUTINA 


PCONTR 


SUBRUTINA 


PLTSTR 


SUBRUTINA 


PRTHED 


SUBRUTINA 



F E A P - - A Finite Element Analysis Program for 

Hini and Mainframe Computers 

.pcFEAP -- A Finite Element Analysis Program for 

Personal Computers 



.A (PC) Finite Element Analysis Program for solution of general 
.problem classes using the finite element method. Problem size 
. is controlled by the dimensión of blank common and valué of mar 
. set beloH. 
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. .Programmed by: 

R. L. Taylor 

Department of Civil Engineering 
University of California 
Berkeley, California 94720 

..Hini Versión 1.22 of FEAP - January 1987 

Use Skyline Solution system in file: pasolv.for 

Uses: Fortran 77 Compiler System 

..PC Versión 1.22 of pcFEAP - January 1987 

Use Frontal Solution system in file: pfsolv.for 



Uses: Micro Soft Fortran Versión 3.3x 

IBM Graphics Toolkit - need forvdi.lib 

...(C) Copyright - University of California - 1985.1986.1987 



H0FL0ATCALLS 

program pcf eap 

character versn*12,tf ile*12 

integer*2 m 

common m(32000) 

common /cdata/ numnp.numel.nummat .nen.neq 

common /iofild/ iodr. iodw, ipd, ipr, ipi 

common /psize/ maxm.ne 

common /temí 11/ tfile(6) 

common /vdata/ versn(3) 
. . .set versión data 

versn(l) - 'IBM PC / AT ' 

versn(2) - ' — 1.22 — ' 

versn(3) - ' 05/11/87 '* 
...reserve memory size; set default input/output units 

maxm « 32000 

ne = 1 

iodr = 1 

iodw - 2 

...set precisión valúes: ipd = double; ipr = real; ipi - integer 

ipd - 4 

ipr - 2 

ipi M 1 
...clear the screen to start 

cali pelear 

. . . open files; erase scratch files if they exist; start ezecution 
cali filnam 
cali pdefil(tfile.l.4) 
cali pcontr 

...cióse input and output files; destroy temporary disk files 
cióse (iodr) 
cióse (iodw) 

cali pdefil(tfile,1.4) 

stop 

end 



pcf 
pcf 
pcf 
pcf 
pcf 
pcf 
pcf 
pcf 
pcf 
pcf 10 
pcf 11 
pcf 12 
pcf 13 
pcf 14 
pcf 15 
pcf 16 
pcf 17 
pcf 18 
pcf 19 
pcf 20 
pcf 21 
pcf 22 
pcf 23 
pcf 24 
pcf 25 
pcf 26 
pcf 27 
pcf 28 
pcf 29 
pcf 30 
pcf 31 
pcf 32 
pcf 33 
pcf 34 
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c 





subrout ine pdef il ("tí il o , ni ,n2 ) 


lid» 
pae 


1 


c . . . 


.destroy temporary files 


pde 


2 




logical lfil 


pde 


3 








4 




do 100 n = ni n2 


? de 


5 




inquire Cf ilo = t f i. lo (n ) , exist~lf ¿1 ) 


de 


6 




11 ^11 11^ XI16Z1 


P , 8 


7 




opon (4 , f í l© = tf ¿1© (n) ) 


pae 


8 




rlneaU at»tnssMalat« M 


pao 


9 




enau 


pde 


10 




c ont inu6 


pae 


1 1 






pao 


12 




en 


nde 
pao 


13 


c 


SUDXOllt Ule IllnBJD 


f il 


l 




. sdt í ¿leñames for execu.ti.on 


f il 


2 




lUViLai 1111,1 iiip i iu u l j xx o a , xa a v 


f il 


3 




rhkrnrt art 1 v H "i «a Vn m Dff$fD^*fí tf i 1 1 9 
tXlCLL AL li BI* X Jf > UXa JULID ( ■m.í/^O, IdllO'lí 


f il 


4 




chax&ct or* 12 í inp » í out t í ir es t í s av , pinp * pout , piros > psav , versn 


f il 


5 




conunon / iof ild/ iodx* t iodw , ípd t ipr * ■"■P^- 


f il 


6 




r ninninri /fn-nf 1 1/ + f"i1áaffí 1 ) 
^uuuuuii. / bviui 11/ irxxxa\.uy 


f il 


7 




conunon. /vdata/ versn C3) 


f il 


8 




Hat» orí / 'riatt ' ' Ariats ' / 


f il 


g 


c . . . 


. output versión data to screen 


f il 


10 




write(* ,2000) versn 


f il 




c . . . 


. look to se© ií any problem has been run 


f il 


12 




iWjUU W \X 11D r EMU * n ATI |V¿19b XXXX/ 


f il 


13 




íiuiiiy xnen 


f il 


14 




opon \o ■ x no" rLKT • nAn t ouairUa v uiu y 


f il 


15 




rsa.d(3 1000) pinp pout pres psav » dislcmn 


f il 


16 




í inp = pinp 


f il 


17 




fout = pout 


f il 


18 






f il 


19 




fsav = psav 


f il 


20 




go to 200 


f il 


21 




else 


f il 


22 




. default inst ñilat ion paranteters 


f il 


23 






f il 


24 




diskrun = 'c' 


f il 


25 




. S©t SCX&'tch disk IlfiLiDO 


f il 


26 




writ 6 ( * 1 2007 ) d i sknm 


f il 


27 




rfl nH ( jtt 1001 "1 t cVnm 

i oau V ^ | ±\J\J 1 / ^JUIDM Lili 


f il 


28 




i. í C p d i s knin no. ' ') disknui = pdiskniD 


f il 


29 




endif 


fil 


30 


c . . . 


.ñame íile for input data 


fil 


31 


100 


«rite (*, 2000) versn 


fil 


32 




assign 1 to ix 


fil 


33 


1 


write(*,2001) pinp 


fil 


34 




read (* , 1000 ,err=900) finp 


fil 


35 




ifífinp.eq.' ') finp = pinp 


fil 


36 


c . . . 


.check if the input files exists 


fil 


37 




inquire (f ile=f inp , exist=linp) 


fil 


38 




if ( .not . linp) then 


fil 


39 




write(*,3000) 


fil 


40 




go to 1 


fil 


41 
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else 


fil 


42 




pout - finp 


fil 


43 




pres - finp 


fil 


44 




psav - finp 


fil 


45 




cali pdisk('o'.pout) 


fil 


46 




cali pdiskC'r'.pres) 


fil 


47 




cali pdisk('s',psav) 


fil 


48 




endif 


fil 


49 




pinp " finp 


fil 


50 


c. . . 


.ñame file for output data 


fil 


51 




assign 2 to ix 


fil 


52 


2 


write(*,2002) pout 


fil 


53 




read (*,1000,err»900) fout 


fil 


54 




if(fout.eq.' ') fout » pout 


fil 


55 




pout ■ fout 


fil 


56 


c. . . 


.na» file for restart read data 


fil 


57 




assign 3 to ix 


fil 


58 


3 


write(*,2003) pres 


fil 


59 




read (*.1000.err-900) fres 


fil 


60 




if(fres.eq.' ') fres - pres 


fil 


61 




pres ■ fres 


fil 


62 


c. . . 


.ñame file for restart save data 


fil 


63 




assign 4 to ix 


fil 


64 


4 


write(*,2004) psav 


fil 


65 




read (*,1000,err-900) fsav 


fil 


66 




if(fsav.eq.' ') fsav ■ psav 


fil 


67 




psav " fsav 


fil 


68 


c. . . 


.check file status and input if necessary 


fil 


69 


200 


inquire (f ile=f inp , exist=linp) 


fil 


70 




if ( .not .linp) go to 100 


fil 


71 




inquire (f ile«f out , exist-lout) 


fil 


72 




iop - 1 


fil 


73 




if (lout) iop ■ 2 


fil 


74 




inquire(f ile-fres ,exist»lres) 


fil 


75 




irs - 1 


fil 


76 




if(lres) irs - 2 


fil 


77 




inquire (f ile=fsav , exist-lsav) 


fil 


78 




isv - 1 


fil 


79 




if (lsav) isv - 2 


fil 


80 




write(*,2005) finp, wd(2) , fout ,wd(iop) , fres ,»d(irs) .fsav, ed(isv) 


fil 


81 




read(»,1001) y 


fil 


82 




if(y.ne.'Y' .and. y.ne.'y') go to 100 


fil 


83 


c. . . 


.save a copy of the current filenames 


fil 


84 




if (. not. lfil) open(3,f ile-'FEAP.HAM' , status» 'new') 


fil 


85 




rewind 3 


fil 


86 




write (3, 1000) f inp, fout .fres .fsav .disknm 


fil 


87 




cióse (3) 


fil 


88 


c. . . 


.erase the output file if it exists 


fil 


89 




ifUout) then 


fil 


90 




open(3,file=f out) 


fil 


91 




cióse (3 , status- 'delete ' ) 


fil 


92 




endif 


fil 


93 




write(*,2006) 


fil 


94 


c. . , 


.open the files for input and output 


fil 


95 




open(unit*iodr,f ile*f inp, status» ' oíd ' ) 


fil 


96 




open (unit=iodv , f ile*í out , status» ' new ' ) 


fil 


97 
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c. . . . 


.set the scratch disk ñames and locations 




fil 98 


c. . 


..set parameters for rotation dof 


peo 16 




tfile(l) - ' : FRNT . TEM ' 




fil 99 




do 4 i * 1,4 


peo 17 




tíile(2) - * :HTST.TEH' 




f Í1100 




ia(l.i) - 1 


peo 18 




tfile(3) - ' :MESH.TEM' 




f illOl 




ia(2,i) - 2 


peo 19 




tfile(4) - ' : STRE . TEM ' 




f íl 102 


4 


continué 


peo 20 




tfile(S) - fres 




f il 103 


c . . 


..set files back to default valúes 


peo 21 




tfile(6) - fsav 




fil 104 


1 


ior - iodr 


peo 22 




do 300 i - 1,4 




fil 105 




iow ■ iodw 


peo 23 




cali pdisk(disknm.tfile(i)) 




ÍÍ1106 


c . . 


. .read a card and compare f irst 4 columna with macro list 


peo 24 


300 


cont inue 




fill07 




read (ior, 1000 , err=600 , end=700) (titl(i) , i*i , 20) 


peo 25 




raturn 




ÍÍ1108 




if (pcomp(titl (1) , 'f eap ' )) go to 100 


peo 26 


c. . . 


. arror trap 




fill09 




if (pcomp(titl (1) , 1 inte ' ) ) go to 200 


peo 27 


900 


write(*,3001) 




filllO 




if (pcomp(titl(l) , 'macr')) go to 300 


peo 28 




go to iz 




fililí 




if (pcomp(titKl) , 'stop')) return 


peo 29 


c. . . 


.format statements 




fi!112 




go to 1 


peo 30 


1000 


format(4al2.al) 




ÍÍ1113 


c . . 


. .read and print control inf ormation 


peo 31 


1001 


format (al) 




ÍÍ1114 


100 


do 101 i = 1,20 


peo 32 


2000 


format (/////6x. 




filllS 


101 


neadiij ■ titlUJ 


peo 33 




l'FINITE ELEMENT AHALYSIS P R 0 G R A H'//filll6 




cali pintio(yyy , 10) 


peo 34 




2 13x , 'VERSION : ' ,3al2) 




filll7 




read(yyy, 1001 ,err=600) numnp. numel, nummat ,ndm, ndf .nen.nad 


peo 35 


2001 


format(/13x, 'I nput Filename a'// 




f Í1118 




wr it e ( iow , 2000) head , versn , numnp , numel , nummat , ndm , ndf , nen ,nad 


peo 36 




1 15x, 'Input data (default: '.al2,') :'.$) 




filll9 


c . . . 


..set pointers for allocation of data arraye 


peo 37 


2002 


format(15x, 'Output data (default: ',al2,') :',$) 




ÍÍ1120 




nenl = nen + 4 


peo 38 


2003 


format(15x.'Restart read (default: »,al2,») :'.$) 




ÍÍ1121 




nst a nen*ndf + nad 


peo 39 


2004 


format(lSx,'Restart aave (default: »,al2,') :*.$) 




ÍÍ1122 




cali psetm(nn, numnp*max(ndm,ndf ,2) ,ipd,tfl) 


peo 40 


2005 


format( /13x, 'Files are set as follows :'// 




ÍÍ1123 




cali psetm(nn, 4*nen*ndf, ipd.tfl) 


peo 41 




1 32x, 'Filename ',9x, 'Status'/ 




ÍÍ1124 




cali psetm(n0, nen*ndm, ipr.tfl) 


peo 42 




2 lSx.'Input (read) : \al2,5x.a6/ 




ÍÍ1125 




cali psetm(nl, nen, ipr.tfl) 


peo 43 




3 15x, 'Output (write) : ',al2,Sx,a6/ 




fill26 




cali psetm(n2, nst, ipi.tfl) 


peo 44 




4 15x,'Restart (read) : \al2,5x,a6/ 




ÍÍ1127 




cali psetm(n3, nst, ipd.tfl) 


peo 45 




5 lSx.'Restart (write) : • ,al2,5x,a6// 




ÍÍ1128 




cali psetn(n4, nst*nst, ipd.tfl) 


peo 46 




6 13x, 'Caution, existing write files will be overwritten. ' 


// 


ÍÍ1129 




cali psetm(n5, nuMmat*9, ipi,tfl) 


peo 47 




7 13x,'Are filenaaes correct? ( y or n) : ',$) 




fill30 




caii psetm^no, nummax^io, ipa,trij 


peo 48 


2006 


format(/12x. 'RUI1IIG PCFEAP PR0BLEM 


N 0 W')fill31 




can psoLBn,iif , nai *numnp^ ípi , vzxj 


peo 49 


2007 


format(/13x. 'I NSTALLATIOH PARAMETERS 


'// 


ÍÍ1132 




cali psetm(n8. ndffl^numnp. ipr.tfl) 


peo 50 




1 lSx.'Disk Ñame For Scratch Files:'/ 




fill33 




cali psetn(n9, nenl*nunel , ipi.tfl) 


peo 51 




2 17x,« (default - \al,9x.') :',$) 




ÍÍ1134 




cali pse t ni (n 1 0 , numnp*ndf , ipr.tfl) 


peo 52 


3000 


formatC *** ERROR - - Specified input file does not exist') 


ÍÍ1135 




ral] fltm ín 1 1 Tnimnn i t-ít- + -f 1 ^ 
uaxi |;av vwviiii .iiujiuip t ipi , v 1 1 / 


peo 53 


3001 


formatC *** ERROR on read *** reinput') 




ÍÍ1136 




cali psetm (ni la ,nen a ipr,tfl) 


peo 54 




end 




ÍÍ1137 




cali psetm (ni Ib , numnp, ipr.tfl) 


peo 55 


c 










cali psetm (ni le , numel , ipi.tfl) 


peo 56 




subroutine pcontr 




peo 1 




cali psetm (ni 2 ,ndf *numnp , ipi.tfl) 


peo 57 


c. . . 


.control program for feap 




peo 2 


c. . . 


.cali mesh input subroutine to read and print all mesh data 


peo 58 




logical prt.tfl.pcomp 




peo 3 




iii = 0 


peo 59 




intager*2 ia.m 




peo 4 




prt = . true . 


peo &C 




real*8 d 




peo 5 




rali nmnch (m fnO^ m f rl í"n 1 m (n7} WnR^ mí'nQ'í rf.m^ _r.<<\ „jj 


pe. * 1 




character*4 head,titl(20) ,versn*12,yyy*80 




peo 6 




1 ndm, nenl, iii, prt) 


peo b«. 




common /bdata/ head(20) 




peo 7 




go to 1 


peo 63 




common /cdata/ numnp, numel .nummat .nen.neq 




peo 8 


c . . . 


.set files for interactiva macro execution 


peo 64 




common /iofile/ ior, iow 




peo 9 


200 


ior * -iodr 


peo 65 




common /iofild/ iodr.iodw, ipd.ipr.ipi 




peo 10 


c . . . 


.compute profile 


peo 66 




common /mdata/ nn,n0,nl.n2,n3,n4,n5.n6,n7,n8,n9,nl0,nll,nl2,nl3 


peo 11 


300 


cali prof il(a(nl2) .m(nllc) ,m(n7) ,m(n9) ,ndf .nenl) 


peo 67 




common /mdat2/ ni la.ni lb.nllc , ia(2, 11) 




peo 12 




cali psetm(nl3,numnp*ndf , ipr.tfl) 


peo 68 




common /sdata/ ndf , ndm. nenl, nst 




peo 13 




cali psetm (nl4,3*numnp*ndf , ipd.tfl) 


peo 69 




common /vdata/ veran(3) 




peo 14 


c . . . 


.set up stress history addresses 


peo 70 




common d(l) ,r(l) ,m(l) 




peo 15 




cali sethis(m(n5) ,m(n9) ,m(nllc) ,4, nen, nenl, numel) 


peo 71 
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c mero the initial forcé and aolution vectora peo 72 

cali peonar (r(nl3). ndf ♦numnp.O.O) P« 73 

cali pconad(d(nl4).3*ndl*numnp.0.0d0) peo 74 

c macro module for eatabliahing aolution algorithn peo 75 

cali paacr(d(nn).r(n0),r(nl),«(n2).d(n3).d(n4),«(n5),d(n6),a(n7). peo 76 

1 * r (n8),m(n9).r(nl0),r(nll).n(nl2).r(nl3),d(nl4).d(l). peo 77 

2 ndf .ndm.nenl.nst.prt) peo 78 
go to 1 P co 79 

600 cali perror('PCONTR'.yyy) pco 80 

return P co 81 

700 cali pendí 'pcontr') P co 82 

retum P co 83 

c input/output formats P co 84 

1000 format(20a4) P co 85 

1001 format(8il0) P co 86 
2000 format(lx.20a4//Bx.'VERSI0H :'.3al2// pco 87 

x Sx.'Humber of nodal pointa »',i6/ pco 88 

1 Bx.'Humber of elementa «'.i6/ peo 89 

2 Bx.'Humber oí material aeta -'.i6/ P co 90 

3 Bx, 'Dimensión of coordínate space-',i6/ P co 91 

4 Bx.'Degree of freedoms/node »'.i6/ peo 92 
6 Bx. 'Hodes per element (máximum) -'.i6/ pco 93 
6 5x, 'Extra d.o.f. t o element »'.i6) peo 94 

•nd P co 95 

c 

subroutine pltstr(dt.st.numnp) P 1 * 1 

c stress projections computed by dividing by 'lumped' eeightings plt 2 

real dt(numnp) .at(numnp.l) P 1 * 3 

real*8 sig(6) .eerror, elproj .ocproj .efea.enerr.ebax plt 4 

common /errind/eerror.elproj .ecproj ,ef em.enerr.ebar plt B 



elproj - 0.0 

do 100 ii - l.numnp 

if (dt(ii).ne.O.O) then 
styld - Bt(ii,5) 
do 200 j - 1.4 

sig(j) - st(ii.j)/dt(ii) 
elproj - elproj + aig( j)*st(ii, j) 
at(ii.j) ■ sig(j) 
200 continué 

c compute the principal stress valúes 

cali pstres(sig,sig(4) ,sig(B) ,sig(6)) 
if (st(ii.B) .ne.0.0) then 

dt(ii) - st(ii,B)/dt(ii) 
else 

dt(ii) - sig(6) 
endif 

st(ii,5) * sig(4) 
st(ii,6) - sig(5) 
st(ii,7) - (sig(4)-sig(5))/2.0 
endif 
100 continué 
return 
end 

c 

subroutine prthed(iow) 
c. . . .output a header to printed outputs 



plt 6 
plt 7 
plt 8 
plt 9 
plt 10 
plt 11 
plt 12 
plt 13 
plt 14 
plt 15 
plt 16 
plt 17 
plt 18 
plt 19 
plt 20 
plt 21 
plt 22 
plt 23 
plt 24 
plt 2B 
plt 26 
plt 27 
plt 28 

prt 1 
prt 2 
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character*4 head prt 3 

common/bdata/ head(20) prt 4 

vrite(io«.2000) head prt B 

return prt 6 

2000 format(lx,20a4//lx) prt 7 

end prt 8 

(b) El archivo PCDEPT.FOR contiene el siguiente conjunto de subprogramas 
(nótese que puede ser necesario cambiar las rutinas de este archivo en función 
del sistema de ordenador utilizado): 

Nombre Tipo Descripción 

PCTIME SUBRUTINA Calcula el tiempo invertido y lo imprime 
PCOMP FUNCION Compara datos en caracteres ASCII 
PINTIO SUBRUTINA Lee los datos de entrada desde pantalla o 

archivo 

PCLEAR SUBRUTINA Rutina para borrar la pantalla en DOS 

$H0FL0ATCALLS 





IHTERFACE T0 SUBR0UTIHE TIME 


tim 


1 


c. . . 


.inter face to dos time function 


tim 


2 




CHARACTER*10 STR [HEAR , REFEREHCE] 


tim 


3 




IHTEGER«2 H [VALUE] 


tim 


4 




EHD 


tim 


B 


c 


subroutine pe time (etime) 


pet 


i 




character*10 tarry [near ,ref erence] 


pet 


2 




character*10 etime 


pet 


3 


c. . . 


.DOS time cali routine: replace by appropriate systea cali 


pet 


4 




cali time (lO.tarry) 


pet 


5 




etime = tarry 


pet 


6 




return 


pet 


7 




end 


pet 


8 


c 


logical function pcomp(a,b) 


f un 


1 


c. . . 


.determine match between alphanumeric data: inc = ascii parameter 


i un 


2 




character*l a(4),b(4) 


f un 


3 




data inc/32/ 


f un 


4 




pcomp = .falsa. 


f un 


5 




do 100 i - 1,4 


fun 


6 




ia = ichar(a(i)) 


f un 


7 




ib - ichar(b(i)) 


fun 


8 




if(ia.ne.ib .and. ia+inc.ne.ib .and. ia.ne.ib+inc ) return 


fun 


9 


100 


continué 


fun 


10 




pcomp = .true. 


fun 


11 




return 


fun 


12 




end 


fun 


13 


c 


subroutine pintio(y.nO) 


pin 


1 


c . . , 


. input control from current active unit - into a character array 


pin 


2 


c. . . 


.for free format processing by 'acheck* into field widths of 'n0' 


pin 


3 




character*80 x.y 


pin 


4 




common /iofile/ ior.ioa 


pin 


5 




if(ior.gt.O) readCior, '(a) ' ,err=100,end=100) x 


pin 


6 
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2000 



if(ior.lt.O) read(*. ' (a) ' ,err-100,end«100) x 


nin 


7 


cali acheck(x,y,n0,80) 




8 


return 




pin 


9 


cali p«] 


rror('PIllTIO'.x) 


pin 


10 


stop 




pin 


11 


•nd 




pin 


12 


subrout: 


Ln« pelear 


pcl 


1 


clear PC 


aereen and home cursor on monitor 


pcl 


2 


write(*,2000) char(27) 


pcl 


3 


return 




pcl 


4 


format(lx,al, *[2J') 


pcl 


5 


and 




pcl 


6 



(c) El archivo 
subprogramas: 



PCMESH.FOR contiene el siguiente conjunto de 



Nombre Tipo Descripción 

PMESH SUBRUTINA Programa de control de la entrada de datos 

de malla 

PMATIN SUBRUTINA Entrada de los conjuntos de propiedades 

materiales 

BLKGEN SUBRUTINA Entrada de bloques de nodos y elementos 
GENVEC SUBRUTINA Genera vectores/matrices reales nodales 
PBCIN SUBRUTINA Entrada de los códigos de vinculación 

del contorno 

PELIN SUBRUTINA Entrada de las listas de conectividades 

elementales 

POLAR SUBRUTINA Convierte las coordenadas polares en 

cartesianas 

SBLK SUBRUTINA Genera nodos y elementos para BLKGEN 

SETHIS SUBRUTINA Escribe los datos iniciales de historia en disco 

IN0FL0ATCALLS 

subroutine pmesh(idl,ie,d,id,x,ix,f ,t,ndí ,ndm,nenl,iii,prt) pme 1 

c....data input routina for nash description pme 2 

logical prt , error , pe omp pne 3 

integar*2 ia(9. 1) ,id(ndf , 1) . ix(nenl , 1) ,idl(6) ,ia pme 4 

real x(ndm, 1) ,f (ndf , 1) ,t (1) pme 5 

real*8 d(18,l).dm pme 6 

character*4 head,wd(12) ,cc,sc,y*l ,yyy*80 pme 7 

character*12 cds,tmp,fds,an pme 8 

common /bdata/ head(20) pme 9 

common /edata/ numnp, numel.nummat .nen.neq pme 10 

common /aldata/ dq,n ,ma,mct , iel ,nel pme 11 

common /iofile/ ior.iow pme 12 

common /mdat2/ nlla.nilb.nllc, ia(2, 11) pme 13 

common dm(l) ,rm(l) pme 14 
data wd/»coor\ 'elem', 'mate', 'boun' , 'f orc\ 'temp' , 'prin' , 'nopr\ pme 15 

1 'bloc 'pola ','angl'.' and '/ pme 16 

data an/' anglas '/, cds/' coordinates*/, tmp/' temperatura ' / pme 17 

data fds/' f orce/displ ' /, list/12/ pme 18 
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c . . . 


. initialize arrays 


orna 


19 




error = . ialse. 


pme 


20 




if(iii.ge.O) than 


pme 


21 




prt ■ . trua . 


pme 


22 




cali peonar (rm(nllb) , numnp, 0.0) 


pme 


23 




cali pconsrC í , numnp *ndf ,0.0) 


pme 


24 




cali pconsi(id,numnp*ndf ,0) 


pme 


25 




if (iii.eq.0) cali pconsr( t, numnp, 0.0) 


Da a 

r mm 


26 




if (iii.eq.0) cali pconsr( i ,mimnp*ndm, -999 . 0) 


pma 


27 




endií 


pme 


28 


102 


ií(ior.lt.O) write(*,2000) 


Dme 


29 




cali pintio(yyy.lO) 


pme 


30 




read(yyy, 1000,err=901,end=900) cc.se 


pme 


31 




if ((ior.lt .0) .and.pcomp(cc, 'help')) then 


pma 


32 




cali phelp(wd, list , 'MESH ',0) 


pma 


33 




go to 102 


pma 


34 




endií 


pma 


35 


20 


do 30 i * l.list 


pme 


36 


30 


if (pcomp(cc,«d(i) ) ) go to 40 


pma 


37 




go to 102 


pma 


38 


c . . . 


.nodal coordínate data input 


pme 


39 


40 


if(i.eq.l) cali genvec (ndm.x. cds, prt, error, .true. ) 


pma 


40 


c . . . 


.element data input 


pma 


41 




if(i.eq.2) cali pe 1 in ( idl, ix,nanl ,nen, numnp, numal , error, prt) 


pme 


42 


c . . . 


.material data input 


pma 


43 




if(i.eq.3) cali pmat in(d.x,ix. idl, ie, numnp, numal, nummat.ndm, ndf , 


"?■• 


44 




1 prt) 


pma 


45 


c . . . 


.raad in the restraint conditions for each noda 


pma 


46 




if(i.eq.4) cali pbcin(iii, idl, id, numnp, ndf , prt) 


pma 


47 


c . . . 


.force/displ data input 


pma 


48 




if(i.eq.5) cali genvec (ndf ,f ,f ds ,prt , error , .f alse . ) 


pma 


49 


c . . . 


. tempera-ture data input 


pme 


50 




if(i.eq.6) cali genvec (1 ,t , tmp, prt, error , .f alse . ) 


pme 


51 


c. . . 


.set print flag 


pme 


52 




if (i.aq.7 .or . i.eq.8) prt * i.eq.7 


pme 


53 


c . . . 


.genérate block of nodes and 4-node elementa 


pme 


54 




if (i.eq.9) then 


pme 


55 




if(iii.lt.O) write(iow,3000) 


pme 


56 




cali blkgen(ndm,ndf ,nan,nenl ,x, ix,prt) 


pme 


57 




endif 


pme 


58 


c . . . 


.convert polar/cylindrical to cartesian coordinates 


pme 


59 




if(i.eq.lO) cali polar (x.ndm, prt) 


pme 


60 


c . . . 


.set boundary angles 


pma 


61 




if(i.eq.ll) cali genvec(l,rm(nllb) ,an, prt, error, .f alse. ) 


pma 


62 


c . . . 


.mesh complete, return 


pma 


63 




if(i.eq.l2) then 


pma 


64 




if (error) stop 


pma 


65 




return 


pma 


66 




endif 


pma 


67 




go to 102 


pme 


68 


c . . . 


.and of file encountered 


pma 


69 


900 


cali pendCpmesh ') 








stop 






901 


cali perrorCPMESH \yyy) 








go to 102 






1000 


format(a4,6x,a4) 
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2000 f ornatO Hesh 1 > '.$) 

3000 formatC **WAR8THG** element connactions nacassary to usa » 

1 , 'block in macro program') 

4000 lormatC ** Currant Problam Valúes **'/i6,' nodes,',i5,' almts,', 

1 i3,' matls, , .i2,' dims,'.i2,» dof /noda. 1 ,i3, ' nodes/elmt») 
and 

c 

subroutine pmat in(d,x, ix , idl , ie.numnp.numel .nummat .ndm.ndí ,prt) pma i 

logical prt pma 2 

character yyy*80 pma 3 

integer*2 ix(l) ,idl(l) ,ie(9. 1) pma 4 

raal x(ndm,l) pma S 

raal*8 d(18.1) pma 6 

common /adata/ ad( 16000) pma 7 

common /eldata/ dq,n,ma,mct. iel.nel pma 8 

common /hdata/ nhl,nh2 pma 9 

common /ipfile/ ior.iow pma 10 

c ... .material data input pma 11 

if(prt) then pma 12 

cali prthed(iow) pma 13 

write(iow,2004) pma 14 

if(ior.lt.O) write(*,2004) pma 15 

endif pma 16 

do 306 n = 1, nummat pma 17 

301 if(ior.lt.O) write(*,3000) pma 18 
cali pintio(yyy.lO) pma 19 
read(yyy,1002.err=311) ma.iel , (idl(i) , i=l ,ndf) pma 20 
if(ma.le.O) return pma 21 

c....set all zero inputs pma 22 

do 302 i = l.ndf pma 23 

302 ie(i.ma) = idl(i) pma 24 
do 303 i - l.ndf pma 25 
if (idl(i) .ne.0) go to 305 pma 26 

303 continué pma 27 
do 304 i = l.ndf pma 28 

304 ie(i,ma) = i pma 29 

305 ie(7,ma) = iel pma 30 
mct = 0 pma 31 
nhl = 0 pma 32 
if(prt) then pma 33 

wite(iow,2003) ma.iel, (i,ie(i,ma) ,i=l,ndf ) pma 34 

if(ior.lt.O) write(*,2003) ma.iel, (i, ie(i.ma) ,i=l,ndf) pma 35 

endif pma 36 

cali elmlib(d(l.ma) .ad.i.ix.ad.ad, ad.ndf .ndm.ndf .iel.l) pma 37 

ifCnhl.eq.O .and, mct.ne.0) nhl = mct pma 38 

ie(8.ma) = nhl pma 39 

go to 306 pma 40 

311 cali perrorC'PMESH \yyy) pma 41 

go to 301 pma 42 

306 continué pma 43 
return pma 44 

c. . . .formats pma 45 

1002 format(8il0) pma 46 

2003 format(/5x, 'Material Set ' ,i3, > for Element Type» ,i2,5x,// pma 47 

1 lOx.'degree of freedom assignments local global' / pma 48 

2 42x, 'number\4x, 'number'/OSx^ilO)) pma 49 
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2004 formatC Material Properties') pma 50 

3000 formatC Input: matl. no., elmt type'/3x, *>• ,$) pma 51 

•nd pu 52 

c 

subroutine blkgenCndm.ndf .nel.nell.x.ix.prt) blk 1 

c .... genérate a block of nodes/elements blk 2 

logical prt blk 3 

character yyy*80 blk 4 

integer*2 ixCnell . 1) ,ixl(9) blk 5 

real x(ndm.l) ,xl(3,9) blk 6 

real*8 shp(3,9) ,dr ,ds blk 7 

common /cdata/ numnp, numel, nummat .nen.neq blk 8 

common /iofile/ ior.iow blk 9 

100 if(ior.lt.O) write(*,5000) blk 10 
cali pintio(yyy.5) blk 11 
read(yyy,1000,err=101) nn.nr ,ns .ni.ne.ma.nodinc.ntyp blk 12 
go to 102 blk 13 

101 cali perrorOBLKGEN'.yyy) blk 14 
go to 100 blk 15 

102 nodinc " max(nodinc.O) blk 16 
nr ■ max(nr.l) blk 17 
ns - max(ns.l) blk 18 
ni - max(ni.l) blk 19 
ma - max(ma.l) blk 20 
if(prt) then blk 21 

cali prthed(iow) blk 22 

write(iow,2000) nr.ns, ni.ne.ma.nodinc.ntyp blk 23 

if(ne.eq.O) write(iow,2005) blk 24 

write(iow.2002) (i.i-l.ndm) blk 25 

if(ior.lt.O) then blk 26 

■rite («,2000) nr.ns, ni.ne.ma.nodinc.ntyp blk 27 

if(ne.eq.O) write(* ,2005) blk 28 

write(*,2002) (i,i=l,ndm) blk 29 

endif blk 30 

endif blk 31 

do 10 n » 1,9 blk 32 

do 10 j = l.ndm blk 33 

xl(j.n) =0.0 blk 34 

10 ixl(n) = 0 blk 35 

nm = 0 blk 36 

do 20 n = l.nn blk 37 

200 if(ior.lt.O) write(*,5001) blk 38 
cali pintio(yyy.lO) blk 39 
read(yyy,1001,err=201) l.r.s.t blk 40 
go to 202 blk 41 

201 cali perrorOBLKGEN'.yyy) blk 42 
go to 200 blk 43 

202 if(l.eq.O) 1 = n blk 44 
nm = max(nm.l) blk 45 
ixl(l) = 1 blk 46 
xl(l.l) = r blk 47 
xl(2,l) = s blk 48 
xl(3,l) = t blk 49 

20 if(prt) write(iow,2001) 1, (xl(i.l) ,i=l,ndm) blk 50 

if (prt. and. ior.lt. 0) write(*,2001) 1, (xl(i,l) , i=l ,ndm) blk 51 

dr = 2.d0/nr blk 52 
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Am m O APl /r\m 

as ■ ¿.au/us 




blk 


53 


5001 


xormaxv. xnpux . noae, x i, x ¿, x j /Jx, ' »*) 


blkl09 




■í -f fntvn i/i O'J thAn 




blk 


54 






blkl 10 




ni s n€ + nx*ns ~ 1 




blk 


55 


c 








•lseif (ntyp.gt.7) thcn 




blk 


56 




•li^T'ftiit S n A 04kTttrji f ( t\Ajh Y cA t\t+ «rr nrf 

OUUi UUI> X11Q KBUVVI# VUUJD , X , CU , pX b , BX X s pXV¿/ 


gen 1 




ni m ns + (nr*ns) /4 ™ 1 




blk 


57 




0 An AT Jl t. A rül Hgts d >->- n v » Vi v linujfcT" ^ n t «Trini i nn 
5*«*x»»w i'ttx *xeii#«i uxbjb uj xxxxaax xu kvx^uxabxuu 


gen 2 




•Isa 




blk 


58 




logical prt , err ,prtz 


gen J 




ni k jx 6 + 2*nx*ns — i 




blk 


59 




cbaxacter cd*12 # yyy*80 


gen 4 








blk 


60 




xeax x^nua, ly ,zi^uy 


non C 

gen o 




xí (ní . g"t , nuiDO 1 . and . ne , gt . 0 ) go "to 401 




blk 


61 




common /edata/ miinnp , numo 1 , nuinniat » non , nac^ 


gen 6 








blk 


62 




common /iofile/ ior t iov 


gen 7 




ns " ns + 1 




blk 


63 




met = 0 


gen o 




xí (ndjn . 6^ . 1 ) ns m 1 




blk 


64 






gen 9 




ng ** nx^nB + ni ~~1 




blk 


65 




ng ■ 0 


gen 10 




xí (ng . gt . numnp) go to 400 




blk 


66 


102 


1 ■ n 


gen n 


c. . . 


í OX"D bloclc 




blk 


67 




lg " ng 


son 1 O 

gen i¿ 




mi 1 ihl Vfnr ttI "ÍtI Rhn t ix ór ds ni ne ndm 




blk 


68 


100 


iiViDx.ii.u; wxxl«^,9VW; cu 


san 1 3 

gen i s 




1 nul 1 TinHítií* Titvn nn iba nrt 1 




blk 


69 




cali pint io (yyy j 1 0) 


non 1 A. 

gen i* 




prxnt lists XÍ puntad 




blk 


70 




tu A H t wv 1 OOO arrs 111 n no ( ( "i 1 4s1 tiHnl 
x vau v j jf / t x vw t ex x x x y u t » vxxvxy iiujn i 


gen 15 




xí C • not • pi"t ) r©"tiii"n 




blk 


71 




go to 12 


son 1 A 

gen lo 


c. . . 


prxnt 6X6n6n't lists 




blk 


72 


1 1 


can perrorv utnvr.L >yyy/ 


gen 17 




11 * A« • V / A V b U-L 11 




blk 


73 




go to 100 


son 1 & 

gen lo 




/I f\ CAO ti b TI» T*l "f ^0 




blk 


74 


12 


ií (n • gt . numnp) vrite(iov,3001) n 9 cd 


son 1 O 

gen l» 




cali prthed(iow) 




blk 


75 




if (ior.lt. 0. and. n.gt. numnp) write (*, 3001) n.cd 


gen 20 




write (iow , 2003) (i,i=l,nel) 




blk 


76 




ií (n • le . 0 • or • n • gt . numnp) go to 109 


gen 21 




■i-ff-in-r 1* 01 ar-ita^* 20031 fi i=l nal) 




blk 


77 




uo iuj x K 1 , xiujh 


gen 22 




j = min (ni , n+49 ) 




blk 


78 


103 


xi.i,n; « xi.\i) 


gen 23 




J„ COI i s n i 




blk 


79 




11 Ug; 1U^,1U^,1U4 


gen 24 








blk 


80 


1 OA 
IV* 


lg * signt.ig,n i) 


gen 25 




¿a(-i n — i* n\ ..^taft 90041 -i aa fixCk ií k=l nal) 




blk 


81 




li ■ vaos ^n-l+lg^-l^/aDs vlg/ 


gen 26 


501 


con t inu© 




blk 


82 




uo ivo i i , non 


gen 27 


502 


cont inu6 




blk 


83 


105 


iivi/ vni,n;-m,i;;/ii 


son OQ 

gen ¿o 








blk 


84 


106 


1 ■ 1 + 1 a 

1 ■ 1 + lg 


gen 29 


400 


vrit9\ioV|AUUDj ng , nuninp 

■i f T-i ht 1+ Oí wr'i'tÉif* 90061 ncr numnD 




blk 
blk 


85 
86 




■i ^ 1 *1 <• la rtl + n 1M 

íivvn l^*lg.l0.U; go XO luz 

ií (1 • le . 0 * or . 1 . gt . numnp) go to 108 


son 

gen ou 
gen 31 








blk 


87 




do 107 i 36 1 t ndm 


gen 32 


401 


write {iow , 2007) ní,numel 




blk 


88 


107 


XU,1/ X V. X , X xg^ ~ xxiu 


gen 33 




if(ior.lt.O) write (* ,2007) nf.numel 




blk 


89 




KU xvv 


son "*4 
gen o** 








blk 


90 


108 


Bri+a^ina 30001 1 rH 




1000 


í ormat (8i5) 




blk 


91 






son *a £ 

gen jb 


1001 


f ormat ( ilO , 3f 10 .0) 




blk 


92 






gen 37 


2000 


f ormat (' Node Generations'// 




blk 


93 




¿rn + n 100 


gen 38 




19x 'number oí r-increments : ' ,i5/9i, 'number oí s-increments 


\i5/ 


blk 


94 


109 


ií(.not.prt) return 


gen 39 




29x 'íixst noda number : ' ,i5/9x, 'f irst element number 


*.i5/ 


blk 


95 




do 113 j = 1 , numnp 


son AO 

gen iu 




39x, 'element material type : * , i5/9x, 'node line increment 


\i5/ 


blk 


96 




ií (prtz) go to 111 


gen 41 




4 9x,'block type (0-9) :',i5/lx) 




blk 


97 




do 110 1 = l,ndm 


gen 42 


2001 


format(i9.1p3el2.3) 




blk 


98 




if (x(l. j) .ne.0.0) go to 111 


gen 43 


2002 


íormat(5x, 'node' ,3(i6, ' coord')) 




blk 


99 


110 


continué 


gen 44 


2003 


íormatC Element Connections'// 




blklOO 




go to 113 


gen 45 




1 • element \7x, 'matl\9(i5, ' node')) 




blklOl 


111 


met ■ met - 1 


gen 46 


2004 


íormat(llilO) 




blkl02 




if(mct.gt.O) go to 112 


gen 47 


2005 


íormatC **WARNING** No elementa are generated ') 




blkl03 




met = 50 


gen 48 


2006 


ÍormatC **ERR0R** insuíficient storage lor nodes'/ 




blkl04 




write(iow,2000) cd, (1 ,cd,l=l ,ndm) 


gen 49 




1 10x.' final node =' ,i5,5x, 'numnp =',i5) 




blkl05 




if(ior.lt.O) write{*.2000) cd. (1 ,cd,l«l,ndm) 


gen 50 


2007 


IormatC **ERR0R** insuíficient storage for elementa'/ 




blkl06 


112 


ií(x(l, j) .eq. -999.0) write(iow,2001) j 


gen 51 




1 lOx. 'final element . i5 ,5x, 'numel =',i5) 




blkl07 




if (x(l.j).ne. -999.0) write (iow. 2002) j . (x(l , j) .1-1 ,ndm) 


gen 52 


5000 


íormatC Input : nn,nr,ns,ni,ne,ma,nodinc,ntyp'/3x, '>' ,$) 




blkl08 




if(ior.lt.O) then 


gen 53 
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i! 1 1 j ) • eq. yyy . wrixev*,xuui; j 


gen 


54 




return 


pbc 


41 




ÍJfvH i 1 na -QQQ Al ■Tit.ft 1A.A11 i {<r(l -i\ til n<4ial 

ii vxv 1 1 J J • na u; wnxe v* , xuu¿; j , vx vi , j ; ,x*i ,namj 


gen 


55 


412 


cali parrorv rxn<iH 


pbc 


42 




•ndif 


gen 


ce 
DO 




go to 401 


P ° 


43 


lio 


continua 


gen 


57 


c . . . 


. f oxiats 


P C 


44 




rtturn 


gen 


58 


1000 


xoraatQBilOJ 


P C 


45 


1000 


xori&x t oiiu . 


gen 


59 


2000 


xoxnax v iioaai d . \* . / / oí, uoqí 9 o \ xo , o . t . y ^ xa/ 




46 


2000 


iozwv nona i. ( aii//oZt noa6 ,7Vxi ,aojj 


gen 


60 


2001 


ioraax uiu ,oio; 


pDC 


47 


2001 


format C ¿10 , * hfts not been input or gonerated'} 


gen 


61 


5000 


fnmi»í> Ttitmi+ ■ n r>H « inr h r rodasfi) i«l ndí 1 /3x '>' 4) 


Dbc 


48 


2002 


lOZBIb VXll/,9X10 


gen 


62 




•nd 


pbc 


49 


JUvU 


x oriftx v. **JjRaur** axxempx xo ffsiicr&bfl noao , lo, in , aixj 


gen 


63 


c 








3001 


XOXBaXV **¿1\KUK" aXXenpX XO inpUX DOSt ,19, , XeXminaxe 


gen 


64 




subxout ine pelxn vial , ix ,nenl v nen f nuoinp .nunel , exxox t prt y 


. 

peí 


1 




1 9 ' input oí nodes ín ' ,al2) 


gen 


65 




logical exxox, pxt 


Del 


2 


5000 


format( J Input ',al2,' valúes: node, inc, valué (i) ,i m l,nval'/ 


gen 


OO 




chaxactex yyy*80 


peí 


3 




1 3x, '>',$) 


gen 


fi7 
O / 




integer*2 íaiUJ , ix kneni , i ¡ 


peí 


4 




ani i 
ana 


gen 


68 




rAHMAn /inf í Tí/ i at i av 


Del 


5 


c 








c. . . 


. elenent dat a input 


peí 


5 




...... 

subroutine pbcin(iii , idl , id, numnp ,ndf , prt ) 


.V. 

pDC 


i 




1 _ A 
1 — V 


peí 


7 




logical prt 


pDC 


o 
í 




yin 11fl -i = 1 mimal C A 

ao ¿í\> i — i,nuj&ei f Du 


peí 


8 




character yyy*80 








nvprx/ can prineavioi^ 


Del 


9 




integer*.¿ ían 1; , íavnal , l ; 


pDC 






lXvpXX/ VTlvV V lOW , ZUUi J \k\. , JL | UBU^ 


peí 


10 




couon /iofile/ ior.ios 


pbc 


g 




-iff-inT- 1t 0 «rtri n-rt") Britaf * 2001) fk k=l nen) 


Del 
r* 1 


11 


c . . . 


read in the restraint conditions f or each node 


pbc 


6 




j = nin (nuinel , i+49 ) 


p«l 


12 




iii ■ 1 


pbc 


t 




do 209 n a i»j 


p«l 


13 




n ■ 0 


pDC 


o 
O 




■i-fíl-n^ 900 102 904 

11 VI ny «VU , «Vi , *v^t 


Del 


14 




ng - 0 


pbc 


9 


100 


,.i i ______ ^ )DCT TM > wvw^ 

can pexrorv r£.Liw 


pal 


15 


400 


1 ■ n 


pbc 


1 n 


200 


iff-inT lt O'i sritef* 5000) 

XX V XUX ilbiU/ WXXwOV l^VVV/ 


oel 


16 




lg - ng 


pbc 


1 1 




cali pintio(yyy ,5) 


pal 


17 


401 


if(ior.lt.O) «rite (* , 5000) 


pbc 


12 




xoaa vyyy • ívui , exx ■iwvy i,x&, vxax v*/ * * i i aoa/ , xa 


pal 


18 




cali pintio(yyy , 10) 


pDC 


i o 




xxvi'eq.i/y x nixnex^i 


Del 


19 




reaa vyyy , íuuu , err"4i¿,¿ n,ng , viai \\) , x = i , ñau 


pbc 


14 




ifflT Rfl 01 lx=l 


Del 


20 




ií (n . gt . 0 . and . n . le .numnp) then 


pDC 


lo 




■i-fM-nl 901 909 904 
xx vx n/ ¿ui , ¿u¿ ,¿y*t 


Del 


21 




flo 402 i l.nat 


pbc 


16 


201 


wr xxe vio» , i / x , xi 


Del 


22 




iavi,nj ■ íaivi; 




^7 




■i-fí-ioT- lt 01 writaí* 30011 1 n 

XX\XOX«Xv*vy WX X lio V , wWA / X , XX 


Del 

r 


23 




ií (,1 . ne . u . ana . íal V 1; . eq . u . ana . iat,i , L) . lt . v) i<H,i,n; 1 


pDC 


18 




•xxox = . txue . 


Del 


24 




c ont inue 


poc 


19 




go to 209 


peí 


25 




lg " signv.lg.n-lj 




20 


202 




peí 


26 


403 


1 ■ 1 + lg 


pbc 


21 




A a AAÍ Ir s 1 T1ATI 


Del 


27 




if vvn-lj *lg . le . 0; go to 400 


poc 


•jo 




iffiHlfkl minmn qt idl íkl lt 01 c?o to 208 

XX\ XUX \ *./ • K " • 41UAU1LJ .Ui • XUX \4\ / . J. * . V / £V uv w 


Del 
r 


28 




ao 404 i ■ 1 , ndf 


pbc 


23 




■i-ríV 11 = -ifll fVl 

xaxvt/ 


Del 


29 




iH.id(.i,l-lg; .lt.o; id(.i,i; - -i 


pDC 




203 


cont inue 


Del 

i* 


30 


404 


continué 


poc 


4ÍO 




■ÍTC'nBnl H = lk 

XX \IIBU¿ , X / XK 


peí 


31 




go to 403 


pbc 


26 




OA tA 20fi 


peí 


32 




•ndif 


pbc 


17 


204 


i Y f TI O TI 1 «1 = lY^TIATlI TI — 1 i 
lA VUOIll ,11/ XX V.119114 ,11 X/ 


peí 


33 


c . . . 


. output nodes with nonzero codes 


pbc 


28 




do 205 k = 1 nen 


peí 


34 




nvprxy xnen 




29 




ix(k n) — ix(k,n — 1) + nx 


pal 


35 




cali prxhed(iow) 


pbc 


30 




if (ix(k.n-l) .eq.0) ix(k,n) = 0 


pal 


36 




■rite(iow,2000) (i,i*l,ndf) 


pbc 


31 




if (ix(k.n) .gt. numnp. or.ix(k.n) .lt.0) go to 208 


pal 


37 




do 407 n ■ 1, numnp 


pbc 


32 


205 


continué 


pal 


38 




do 406 1 » l.ndf 


pbc 


33 


206 


if(prt .and. ior.lt. 0) then 


pal 


39 




if (id(l,n) .ne.0) then 


pbc 


34 




write( *,2002) n, ix(nenl.n) , (ix(k.n) ,k=l ,nen) 


pal 


40 




write(iow,2001) n, (id(i.n) . i=l ,ndf ) 


pbc 


35 




•ndif 


pal 


41 




go to 407 


pbc 


36 




ifCprt) write(iow,2002) n, ix(nenl ,n) , (ix(k.n) ,k=l ,nen) 


pal 


42 




endif 


pbc 


37 




go to 209 


pal 


43 


406 


continué 


pbc 


38 


208 


write(iow,3002) n 


pal 


44 


407 


continué 


pbc 


39 




error = .true. 


pal 


45 




•ndif 


pbc 


40 


209 


continué 


pal 


46 
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210 continua peí 47 

return peí 48 

c. . . .fórmate peí 49 

1001 format(16i5) peí 50 

2001 formatO E 1 e ■ e n t sV/Sx.'elmt matl'.8(i3.' node')/ peí 51 
1 (13x,8(i3.- node'))) peí 52 

2002 format(2i6,8i8/(13x.8i8)) peí 53 

3001 formatC **ERR0R** element ' , i5, » appeare after element', i5) peí 54 

3002 formatC **ERR0R** element ' ,i5, ' has illegal nodes') peí 55 
5000 formatC Input: elm, mat, ix(i) . i=l ,nen, inc'/3x, •>' ,%) peí 56 

end peí 57 

c 

subroutine polar (x,ndm,prt) pol 1 

c . . . . convert polar to cartesian coordinates pol 2 

logical prt pol 3 

real*8 th pol 4 

real x(ndm,l) pol 5 

character yyy*80 pol 6 

common /cdata/ numnp.numel .nummat ,nen,neq pol 7 

common /iofile/ ior.iow pol 8 

if(ndm.eq.l) return pol 9 

mct - 0 pol 10 

th « atan(1.0d0)/45.0 pol 11 

100 if(ior.lt.O) write(*.5000) pol 12 
cali pintio(yyy.lO) pol 13 
read(yyy, 1000,err=101) ni.no ,inc,x0,y0 pol 14 
go to 102 pol 15 

101 cali perrorC POLAR ' ,yyy) pol 16 
go to 100 pol 17 

102 if(ni.le.O) return pol 18 
if (ni.gt.numnp.or.ne.gt.numnp) go to 300 pol 19 
inc = sign(max(abs(inc) , 1) ,ne-ni) pol 20 
if (ne.eq.0) ne = ni pol 21 
n - ni pol 22 

200 r - x(l,n) pol 23 

x(l,n) - xO + r*cos(x(2.n)*th) pol 24 

x(2,n) - yO + r*sin(x(2,n) *th) pol 25 

if(mct.gt.O) go to 250 pol 26 

if(prt) cali prthed(iow) pol 27 

if(prt) write(iow,2000) xO.yO, (i,i=l ,ndm) pol 28 

if (ior.lt. 0. and. prt) write(* ,2000) xO.yO, (i,i=l,ndm) pol 29 

mct * 50 pol 30 

250 if(prt) write( ion, 2001) n, (x(i,n) ,i=l,ndm) pol 31 

if (ior.lt .0. and. prt) write(* ,2001) n, (x(i,n) ,i=l ,ndm) pol 32 

mct - mct - 1 pol 33 

n ■ n + inc pol 34 

if ((ne-n)*inc.ge.O) go to 200 pol 35 

if (mod(ne-ni.inc) .eq.0) go to 100 pol 36 

ni " ne pol 37 

n ■ ne pol 38 

go to 200 pol 39 

c . . . . error pol 40 

300 write(iow,3000) ni.ne pol 41 

if(ior.lt.O) write(*,3000) ni.ne pol 42 

stop pol 43 

c....formats pol 44 
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1000 
2000 

2001 
3000 
5000 



format(3il0.2fl0.0) 
formatC Polar t o 
1 8x, 'Center:x0 - \el2.4,' yO 
format(il0»6fl3.4) 



100 
200 



pol 45 

Cartesian Coords.'/ pol 46 
• » ,el2.4/6x, 'node' ,6 (i7, ' -coord' ) ) pol 47 

pol 48 



formatC **ERR0R** attempt to convert nodes ni- \i6,' - ne- ».i6)pol 49 
formatC Input :=1 -node , 2-node, inc, xl(cent), x2(cent) */3x, '>' ,$)pol 50 



end 


pol 51 


subrout ine sblk (nr ,ns , xl , ixl , shp , x , ix , dr , ds , ni , ne ,ndm , nel 1 , 


sbl 


1 


t nodinc,ntyp,nm,ma,prt) 


sbl 


2 


logical prt.ityp 


sbl 


3 


real xl(3, 1) ,x(ndm,l) 


sbl 


4 


real*8 shp(3 , 1) ,r , s.dr ,ds ,xs j 


sbl 


5 


integer*2 ixl(l) .ix(nell.l) 


sbl 


6 


common /cdata/ numnp.numel .nummat ,nen,neq 


sbl 


7 


common /iofile/ ior.iow 


sbl 


8 


n ■ ni 


sbl 


9 


mct ■ 0 


sbl 


10 


s = -1.0 


sbl 


11 


do 200 j = l.ns 


sbl 


12 


r = -1.0 


sbl 


13 


do 100 i * l,nr 


sbl 


14 


cali shape(r,s,xl,shp,xsj ,3,nm,ixl, .true.) 


sbl 


15 


do 55 1 = l.ndm 


sbl 


16 


x(l.n) - 0.0 


sbl 


17 


do 50 k « 1,9 


sbl 


18 


m = ixl(k) 


sbl 


19 


íf(m.gt.O) x(l,n) ■ xd.nj + snpv3,m;*xiu,m; 


sbl 


20 


cont inue 


sbl 


21 


continué 


sbl 


22 


if(prt) then 


sbl 


23 


mct = mct + 1 


sbl 


24 


IT vmOQ VUCl , DUJ . eq . 1 J wxien 


sbl 


25 


cali prthed(iow) 


sbl 


26 


writetxow,2000; (,x,k-l ,nam; 


sbl 


27 


ifCior.lt. 0) writeí.*,¿ouu; t,x,x-i,nam; 


sbl 


28 


endif 


sbl 


29 




sbl 


30 


•¡•ff-i/vr h C\\ w-r-iteC* 2001} n (xík ti) k=l . ndm) 


sbl 


31 




sbl 


32 


n = n + 1 


sbl 


33 


r = r + dr 


sbl 


34 


n = n + nodinc 


sbl 


35 


s ■ s + ds 


sbl 


36 


if(ne.le.O) return 


sbl 


37 


me = ne - 1 


sbl 


38 


n ■ ni 


sbl 


39 


inc = 1 


sbl 


40 


if (ntyp.ge.8) inc ■ 2 


sbl 


41 


do 400 j - l,ns-l,inc 


sbl 


42 


do 300 i = l,nr-l,inc 


sbl 


43 


n = n + 1 


sbl 


44 


me = me + 1 


sbl 


45 


ix(nell,me) = ma 


sbl 


46 


if (ntyp.eq.0) then 


sbl 


47 


ix(l,me) = n - 1 


sbl 


48 
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ix(2.me) - n sbl 49 

if(nda.ne.l) than sbl 50 

ix(3,me) ■ n + nr + nodinc sbl 51 

ix(4,me) - n + nr - 1 + nodinc sbl 52 

endif sbl 53 

elseif (ntyp.ge.8) then sbl 54 

ix(l,me) - n-1 sbl 55 

ix(S.me) - n sbl 56 

ix(2,me) - n+1 sbl 57 

ix(8,me) ■ nr+nodinc + n-1 sbl 58 

if (ntyp.gt.8) ix(9,me) - nr+nodinc + n sbl 59 

ix(6,me) ■ nr+nodinc + n+1 sbl 60 

ix(4,me) - 2* (nr+nodinc) + n-1 sbl 61 

ix(7,me) ■ 2* (nr+nodinc) + n sbl 62 

ix(3,me) - 2*(nr+nodinc) + n+1 sbl 63 

n - n+1 »bl 64 

endif S bl 65 

300 continua sbl 66 

400 n - n + (inc-1) * nr + nodinc + 1 sbl 67 

rotura sbl 68 

2000 foraatC Modal Coordinata s '//6x, >node\ sbl 69 
1 3(i7.' coord')) sbl 70 

2001 format(il0.3fl3.4) sbl 71 
•nd sbl 72 

c 

subroutina sethis(ie,ix.idl,ipd.nen,nenl,numel) sat 1 

c....sat up history addresses in ix array sat 2 

lógica! hfl.hout sat 3 

charactar*12 tfile sat 4 

intager*2 ie (9 , 1) , ix(nenl . 1) ,idl(l) sat 5 

double precisión dm sat 6 

common /hdatb/ nhi.nhf .ihbuff .irac, jrec.nrec.hfl ,hout sat 7 

common /psiza/ maxm.ne sat 8 

common /tamfll/ tfile(6) sat 9 

common /temfl2/ itrec(4) ,nwi ,nw2 sat 10 

common dm(l) sat 11 

nhO - (na+ipd-l)/ipd sat 12 

nhi = nhO sat 13 

ihbuff - 8001 - nhO sat 14 

hfl - . true . sat 15 

hout = .falsa. sat 16 

irac - 0 sat 17 

nroc - 1 sat 18 

c. .. .determine buffar siza neaded for history tarms sat 19 

ihmin = 0 sat 20 

ihdm - 0 sat 21 

do 50 nu - l.numel sat 22 

n - idl(nu) sat 23 

ihmin - ihmin + ie(8,ix(nanl,n)) sat 24 

ihdm - max(ihdm,ie(8,ix(nanl,n))) sat 25 

50 continua sat 26 

c . . . . sat the buffar length and record length to minimum possible sat 27 

ihbuff ■ min( ihbuff .ihmin) sat 28 

nhf - nhi + ihbuff - 1 sat 29 

ihbuff « ihbuff *8 sat 30 

c....set history área sat 31 
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do 100 nu = l.numel sat 32 

n = idl(nu) set 33 

nhinc = ie(8 . ixínenl ,n) ) sat 34 

if(hfl .and. nhinc. ne.0) then set 35 

itrec(2) = ihbuff sat 36 

open(3,f ile=tfile(2) ,access='direct' , status='new' . set 37 

1 f orm='unformatted' ,recl=itrec(2)) set 38 

close(3) set 39 

hfl = .false. set 40 

cali pconsd(dm(nhi),ihbuff/8,0.0d0) set 41 

endif set 42 

if(nh0+nhinc .gt. 8000) then set 43 

cali phstio(3,nrec,dm(nhi) ,8000-nhi+l,2,tf ile(2) ,itrec(2)) set 44 

nrec = nrec + 1 set 45 

nhO = nhi set 46 

endif set 47 

ix(nen+l,n) = nhO sat 48 

ix(nen+2,n) = nrec set 49 

100 nhO = nhO + nhinc set 50 

c....check for errors and finish initialization set 51 

if (nrec.gt.numel) then set 52 

write(*,2000) set 53 

cali pdefil(tfile,2.2) set 54 

stop sat 55 

elseif (nh0.gt.nhi) then set 56 

cali phstio(3,nrec,dm(nhi) ,nhf-nhi+l ,2 ,tf ile(2) ,itrec(2)) set 57 

else set 58 

nrec = nrec - 1 set 59 

endif set 60 

ne = (nhf+l)*ipd + 1 set 61 

close(3) set 62 

return set 63 

2000 formatC ** ERROR ** insufficient storage for history terms') set 64 

end , set 65 
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15.8.3 Módulos de solución y salida de los macro comandos. La solución y la 
salida para cada problema está controlada por los subprogramas contenidos 
en los archivos PCMAC1.F0R, PCMAC2.F0R y PCMAC3.F0R. 
(a) El archivo PCMAC1.FOR contiene el siguiente conjunto de 



Descripción 

Controla la secuencia de macro solución 

Hacer cero los parámetros de los macros 

Entrada y compilación de los 

macro comandos 

Controla la ejecución de los 

macro comandos de EF 

Controla otros macro comandos 

Prepara la llamada a los cálculos 

de vectores de EF 

Entrada y salida de datos a disco 



subprogramas: 


Nombre 


Tipo 


PMACR 


SUBRUTINA 


PINITC 


SUBRUTINA 


PMACIO 


SUBRUTINA 


PMACR1 


SUBRUTINA 


PMACR2 


SUBRUTINA 


FORMFE 


SUBRUTINA 


PHSTIO 


SUBRUTINA 


INOFLOATCALLS 
c 





subroutine paacr (ul,xl,tl.ld.p,s.ie,d,id,x,ix.f ,t, jd.fO.b, 
1 dr.ndf .ndm.nenl.nst.prt) 

c macro instruction subprograms 

logical fl.prt.hfl.hout 

integar*2 IdU) .ia(l) ,id(l) ,ix(l) , jd(l) . jct.lvs.lve.im 
real ct (3 . 100) ,xl(l) ,tl(l) ,x(l) ,í (1) ,f0(l) ,t(l) 
raal*8 d(l) ,ul(l) ,p(l) ,s(l) ,b(l) ,dr(l) .dm.aengy.rnmax.prop 
charactar*4 wd(20) ,lct,tary*10.tf ile*12 
couon dm(l).rm(i),im(l) 

common /cdata/ numnp,numel,nummat,nen,neq 
coBunon /fdata/ fl(ll) 

common /hdatb/ nhi.nhf .ihbuf f ,irec, jrec.nrec.hf l.hout 
common /iofile/ ior.iow 

common /ldata/ l.lv,lvs(9) ,lve(9) . jct(100) 

common /ldatb/ lct(100) 

common /ndata/ nv.nw 

common /rdata/ aengy ,ramax,tol,shift 

common /tdata/ ttim.dt ,cl ,c2 ,c3.c4,c5,c6 

common /temíll/ tfile(6) 

common /temí 12/ itrec(4) ,nwl,nw2 

common /prlod/ prop.a(6.10) ,iarp(10) ,ik(10) ,npld 

data wd/ • stre ' , 'tang • , 'f ora' , 'mass ' , 'reac ' , » chec • , 

1 'disp'.'solT'.'mesh'.'rest'. 

2 'tol ','dt '.'loop'.'next'.'prop', 'data', 'time', 
2 'beta'.'newf \ 'plot'/ 

c nmi - no. macro commands in 'pmacri'; nlp - loop number 

data nml.nm2/10,9/ 

nlp " nml + 3 
c....set initial valúes oí paraaeters 

c al 1 pinit c ( aangy , rnmax , ahif t . t ol , dt »prop , tt im ,npld) 

nwl - nml 

nw2 * nm2 + nwl 



pma 



1 
2 
3 
4 

pma 5 
pma 6 
pma 7 
pma 8 
pma 9 
pma 10 
pma 11 
pma 12 
pma 13 
pma 14 
pma 15 
pma 16 
pma 17 
pma 18 
pma 19 
pma 20 
pma 21 
pma 22 
pma 23 
pma 24 
pma 25 
pma 26 
pma 27 
pma 28 
pma 29 
pma 30 
pma 31 
pma 32 
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nneq - ndf *numnp pma 33 

c. . . . input tha macro commands pma 34 

100 cali pmacio ( jet ,lct ,ct ,wd,nw2+l,nlp,ll) pma 35 

if(ll.le.O) go to 300 pma 36 

c. . . . execute macro,. instruction progran pma 37 

lv - 0 pma 38 

1-1 pma 39 

200 j - jct(l) pma 40 

i - 1 - 1 pma 41 

cali petima (tary) pma 42 

if (l.ne.l .and.l.ne.ll) than pma 43 

»x¿t*Ciow*20?l) i.sd(j),lct(l).(ct(k,l),k«1.3),tary pma 44 
if(ior.lt.O) write(*,2001) i,wd(j) ,lct(l) , (ct(k,l) ,k«l,3) .tary pma 45 

endif pma 46 

ií(j.le.nwl) cali pmacri (id, ie , ií ,ld,d,s ,p,x ,f ,f 0 ,t , jd,b ,dr, pma 47 

1 let, ct, ndf ,ndm,nanl,nst, nneq, prt.j) pma 48 

ií(j .ge.nsl+l.and. j.le.nw2) pma 49 

1 cali pmacr2(id,ix,f ,fO,b,dr,lct,ct,ndi,nneq. j-nwl) pma 50 

c....plot macro cali pma 51 

ií (j .eq.na2+l) than pma 52 

cali pplotf (x,ix,b,lct(l) , ct (1,1) , ndf ,ndm,n«nl , nneq) pma 53 

andif pma 54 

1-1+1 pma 55 

ií (1.1a. 11) go to 200 pma 56 

ií (ior.lt.0) go to 100 pma 57 

300 cali pctime(tary) pma 58 

write(ioa,2000) tary pma 59 

if( ior.lt.0) write(*,2000) tary pma 60 

ií (.not.fl(4)) close(4,status='delete') pma 61 

c....save restart information pma 62 

ií (ll.lt. -l.or.f 1(7)) cióse (3. status=' delate') pma 63 

if (ll.lt. -l.or.í 1(7)) return pma 64 

open (7,f ile=tfile(6) ,form='unf ormattad' .status* 'nea' ) pma 65 

rewind 7 pma 66 

write(7) numnp.numel .nummat.ndm, ndf .nhi.nhf ,nrec pma 67 

write(7) ttim, (b(i).i=l,3*nneq) pma 68 

if(fl(9)) write(7) (dm(i) , i=nv ,nv+2*neq) pma 69 

ií (nrec.gt .0) than pma 70 

do 400 j = l.nrec pma 71 

cali phstio(3, j,dm(nhi) .nhf-nhi+1, l.tf ile(2) ,itrec(2)) pma 72 

cali phstio(7, j.dm(nhi), nhf-nhi+1, 22, tfile(6) ,0) pma 73 

400 continua pma 74 

cali pdefil(tfile,2.2) pma 75 

andií pma 76 

cióse (7) pma 77 

return pma 78 

c. . . .formats pma 79 

2000 formatC *End of macro execution* '/40x, *time=' ,al0) pma 80 

2001 formatC *Macro \i3,' *',2(a4.1x). pma 81 
1 'vl=* ,gl0.3, ' T2=',gl0.3,' T3=',gl0.3/40x,'time-',al0) pma 82 

and pma 83 

c 

subroutine pinitc(engy .rnmx.shift , tol, dt.prop, ttim, npld) pin 1 

logical f 1 pin 2 

real*8 engy .rnmx.prop pin 3 

common /ídata/ fl(ll) pin 4 
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data zero , one .tolc/0 .0 . 1 . 0 , 1 . e-12/ 
c set initial valúes of parameters 

npld - 0 

engy " zero 

rnmx - zero 

shift - zero 

tol = tole 

dt - zero 

prop = one 

ttim * zero 

do 50 i - 1,7 

fl(i+4) - .false. 
50 fl(i) - .true. 

return 

end 

c 

subroutine pmacio (jet, let, ct, wd.nwd.nlp.il) 
c....macro instruction input subprogram 
logical pcomp 
integer*2 jct(l),js 
real ct(3.1) 

character *4 wd (nwd) . let ( 1 ) , clabl . clab2 , 1 j s , tary * 10 ,yyy*80 

common /ioíile/ ior.iow 
c. . . .initiate the read of nacro statements 

ií(ior.gt.O) cali prthed(iow) 

if(ior.gt.O) write(iow,2001) 
c. . . .read macro cards 

11 = 1 

jct(l) = nlp 
ct(l.l) = 1.0 
100 ií(ior.lt.O) then 

cali pctime(tary) 

write(*,2002) tary, 11 
endif 

11-11+1 

cali pintio(yyy,15) 

read (yyy . 1000 , err=401) clabl , clab2 , (ct (i . 11) , i=l . 3) 
if (ior.lt. 0. and. pcomp(clabl, 'help')) then 

cali phelp(wd,nwd, 'MACRO ' , 1) 

11-11-1 

go to 100 
endif 

if (ior.gt .0. and. pcomp (clabl, 'end ')) go to 150 
if(ior.lt.O) then 

if (pcomp (clabl, 'exit')) 11 = -1 

if (pcomp (clabl, 'q *) .or. pcomp (clabl. 'quit')) 11 = -2 
if(ll.lt.O) return 
endif 

c....set execution flag 

lct(ll) - clab2 

do 110 j = i, nwd 
110 if (pcomp(clabl,wd(j))) go to 130 

cali perror( 'PMACIO', yyy) 

11 = 11 - 1 

go to 100 
130 jet (11) = j 



pin 


5 


pin 


6 


pin 


7 


pin 


8 


pin 


9 


pin 


10 


pin 


11 


pin 


12 


pin 


13 


pin 


14 


pin 15 


pin 16 


pin 17 


pin 


18 


pin 


19 


pma 


1 


pma 


2 


pma 


3 


pma 


4 


pma 


5 


pma 


6 


pma 


7 


pma 


8 


pma 


9 


pma 


10 


pma 


11 


pma 


12 


pma 


13 


pma 


14 


pma 


15 


pma 


16 


pma 


17 


pma 


18 


pma 


19 


pma 


20 


pma 


21 


pma 


22 


pma 


23 


pma 


24 


pma 


25 


pma 


26 


pma 


27 


pma 


28 


pma 


29 


pma 


30 


pma 


31 


pma 


32 


pma 


33 


pma 


34 


pma 


35 


pma 


36 


pma 


37 


pma 


38 


pma 


39 


pma 


40 
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11-11+1 P»a 41 

150 jet (11)- nlp+1 P»* 42 

c. . . .set loop markers P« 43 

j = o P D * 44 

do 200 1 - 2,11-1 P"& 45 

if(jctU).eq.nlp) j - j + 1 pma 46 

if(j.gt.8) go to 400 P«» 47 

if (jet (l).eq. nlp+1) j - j - 1 pma 48 

if(j.lt.O) go to 400 P»* 49 

200 continué P»» 50 

if (j .ne.O.and.ior.gt.0) go to 400 p»a 51 

if (j.ne.0. and. ior.lt. 0) 11 = 11 - 1 P»« 52 

if(j.ne.O) go to 100 P»a 53 

do 230 1 = 1.11-1 P« 54 

if(jct(l).ne.nlp) go to 230 pma 55 

j m i pma 56 

do 210 i - 1+1,11 P«a 67 

if (jct(i) .eq.nlp) j = j + 1 pma 58 

if (jct(i) .eq.nlp+1) j = j - 1 pma 59 

Íf(j.eq.O) go to 220 P»a 60 

210 continué P»a 61 

go to 400 P»a 62 

220 ct(2,i) - 1 P" 63 

ct(2,l) = i P« 64 

230 continué P ma 65 

return P B * 66 

c... error messages P»» 67 

400 «rite (iow. 4000) P" 68 
if(ior.gt.O) stop P»» 69 
if(ior.lt. 0) write(*,4000) P»a 70 
go to 100 P»« 71 

401 cali perrorC PMACIO '.yyy) pma 72 
go to 100 P« 73 

1000 format(2(a4,lli),3fl5.0) pma 74 

2000 format(7i,a4,li.a4.1x,3gl2.5) P»a 75 

2001 formatC Macro Instructions'//2x, pma 76 
1 'macro statement ' ,2x, 'variable 1 ' ,2x, 'variable 2 ' ,2x, 'variable 3')pma 77 

2002 formatC Input a macro instruction, enter "exit" for restarts', pma 78 
1 *, "quit" to quit. '/3x, 'Time = '.alO.' Macro', i3,'> ' ,$) pma 79 

4000 formatC error in pmacio ** wrong loop/next order, or > 8 loops') pma 80 

end P»a 81 

c 

subroutine pmacrl(id,ie,ix,ld,d.s,p,x,f ,f0,t, jd.b.dr, pma 1 

1 let.ct.ndf ,ndm,nenl,nst,nneq,prt, j) pma 2 

c.... macro instruction subprograms P*a 3 

logical fa.tr.fl. pcomp, prt.sflg.tflg.hfl.hout pma 4 

character let (l)*4,tf ile*12,tt*10,yyy*80 pma 5 

integer*2 id(l) ,ie(l) , ix(nenl, 1) . jd(l) ,ld(l) ,lvs ,lve, jet , pma 6 

1 ia.im P»a 7 

real ct (3, 1) ,x(l) ,t (1) ,f 0(1) ,t (1) pma 8 

real*8 b(l),d(l),dr(l),s(l).p(l).dm.aa,aengy.rnorm, pma 9 

1 rnmax,dot,prop,eerror,elproj .ecproj ,ef em.enerr.ebar pma 10 

common /adata/ aa(l) ,ap(15998) pma 11 

common /edata/ numnp.numel.nummat .nen.neq pma 12 

common /errind/ eerror.elproj.ecproj ,efem,enerr,ebar pma 13 

common /fdata/ fl(ll) P»a 14 
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coaaon /frdata/ aaxf pma 15 

coaaon /hdatb/ nhi.nhf ,ihbuff , irec, jrac.nrec.hfl.hout paa 16 

coaaon /iofile/ ior.iow p B a 17 

coaaon /iofild/ iodr , iodw , ipd, ipr , ipi pma 18 

coaaon /ldata/ 1.1v.1ys(9) ,lye(9) , jct(lOO) paa 19 

coaaon /adat2/ nlla.nl lb,nllc,ia(2, 11) paa 20 

coaaon /ndata/ nv.na paa 21 

coaaon /prlod/ prop,a(6,10) ,iexp(10) ,ik(10) ,npld paa 22 

coaaon /rdata/ aengy, rnBax, tol.shif t paa 23 

coaaon /tdata/ ttia.dt ,ci ,c2.c3,c4,c5.c6 pma 24 

coaaon /taafll/ tilla (6) pma 25 

common /tamfl2/ itrec(4) .nal ,n«2 pma 26 

coaaon da(l) ,ra(l) ,ia(l) pma 27 

data raro, one/0. 0,1.0/, fa.tr/. falsa. . .trua./ pma 28 

c. .. .transí er to correct procasa pma 29 

ni - 1 pma 30 

n3 - 1 i pma 31 

go to (1.2,3,4,5.6,5,2,9,10). j pma 32 

c print stress valúas paa 33 

1 ni - ct(l.l) pma 34 

n2 - ct(2.1) pma 35 

n3 » ct(3.1) pma 36 

n3 - max(n3,l) pma 37 

n4 - numnp - 1 pma 38 

ií (pcomp(lct(l).'noda')) than paa 39 

ni - maxd.ain (numnp, ni)) pma 40 

n2 * aaz(nl,BÍn(nuanp,n2)) paa 41 

enerr ■ 0.0 pma 42 

ií(.not.fl(ll)) then pma 43 

cali peonar (aa,8*nuanp, 0.0) pma 44 

cali forBíe(b,dr,fa,fa,fa,fa,8,l,nunel,l) pma 45 

cali pltstr(aa,ap(n4) , numnp) pma 46 

•ndif pma 47 

cali prtstr(aa.ap(n4) .numnp. ni, n2,n3) pma 48 

fl(ll) - tr pma 49 

•lseif (pcoapdct(l) , 'erro')) than pma 50 

ni - max(nl.l) pma 51 

n2 ■ 8*nuanp pma 52 

cali pconsr(ap(n2-l) ,n2,0.0) pma 53 

anarr ■ 0.0 pma 54 

do 110 i - 1, ni pma 55 

cali pconsr(aa,n2,0.0) pma 56 

cali fornfe(b,dr,fa,fa,fa,fa,8,l,numel,l) pma 57 

cali pltstr(aa,ap(n4) .numnp) pma 58 

cali addvec(ap(n2-l) ,ap(n4) ,n2-numnp) pma 59 

110 continua pma 60 

fl(ll) - tr pma 61 

earror -0.0 pma 62 

eproj - 0.0 pma 63 

efea - 0.0 pma 64 

•bar - 0.05*sqrt(enerr/numal) pma 65 

ietyp - 1 pma 66 

cali formie(b,dr,ía.fa,ía,xa,7,l,numel,l) pma 67 

cali prtarr pma 68 

else pma 69 

if (pcompdct(l). 'all •)) then pma 70 
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n2 * numel pma 71 

elsa paa 72 

ni - nax(l,ain(nunel,nl)) paa 73 

n2 - aaz(nl ,ain(nuael,n2)) paa 74 

endif paa 75 

cali forBfe(b,dr.fa.fa,fa,fa,4,nl.n2,n3) paa 76 

endif paa 77 

return pB a 78 

c fora tangent stifíness paa 79 

2 shft * el paa 80 

sílg - íl(9) paa 81 

if(j.eq.2) then paa 82 

if (ct(l.l) .ne.zero) then paa 83 

fl(8) = tr paa 84 

fl(7) - fa paa 85 

cali ploadíid.f ,f 0, dr ,nneq.prop,da(nl) ,dB(nw) ) paa 86 

endif paa 87 

shift= 0. paa 88 

tflg - tr paa 89 

if(.not.fl(9) .and. ct(2,l) .ne.zero) then paa 90 

if(fl(2)) then paa 91 

sflg * tr paa 92 

shift= ct(2,l) paa 93 

shft = -shift paa 94 

if(ior.lt.O) write(*,2006) shift paa 95 

«rite (iov, 2006) shift paa 96 

else paa 97 

if(ior.lt.O) write(*.2007) paa 98 

write(iow,2007) paa 99 

if(ior.gt.O) stop paalOO 

return pmalOl 

endif paal02 

endif paal03 

else paal04 

if (.not.fl(8)) return ' pmal05 

fl(7) = .falsa. pBal06 

tflg = .false. paal07 

endif paal08 
c....call the solve routine to assemble and solve the tangent aatrix paal09 

na = aaxf + 1 paallO 

nal= (aaxf *(maxf+i))/2 + na paalll 
cali psolve(b.aa(na),aa,dr,aa(nal).da(nl),s.ld.jd,in(nllc),nst.l, paall2 

1 tflg.f 1(8) .sflg, shft, 4, mora, aengy.l) paall3 

cali pctiae(tt) paall4 

if(fl(8)) then paall5 

fl(8) = fa pmall6 

write(iow,2001) rnorm.tt pmall7 

if(ior.lt.O) srite(*,2001) rnorm.tt pmall8 

if (rnmax.eq.O.OdO) rnmax - abs(aengy) pmall9 

write(iow,2004) rnmax, aengy.tol pmal20 

if(ior.lt.O) write(*,2004) rnmax, aengy.tol pmal21 

if (abs(aengy) . le.tol*rnmax) then pmal22 

ct(l,lve(lv)) = ct(l.lvsdv)) pmal23 

1 = lTe(lv) - 1 pmal24 

endif pmal25 



cali update (id, fO.f.b.dm(nv) .dm(nw) .dr.nneq.neq.f 1(9) ,prop,2) paal26 



544 



El Método de los Elementos Finitos 



else pmal27 

write(iow,2002) tt pmaí28 

ifCior.lt. 0) write(*,2002) tt pmal29 

•ndif pmal30 

retiren pmai31 

c ion out of balance forcé for time step/iteration pmal32 

3 if(fl(8)) return pmal33 
cali pload(id,f ,f 0 ,dr,nneq,prop,dm(nl) ,dm(nv)) pmal34 
cali f ormf e(b,dr,f a.tr.f a, fa, 6,1, numel, 1) pmal35 
rnorm = sqrt(dot(dr,dr,neq)) pmal36 
■rite (iow, 2003) rnorm pmal37 
if(ior.lt.O) write(*,2003) rnorm pmal38 
fl(8) = tr pmal39 
return pmal40 

c. . . .form a lumped mass approximation pmal41 

4 if (fl(5)) cali psetm(nl,neq.ipd,fl(5)) pmal42 
cali pconsd(dm(nl) ,neq,0.0d0) pmal43 
fl(2) = tr pmal44 
cali f ormf e(b,dm(nl) ,f a.tr.f a,f a, 5, 1 .numel, 1) pmal45 
return pmal46 

c .... compute reactions and print pmal47 

5 if (pcompdct(l) , 'all *)) then pmal48 

n2 = numnp pmal49 

else pmal50 

ni = ct(l.l) pmal51 

n2 « ct(2,l) pmal52 

n3 = ct(3,l) pmal53 

ni = max(l ,min (numnp, ni) ) pmal54 

n2 = max(nl ,min(numnp,n2) ) pmal55 

n3 = maz(l,n3) pmal56 

endif pmal57 

if(j.eq.5) then pmal58 

cali pconsd(dr,nneq,0 .OdO) pmal59 

cali f ormf e(b,dr ,f a.tr, fa.tr, 6,1, numel, 1) pmal60 

cali prtrea(dr ,ndf .numnp, ni ,n2,n3) pmal61 

else pmal62 

cali prtdis (x .b.ttijn.prop.ndm.ndf ,nl,n2,n3) pmal63 

endif piñal 64 

return pmal65 

c. . . . check mesh for input errors pmal66 

6 cali f ormf e(b,dr,f a,f a , f a,f a,2 , 1 .numel , 1) pmal67 
return pma!68 

c....modify mesh data (cannot change profile of stif f ness/mass) pmal69 

9 i = -1 pmal70 
cali pmeshCld , ie , d, id.x.ix.f ,t ,ndf .ndm.nenl , i.prt) pmal71 
if (i.gt.O) go to 400 pmal72 
return pmal73 

c. . . .restart previously run problem pma!74 

10 open (7,f ile=tf ile(5) ,f orm='unf ormatted* ,status='old') pmal75 
read(7) nnpo.nnlo.nnmo.ndmo.ndf o.nhio.nhf o.nrco pmal76 
if ( (nnpo. eq. numnp) .and. (nnlo . eq .numel) .and. (nnmo . eq .nummat) pmal77 

1 .and. (ndmo.eq.ndm) .and. (ndfo.eq.ndf ) .and. (nrco . eq.nrec) pmal78 

2 .and. (nhf o-nhio . eq.nhf-nhi) ) then pmal79 

read(7) ttim, (b(i) , i=l ,3*nneq) pmal80 

if(fl(9)) read(7) (dm(i) . i=nv.nv+2*neq) pmal81 

if (nrec.gt .0) then pmal82 
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do 101 j = l.nrec pmal83 

cali phstio(7,j.d»(nhi).nhf-nhi+l.il.tfile(5),0) pmal84 

cali phstio(3,j.dm(nhi).nhf-nhi+l,2.tfile(2),itrec(2)) pmal85 

101 continué pmal86 

endif P» a187 

close(7) pmalSS 

else pmal89 

if(ior.gt.O) write(iow,3001) pmal90 

if(ior.lt.O) srite( *,3001) pmal91 

endif P» a192 

return pmal93 

c. .. .error diagnostics pmal94 

400 write(iow,4000) pmal95 

if ( ior . gt . 0) stop pmal96 

ifiior.lt. 0) write( *,4000) pmal97 

return pmal98 

c....formats pmal99 

2001 formatC residual norm = » ,el5.7,6x, 'time=' ,al0) pma200 

2002 format(40x.'tijne=' ,al0) pma201 

2003 formatC residual norm =' .elS . 7) pma202 

2004 formatC energy convergence test '/ ' máximum ='.e24.15/ pma203 
1 ' current =',e24.15/' tolerance =' ,e24 . 15) pma204 

2006 formatC shif t of ' ,el2. 5, ' applied sith mass 1 ) pma205 

2007 formatC shift requested but no mass matrix exists.') pma206 
3001 formatC ** ERROR ** Data on restart file incompatible Bith', pma207 

1 ' current problem. ') pma208 

4000 formatC ** ERROR ** attempt to change profile during mesh') pma209 

end P» a21 ° 

c 

subroutine pmacr2(id, ix.f ,f O.b.dr ,lct ,ct ,ndf ,nneq , j) pma 1 

c....macro instruction subprograms pma 2 

logical fl.pcomp.hfl.hout pma 3 

integer*2 id(l) ,ix(l) .lvs.lve, jct.im P»* 4 

real f 0(1) ,f (1) ,cí(3. 1) ,xtl(2) pm« 5 

real*8 b(l) ,dr(l) .dm.aengy .rnmax.prop P"»» 6 

character*4 lct(l) ,ctl(2) ,yyy*80 P"a 7 

common /edata/ numnp, numel , nummat .nen.neq P»& 8 

common /fdata/ fl(ll) P ma 9 

common /hdatb/ nhi.nhf , ihbuf f , irec , jrec.nxec ,hf 1 ,hout pma 10 

common /iofile/ ior.iow P ma 11 

common /iofild/ iodr,iodw,ipd,ipr,ipi P»« a 12 

common /ldata/ l,lv,lvs(9) ,lve(9) , jct(100) P* a 13 

common /ndata/ nv.nw P ma 14 

common /prlod/ prop,a(6 , 10) , iexp( 10) , ik(10) ,npld pma 15 

common /rdata/ aengy .rnmax.tol.shif t P 1 »* 1 16 

common /tdata/ ttim.dt ,cl ,c2 ,c3 ,c4,c5, c6 pn> a 17 

common dm(l) ,rm(l),im(l) pma 18 

c. .. .transí er to correct process P ma I 9 

go to (1,2,3.4,5,6,7,9), j P» a 20 

c. . . .set solution tolerance P na 21 

1 tol = ct(l.l) P Ba 22 
return P na 23 

c set time increment P ma 24 

2 dt = ct(l.l) P ma 25 
if (fl(9)) cali setci(ior) P na 26 
return P ma 21 
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c. . 


. .set loop start indicators 


pma 


28 


3 


lv ■ lv + 1 


pma 


29 




lvs(lv) ■ 1 


paa 


30 




lTeUrJ ■ ctt.2,1; 


paa 


31 




CX V * i ITC^IVJ ) 1. 


paa 


32 




return 


paa 


0 ¿ 


c . . 


. . loop terainator control 


paa 


34 


4 


n " ct(2,l) 


paa 


35 




ctt.1,1.) ■ ctt.1,1; + 1.0 


paa 


36 




if (ct(l.l) .gt.ct(l.n)) lv ■ 1t - 1 


paa 


77 

0 1 




ii (ct (.1 ,1; . le . ct \ 1 ,n; ; 1 * n 


paa 


JO 




return 


paa 


39 


c . . 


. . input proportional load tabla 


paa 


40 


5 


npld ■ ct^l.i; 


paa 


41 




prop ■ propld (ttim.npld) 


paa 


42 




return 


paa 


43 


c . . 


. .data c ominan d 


paa 


44 


6 


ixdor.lt. 0; wnte(*,300Q,j lct(l; 


paa 


AC 
IO 




cali pintio(yyy , 10) 


paa 


46 




read(.yyy , looo,err=ol j ictlUJ , 1*1 ,¿) , ixti kí) , 1-1 ,¿.) 


paa 


47 




11 v. . not ,pcompí.lct (.1 j , ctUl ) )) go to 4ü¿ 


paa 


48 




íx ipcoapictl ilJ t toi )} toi ™ xtiu; 


paa 


49 




xf (pcomp(ctl (lj , "dt ')) dt ™ xtl(lj 


paa 


su 




return 


paa 


51 


61 


cali perror( 'PMACR2' ,yyy) 


paa 


oz 




go to 6 


paa 


53 


c . . 


. . increaent time 


paa 


O* 


7 


ttim ■ ttim + dt 


paa 


ce 




if (npld.gt .0) prop ™ propld(ttim,0) 


paa 


00 




writeviow,¿üüz^ ttim, prop 


paa 


57 




if(ior.lt.O) writo( *,2002) ttim, prop 


paa 


58 




aengy = 0.0 


paa 


59 




rnmax = 0.0 


paa 


60 


c . . 


..update history on the disk 


paa 


61 




ixi.nox.nxij xnen 


paa 


62 




hout m . true • 


paa 


63 




r .l I 4 nrm i A (y, H-r f «1 qa -f a1 «a fn] na fal d* £ 1 ntlBAl 1) 
Cali x ui tul flyUj ui f . i ai sfli , .i sisa . , • i&isb * » * iais ' * j u » A » i • / 


paa 


64 




hout 36 . íalse. 


paa 


65 






paa 


66 


c . . 


. .update dynaaic vectora for time step 


paa 


67 




iiuH'^ xnen 


paa 


68 




cali setci(ior) 


paa 


69 




can upaaxe v, m , xu a x ,o t gjq vnvy , un ^nw ^ , or f 11110^,1104 ,11 • pi°p • v 


paa 


70 




endif 


paa 


71 


c . . 


■ . zero displacenont increment xor next time step 


paa 


72 




cali pconsd(b (nnaq+1 ) , nneq+nneq , 0 . OdO) 


paa 


73 




íl(10) - .true. 


paa 


74 




return 


paa 


75 


c. . 


..input integration parameters and initialize vector» 


paa 


76 


8 


cali paraa(ct(l,l)) 


paa 


77 




if(fl(9)) return 


paa 


78 




cali psetm(nv,neq*2,ipd,fl(9)) 


paa 


79 




n» * nv + neq 


paa 


80 




íl(9) - .true. 


paa 


81 




cali pconsd(dmínv) ,neq*2 , 0 . OdO) 


paa 


82 




return 


paa 


83 
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c. . . 


.update the current forcé vector fO 




paa 


84 


9 


cali saxpb(f ,f O.prop.nneq, fO) 




paa 


85 




return 




paa 


86 


c . . . 


.error diagnostica 




paa 


87 


402 


if(ior.gt.O) srite(iow,4002) 




paa 


88 




if(ior.gt.O) stop 




paa 


89 




if(ior.lt.O) write( *,4002) 




paa 


90 




return 




paa 


91 


c . . . 


.f oraats 




paa 


92 


1000 


f oraat ( a4 , 6x , a4 , 6x , 2f 10 . 0) 




paa 


93 


2002 


formatC coaputing solution for tiae',el2.5/ 




paa 


94 




1 ' proportional load valué ia \el2.S) 




paa 


95 


3000 


f oraat (' Input ',a4.' aacro >\\) 




paa 


96 


4002 


foraatC **ERR0R** aacro label aisaatch on data coaaai 


id') 


paa 


97 




end 




paa 


98 


c 


subr out ine f oraf e(u,b,af,bf > cf,df ( is > nel I ne2,ne3) 




for 


1 


c . . . 


.fora f inite eleaent arrays as required 




for 


2 




logical af ,bf ,cf ,df ,af 1 ,bf l.cf l.df 1 ,hf l.hout 




for 


3 




integer*2 a.ia 




for 


4 




real*8 u(l).b(l),dm 




for 


5 




common /mdata/nn,n0,nl,n2,n3,n4,n5,n6,n7,n8,n9,nl0,nll,nl2,nl3 


for 


6 




common /mdat2/ nlia.nllb.nllc, ia(2, 11) 




for 


7 




comaon /sdata/ ndf .ndm.nenl ,nst 




for 


8 




common /xdata/ isw.nnl ,nn2,nn3,af l.bfl.cf l»dfl 




for 


9 




common da(l) ,rm(l) ,m(l) 




for 


10 


c . . . 


.fora appropriate f .e. array 




for 


11 




afl - af 




for 


12 




bfl = bf 




for 


13 




cfl - cf 




for 


14 




dfl = df 




for 


15 




isw = is 




for 


16 




nnl = nel 




for 


17 




nn2 = ne2 




for 


18 




nn3 = ne3 




for 


19 




cali pform(dm(nn).rm(n0),rm(nl),m(n2),dm(n3),dm(n4),B(n5),dB(n6), for 


20 




1 a(n7) ,ra(n8) ,a(n9) ,rm(nl0) ,rm(nll) ,a(nllc) ,ra(nl3) ,u 


.b.ndf , 


for 


21 




2 nda.nenl ,nst) 




for 


22 




return 




for 


23 




end 




for 


24 


c 


subrout ine phst io ( iu , irec ,hh ,nh , isw , tf ile , itrec) 




phs 


1 


c. . . 


.i/o control 




phs 


2 




character*12 tfile 




phs 


3 




real*8 hh(nh) 




phs 


4 


c . . . 


■direct access read/vrite 




phs 


5 




if (isw.lt. 10) open(iu,f ile=tf ile. access=' direct ' ,recl : 


«itrec) 


phs 


6 




if(isw.eq.l) read (iu,rec=irec) hh 




phs 


7 




if (isw.eq.2) write(iu,rec s irec) hh 




phs 


8 




ifCisw.lt . 10) cióse (iu) 




phs 


9 


c. . . 


. sequential access read/write 




phs 


10 




if (isw.eq.il) read (iu) hh 




phs 


11 




if (isw.eq.22) write(iu) hh 




phs 


12 




return 




phs 


13 




end 




phs 


14 
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(b) El archivo PCMAC2.F0R contiene el siguiente conjunto de 
subprogramas: 

Descripción 

Sumar en un vector 
Alinear los datos para el procesador 
Modificar el vector de cargas para las c.c. 
en desplazamientos 

Fijar los ángulos locales para rotación de GDL 
Formar los vectores/matrices de EF 
Construir los vectores residuales de carga 
proporcional 

Introducir o calcular valores de carga e inercia 
Imprimir desplazamientos nodales 
Imprimir valores de estimación de error 
Imprimir reacciones nodales y sumas 
Imprimir tensiones nodales 

Transformar vectores para contornos inclinados 
Fijar los parámetros de integración temporal 
Actualizar los vectores solución 



Nombre 


Tipo 


ADDVEC 


SUBRUTINA 


JUST 


SUBRUTINA 


MODIFY 


SUBRUTINA 


PANGL 


SUBRUTINA 


PFORM 


SUBRUTINA 


PLOAD 


SUBRUTINA 


PROPLD 


FUNCION 


PRTDIS 


SUBRUTINA 


PRTERR 


SUBRUTINA 


PRTREA 


SUBRUTINA 


PRTSTR 


SUBRUTINA 


PTRANS 


SUBRUTINA 


SETCI 


SUBRUTINA 


UPDATE 


SUBRUTINA 



INOFLOATCALLS 





subroutine addvec(a,b,nn) 


add 


1 




real a(l),b(l) 


add 


2 




do 100 n = 1 ,nn 


add 


3 




a(n) = a(n) + b(n) 


add 


4 


100 


cont inue 


add 


5 




return 


add 


6 




end 


add 


7 


c 


subroutine just (y ,k,n0) 


jus 


1 


c. . . 


.complete the parser alignment of data 


jus 


2 




character*l y(k) ,yi,ze,ni,mi,pl,dt,sp 


jus 


3 




data ze, ni, mi, pl.dt ,sp/ '0\ '9' , *-*. ' + '.'.'.' '/ 


jus 


4 




ni = nO - 1 


JUS 


5 




n2 = ni - 1 


jus 


6 




do 140 i = l.k.nO 


jus 


7 




do 100 j = i,i+nl 


jus 


8 




if(y(j) .ne.sp) go to 115 


jus 


9 


100 


continué 


jus 


10 




y(i+nl) = ze 


jus 


11 


115 


if (y(i+nl) .ne.sp) go to 140 


jus 


12 




yi = y(i) 


jus 


13 




if ((yi.ge.ze.and.yi.le.ni) .or. (yi.eq.mi) .or. (yi.eq.pl) 


jus 


14 




1 .or . (yi. eq.dt)) then 


jus 


15 




do 110 j = i+n2,i,-l 


jus 


16 




if(y(j) .ne.sp) go to 120 


jus 


17 


110 


cont inue 


jus 


18 


120 


kl = ni + i - j 


jus 


19 




do 130 1 = j.i,-l 


jus 


20 
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y(l+kl) = y(l) 
y(l) = sp 
130 continué 

endif 
140 continué 
return 
end 



jus 21 
jus 22 
jus 23 
jus 24 
jus 25 
jus 26 
jus 27 



100 



subroutine modify(b,s,dul,nst) 
.modify for non-zero displacement boundary conditions 
real*8 b(l) ,s(nst , 1) ,dul(l) 
do 100 i = l.nst 
do 100 j = l.nst 
b(i) = b(i) - s(i,j)*dul(j) 
return 
end 



mod 
mod 
mod 
mod 
mod 
mod 
mod 
mod 



100 



subr out ine pangl ( ií , nen , angl , angg , nr ot ) 
.set up table of rotation angles 
integer*2 ir (nen) 
real angl (nen) ,angg(l) 

nrot = 0 

do 100 n = l.nen 
angl(n) =0.0 
ii = abs(ix(n)) 
if (ii.gt.0) then 
angl(n) = angg(ii) 

if (angg (ii) .ne. 0.0) nrot = nrot + 1 
endif 
cont inue 
return 
end 



pan 1 
pan 2 
3 
4 

5 
6 
7 
8 
9 

pan 10 
pan 11 
pan 12 
pan 13 
pan 14 
pan 15 



pan 
pan 
pan 
pan 
pan 
pan 
pan 



subroutine param(ct) 
.set appropriate time integratíon parameters 
common /iofile/ ior.iow 
common /tbeta/ beta.gamm 
real ct(l) 
beta = ct(l) 
gamm = ct(2) 

if (beta. eq. 0.0) beta = 0.25 
if (gamm. eq. 0.0) gamm = 0.50 
write(iofr,2000) beta.gamm 
if(ior.lt.O) write(*,2000) beta.gamm 
return 

formatC Mewmark Kethod Parameters'/ 
1 » beta = \f9.4,' ; gamma = \f9.4) 

end 



par 1 
par 2 
par 3 
par 4 
par 5 
par 6 
par 7 
par 8 
par 9 
par 10 
par 11 
par 12 
par 13 
par 14 
par 15 



subrout ine pf orm (ul , rl , ti , Id ,p , s , ie , d , id , i , ii . f . t . idl , 

1 f0,u,b,ndf .ndm.nenl ,nst) 

.compute element arrays and assemble global arrays 
integer*2 Id (ndf . 1) , ie (9 , 1 ) , id (ndf , 1) , ix (nenl , 1) . idl ( 1 ) . ia, 
real rl(ndm, 1) ,i(ndm, 1) ,f (ndf , 1) ,f Oíndf ,1) ,tl(l) ,t(l) 

real*8 d(18,l),p(l) ,s(nst,l) ,b(l) ,ul(ndf ,1) ,u(ndf , 1) ,dm, 

1 dun , un , prop 



pf o 
pío 
pf o 
pío 
pf o 
pío 
pío 
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logical afl.bfl.cfl.dfl.efl.hfl.hout 


pfo 


8 


character*12 tfile 


pfo 


9 


conunon /cdata/ numnp ,numel .nummat , nen, neq 


pfo 


10 


common /eldata/ dq.n.ma.mct, iel.nel 


pfo 


11 


common /mdat2/ nlla.nllb.nllc, ia{2, 11) 


pfo 


12 


common /hdata/ nhl,nh2 


pfo 


13 


common /hdatb/ nhi.nhf , ihbuff , irec, jrec.nrec.hf 1 ,hout 


pfo 


14 


common /prlod/ prop, ap(6, 10) ,iexp(10) , ik(10) ,npld 


pfo 


15 


common /temfll/ tfile(6) 


pfo 


16 


common /temí 12/ itrec(4) ,nwl ,nw2 


pfo 


17 


common /zdata/ isw.nnl ,nn2 ,nn3,aíl.bfl .cíl.df 1 


pío 


1 O 


common dm(l) ,rm(l) ,im(l) 


pfo 


19 


set up local arrays before calling element library 


pfo 


20 


iel - 0 


pfo 


21 


efl - .íalse. 


pfo 


22 


if (.not.dfl.and.isw.eq.6) efl = .true. 


pfo 


23 


if (bfl.and.isw.eq.3) efl « .true. 


pfo 


24 


if (isw.ne.3.or.nnl.eq. 1) irec = 0 


pfo 


25 


ne2 » nen + nen 


pfo 


26 


ne3 - nen + ne2 


pfo 


27 


numnp 2 ■ numnp + numnp 


pfo 


28 


do 110 nu = 1 .numel 


pfo 


29 


n ■ idl(nu) 


pfo 


30 


if((n.ge.nnl .and. n.le.nn2) .and. (mod(n-nnl,nn3) .eq.O)) then 


pfo 


31 


, set up history terms 


pfo 


32 


ma * ix(nenl.n) 


pfo 


33 


nhl - ix(nen+l,n) 


pfo 


34 


nh2 = nhl 


pfo 


35 


if(.not.hfl) then 


pfo 


36 


jrec= ix(nen+2,n) 


pfo 


37 


if (jrec.ne.irec) then 


pfo 


38 


if(hout .and. irec.ne.O) then 


pfo 


39 


cali phstio(3,irec,dm(nhi) .nhf-nhi+1 ,2,tf ile(2) , itrec (2) )pf o 


40 


endif 


pfo 


41 


cali phstio(3, jrec.dm(nhi) , nhf-nhi+1 , 1 ,tf ile(2) , itrec(2) ) 


pfo 


42 


irec = jrec 


pfo 


43 


endif 


pfo 


44 


endif 


pfo 


45 


cali pconsd(ul,4*nen*ndf ,0.0d0) 


pfo 


46 


cali pconsr(xl,nen*ndm.0.0) 


pfo 


47 


cali pconsr(tl,nen,0.0) 


pfo 


48 


cali pconsr(rm(nlla) , nen, 0.0) 


pfo 


49 


cali pconsi(ld,nst,0) 


pfo 


50 


un = 0.0 


pfo 


51 


dun= 0.0 


pfo 


52 


cali pangl(ix(l,n),nen,rm(nlla),rm(nllb) ,nrot) 


pfo 


53 


do 108 i = l.nen 


pfo 


54 


ixi= ix(i,n) 


pfo 


55 


ii = abs(ixi) 


pfo 


56 


if (ii.ne.0) go to 105 


pfo 


57 


do 104 j = l.ndf 


pfo 


58 


ld(j.i) = 0 


pfo 


59 


go to 108 


pfo 


60 


iid = ii*ndf - ndf 


pfo 


61 


nel = i 


pfo 


62 


tl(i) = t(ii) 


pfo 


63 
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do 106 j - l.ndm 


pfo 64 


106 


xl(j.i) - x(j.ii) 


pfo 65 




do 107 j - l.ndf 


pfo 66 




jj - ie(j,ma) 


pfo 67 




if(jj.le.O) go to 107 


pfo 68 




k = id(jj.ii) 


pfo 69 




ul(j ,i) ■ u(jj ,ii) 


pfo 70 




ul(j,i+nen) - u< j j , ii+numnp) 


pfo 71 




ul(j,i+ne2) ■ u(jj,ii+numnp2) 


pfo 72 




if(k.le.O) ul(j,i+ne3) - fO(jj.ii) + f ( j j , ii) *prop 


pfo 73 




1 - u(jj.ii) 


pfo 74 




dun ■ max(dun.abs(ul(j,i+ne3))) 


pfo 75 




un = max( un,abs(ul(j ,i))) 


pfo 76 




if(dfl) then 


pfo 77 




ld(j ,i) ■ iid + j j 


pfo 78 




else 


pfo 79 




ld(j.i) = k 


pfo 80 




ifdxi.lt. 0) ld(j,i) =■ -k 


pfo 81 




endif 


pfo 82 


107 


cont inue 


pfo 83 


108 


continué 


pfo 84 


c . . . 


. f orm element array 


pfo 85 




if (ie(7,ma) .ne. iel) mct * 0 


pfo 86 




iel ■ ie(7,ma) 


pfo 87 




isx - isv 


pfo 88 




if(efl .and. dun.gt .0.0000001d0*un .and. .not.afl) isx * 3 


pfo 89 




if (nrot ,gt .0) 


pfo 90 




1 cali ptrans(ia(l,iel),rm(nlla),ul,p,8,nel,nen.ndf ,net,l) 


pfo 91 




cali elmlib(d(l,ma) ,ul,xl,ix(l,n) ,tl,s,p,ndf ,nd»,n»t,i*l,iax) 


pfo 92 




if (nrot .gt .0) 


pfo 93 




1 cali ptrans(ia(l,iel),rm(nlla) ,ul,p,s,nel,nen,ndf ,nat,2) 


pfo 94 


c. . . 


.modify for non-zero displacement boundary conditiona 


pfo 95 




if(efl) cali modify(p,8,ul(l,ne3+l),nBt) 


pfo 96 


c. . . 


.asaemble a vector if needed 


pfo 97 




if(bfl) then 


pfo 98 




do 109 i = l.nst 


pfo 99 




j = absUd(i.D) 


pfolOO 




if (j.ne.0) b(j) = b(j) + p(i) 


pfolOl 


109 


continué 


pfol02 




endif 


pfol03 




endif 


pfol04 


110 


cont inue 


pfol05 


c. . . 


.put the last history state on the disk 


pfol06 




if (hout) cali phstio(3, jrec.dm(nhi) .nhf-nhi+1, 2, tfile(2) ,itrec{2))pfol07 




return 


pfol08 


c 


end 


P fol09 




subroutine pload(id,f ,f O.b.nn.p.xm.ac) 


pío 1 


c. . . 


.form load vector in compact form 


pío 2 




logical fl.pfr 


pío 3 




integer*2 id(l) 


pío 4 




real f(l).f0(l) 


pío 5 




real*8 b(l) ,p,xm(l) ,ac(l) 


pío 6 




common /fdata/ fl(ll).pfr 


pío 7 




flCll) = .false. 


pío 8 




cali pconsd(b.nn,0.0d0) 


pío 9 
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do 100 n = l,nn 


pío 


10 




j - id(n) 


pío 


11 




if (j .gt.O) then 


pío 


12 




bCj) = f(n)*p + f0(n) + bCj) 


pío 


13 




if(fl(9)) b(j) = b(j) - xm(j)*acCj) 


pío 


14 




endif 


pío 


15 


100 


continué 


pío 


16 




return 


pío 


17 




end 


pío 


18 


c 


function propldCt, j) 


pro 


1 


c. . . 


.proportional load tabla (j load cards, máximum 10) 


pro 


2 




real*8 prop 


pro 


3 




character*80 yyy 


pro 


4 




common /iofile/ ior.iow 


pro 


5 




common /prlod/ prop,aC6,10) .iexpClO) ,ikCl0) ,npld 


pro 


6 




if (j .le.0) go to 200 


pro 


7 


c. . . 


. input table oí proportional loads 


pro 


8 




writeCiow.2000) 


pro 


9 




if(ior.lt.O) then 


pro 


10 




writeC *,2000) 


pro 


11 




•riteC *,2003) 


pro 


12 




endif 


pro 


13 




do 100 


pro 


14 


101 


cali pintio(yyy.lO) 


pro 


15 




read(yyy, 1000 ,err=102) ik(i) ,iexp(i) , (a(m,i) ,m=l,6) 


pro 


16 




go to 103 


pro 


17 


c. • . 


.error message 


pro 


18 


102 


cali perrorC ' PROPLD \yyy) 


pro 


19 




go to 101 


pro 


20 


c . . . 


. set a default ramp table if a type "0" input 


pro 


21 


103 


if (ik(i) .eq.0) then 


pro 


22 




a(2,i) = l.e+6 


pro 


23 




a(4.i) = 1. 


pro 


24 




endif 


pro 


25 




write(iow,2001) i,ik(i) , (a(m,i) ,m=l,6) ,iexp(i) 


pro 


26 




if(ior.lt.O) write(*,2001) i, ik(i) , (a(m, i) ,m=l ,6) , iexp(i) 


pro 


27 


100 


continué 


pro 


28 




nprop = j 


pro 


29 


c. . . 


.compute valué at time t 


pro 


30 


200 


propld =0.0 


pro 


31 




do 220 i = 1, nprop 


pro 


32 




tmin = a(l ,i) 


pro 


33 




tmax = a(2,i) 


pro 


34 




if (t.lt.tmin.or.t.gt.tmax) go to 220 


pro 


35 




1 = max(iexp(i) , 1) 


pro 


36 




propld = a(3.i)+a(4,i)*t+ a(5,i)*(sin(a(6,i)*t+tmin))**l 


pro 


37 




1 + propld 


pro 


38 


220 


continué 


pro 


39 




return 


pro 


40 


c . . . 


.f ormats 


pro 


41 


1000 


format(2il0,6fl0.0) 


pro 


42 


2000 


f ormat(30x, 'P roportional Load Table') 


pro 


43 


2001 


f ormat(/, ' number type tmin 1 ,10x, 'tmax» ,/i3,il0,7x,gl0 .4, 


pro 


44 




1 4x,gl0.4./6x,'a(l)\10x.'a(2)\10x, 'a(3) ' ,10x, 'a(4) ' , lOx, 


pro 


45 




2 'exp\/4x,4(gl0.4,4x),i5/) 


pro 


46 
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2003 formatC Input: type, exponent, tmin. tmax, a(i) , i-1 ,4'/ » >',$) pro 47 

•nd p ro 48 

c 

subroutine prtdis(x,b,ttim,prop,ndm,ndf ,nl,n2,n3) prt 1 

c...output nodal displacement valúes prt 2 

real x(ndm.l) pr t 3 

real*8 b(ndf , 1) ,prop pr t 4 

character*4 cd*6,di*6 p r t 5 

common /iofile/ ior.io» pr t 6 

data cd/' coord'/,di/' displ'/ pr t 7 

kount ■ 0 pr t 8 

do 100 n « nl,n2,n3 pr t 9 

kount * kount - 1 pr t 10 

if (kount. le. 0) then p r t 11 

cali prthed(iov) pr t 12 

write(iow,2000) ttim.prop, (i,cd,i=l ,ndm) , (i ,di, i«l,ndf ) prt 13 
ifCior.lt. 0) write(*,2000) ttim.prop, Ci,cd,i»i ,ndm) , Ci ,di, i-1 ,ndf )prt 14 

kount - 48 prt 15 

endif prt 16 

if (x(l,n) .ne. -999.) then prt 17 

■rite Ció», 2001) n. Cx(i.n) ,i=l ,ndm) . CbCi.n) ,i-l ,ndf ) prt 18 
ifCior.lt. 0) writeC*,2001) n, CxCi.n) ,i=l,ndm) , CbCi.n) ,i»l ,ndf ) prt 19 

else prt 20 

■riteCiow.2002) n pr t 21 

ifCior.lt.0) writeC*,2002) n prt 22 

endif p r t 23 

100 continué pr t 24 

return pr t 25 

2000 formatC Nodal Displacement s',5x. prt 26 

1 'time' ,el8.5/31x, 'prop. Id. Ceigenvalue) ' ,el3.5// prt 27 

2 ' node',9Ci7,a6)) pr t 28 

2001 formatCi6,lp9el3.6) pr t 29 

2002 formatCi6,' not input.') pr t 30 
end prt 31 

c 

subroutine prterr prt 1 

implicit real*8 Ca-h,o-z) prt 2 

common /iofile/ ior.io* prt 3 

common /errind/ eerror, elproj, ecproj ,efem,enerr,ebar prt 4 

c....output the error indicator valúes prt 5 

elrind =0.0 prt 6 

ecrind =0.0 pr t 7 

ifCelproj .ne.O.OdO) elrind = sqrt(Cefem-elproj) /elproj) prt 8 

if Cecproj .ne.O.OdO) ecrind = sqrtCCefem-ecproj) /ecproj) prt 9 

ifCecproj .ne.O.OdO) eerror = sqrtCeerror/ecproj) prt 10 

■rite Ciow, 2000) efem.elproj .ecproj .elrind, ecrind, eerror prt 11 
if Cior.lt. 0)writeC*. 2000) efem.elproj, ecproj .elrind, ecrind, eerror prt 12 

2000 formatC/' Finita Element Stress Heasure =',el5.8/ prt 13 

1 ' L u m p e d Projected Stress Measure *',el5.8/ prt 14 

2 ' Consistent Projected Stress Heasure =',el5.8/ prt 15 

3 ' L u m p e d Error Indicator =',el5.8/ prt 16 

4 ' Consistent Error Indicator =',el5.8/ prt 17 

5 ' Direct Error Indicator =',el5.8/) prt 18 
return pr t 19 
end prt 20 
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subr out ine prtrea (r , ndí .numnp , n 1 , n2 , n3 ) 


prt 


1 


c. . . . 


print nodal reactions 


prt 


2 




real*8 rr(6) ,r(ndf ,1) ,rsum(6) ,asu*(6) ,psum(6) 


prt 


3 




common /iofile/ ior.iow 


prt 


4 




cali pconsdírsum.ndf ,0.0d0) 


prt 


5 




cali pconsd(psun,ndí ,0 . OdO) 


prt 


6 




cali pconsd(asua,ndf ,0.0d0) 


prt 


7 




do 75 i ■ 1, numnp 


prt 


8 




do 75 k - l.ndf 


prt 


9 




rsum(k) - rsum(k) - r(k,i) 


prt 


10 


75 


asua(k) » asum(k) + abs(r(k,i)) 


prt 


11 




kount ■ 0 


prt 


12 




do 100 n - nl,n2,n3 


prt 


13 




kount ■ kount - 1 


prt 


14 




if (kount. le. 0) then 


prt 


15 




cali prthed(iow) 


prt 


16 




write(iów,2000) (k,k=l.ndf) 


prt 


17 




ifUor.lt. 0) write(*,2000) (k.k=l.ndf) 


prt 


18 




kount * 50 


prt 


19 




endií 


prt 


20 




do 80 k = l.ndf 


prt 


21 




rr(k) - -r(k.n) 


prt 


22 


80 


psum(k) - psum(k) + rr(k) 


prt 


23 




write(iow,2001) n. (rr(k) ,k»l ,ndf ) 


prt 


24 




if(ior.lt.O) write(*,2001) n, (rr(k) ,k«l,ndf ) 


prt 


25 


100 


continua 


prt 


26 


c . . . 


.print statics check 


prt 


27 




write (iow, 2002) (rsum(k) ,k«l .ndí ) 


prt 


28 




write(iow,2003) (psum(k) ,k«l ,ndf ) 


prt 


29 




write (iow, 2004) (asum(k) ,k=l ,ndf ) 


prt 


30 




if(ior.lt.O) then 


prt 


31 




write(*,2002) (rsum(k) ,k=l ,ndí) 


prt 


32 




write(*,2003) (psum(k) ,k=l ,ndf ) 


prt 


33 




■rite (*, 2004) (asum(k) ,k=l ,ndf ) 


prt 


34 




endií 


prt 


35 




return 


prt 


JO 


2000 


ÍormatC Nodal Reaction s'//6x, 'node' , 6(i9, ' 


dof ' ) ) prt 


37 


2001 


format(il0,6el3.4) 


prt 


38 


2002 


format(/7x, 'sum' ,6el3.4) 


prt 


39 


2003 


íormatC 3x,'prt sum' ,6el3.4) 


prt 


40 


2004 


ÍormatC 3x,'abs sum',6el3.4) 


prt 


41 




end 


prt 


42 


c 


s ubr out ine prtstr(dt,ds, numnp , n 1 , n2 , n3 ) 


prt 


1 


c . . . 


. output projected nodal stress valúes 


prt 


2 




real dt (numnp) ,ds(numnp,7) 


prt 


3 




common /iofile/ ior.iow 


prt 


4 




kount ■ 0 


prt 


5 




do 200 n - nl,n2,n3 


prt 


6 




kount ■ kount - 1 


prt 


7 




if (kount. le. 0) then 


prt 


8 




cali prthed(iow) 


prt 


9 




write (iow, 2000) 


prt 


10 




if(ior.lt.O) write (*, 2000) 


prt 


11 




kount = 17 


prt 


12 




endií 


prt 


13 
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vrituf ins 9001} n fdsín il i=1 7) dt fn) 
■ X lio \iyw , & w i. / 11 1 ^ua \u . x / . x a . i / . u u \ii/ 


urt 


14 




n \ íor . i t . write , ¿uui j n, vusvn, \j , 1*1 , 1 ) ,qx ko.) 


prt 


15 


200 


cont inue 


Drt 

flX V 


16 






Drt 


17 


2000 


íormatC' Nodal Stress es'//' node ' , 4x, ' 11 -stress ' 


> 4x , prt 


18 




1 ' 12-stress ' ,4x , '22-stress ' , 4x , ' 3 3- stress '/10x , ' 1 -stress ' , 5x, 


Drt 


19 




2 ' 2 _ stress ' , 4x, 'max— shear ' , 8x , ' ang le ' ) 


Drt 


20 


2001 


f ormat(i5,4el3. 5/Sx,4el3.5/lx) 


Drt 


21 






Drt 


22 




subr out ine ptrans (, ía , angl , uJ. , p t s , ne 1 , nen , ndí ,nst , isi) 


ntr 


1 


c. . . 


. subr out ine to make two~ dimesional rotations 


Dtr 


2 




int AffAr*9 "i n ( 0 1 
iubogai*¿ ia^¿y 


Dtr 


3 




i"»i aligo. V*/ 


Dtr 


4 




real *8 ul (ndí , nen 1 1 ) , p (ndí , 1) . s (nst .nst ) , ang ( cs, sn . tm 


Dtr 


5 


c. . . 


mr rnTAT + o Ka r n t. r t. ft H 
.ibuuvoi uyi tf U L/C 1 U l> Q lí ou 


Dtr 
ptx 


6 




AJ 1 laUJ 


Dtr 


7 




ij2 = ia(2) 


Dtr 


8 




on tft ( 1 9l í «a 


Dtr 


9 




. transí orm the displacement quantities to element coordinates 


ptr 


10 




il = 0 


Dtr 


1 1 




do 110 i = 1 nel 


Dtr 
r 


12 




i -f ( ancrl ( \\ n«i C\ Ol +Hati 
XX v OAIKX V xy • n«» -v.yy bllOll 


Dtr 


13 




ang ■ angl(i)*3. 1415926d0/180 . 


Dtr 


14 




f o = rnsfunffl 
i* o líüov n i j 


Dtr 

Lí kX 


15 




sn = sin (ang) 


Dtr 


16 




Hn 100 i = 1 4 


Dtr 


17 




tm — cs*ul ( i j 1 1 i % j ) — sn*ul ( ij2 , i , j ) 


Dtr 


18 




UJ. v 1 J ¿ , x t J y »u*uiviji,x,j> ta*uivij¿,i, 


Dtr 


19 




ni i "il — tm 

UX VXJXjXyJ/ W*U 


Dtr 


20 


100 


cont inue 


Dtr 


21 






Dtr 


22 


1 10 


il = il + ndí 


Dtr 
r 


23 






ptr 


24 


c . . . 


.transí orm the element arrays to global coordinates 


ptr 


25 


2 


il - 0 


ptr 


26 




do 220 i = 1 ,nel 


ptr 


27 




if (angl (i) .ne . 0 . 0) then 


ptr 


28 




ang = angl(i)*3. 1415926d0/180 . 


ptr 


29 




es — cos(ang) 


ptr 


30 




sn — sin (ang) 


ptr 


31 


c . . . 


.transí orm load vector 


ptr 


32 




+ m = r«i*nf"i'i1 "i 1 + ^n*ní"i"i9 il 

vlfl tO*^\lJi,l/ 1 OU T ^VlJ*|l/ 


Dtr 


33 




p(ij2,i) =-sn*p(ij 1 ,i) + cs*p(ij2,i) 


ptr 


34 




nfiil il = tm 


ptr 


35 


c . . . 


•postmultiply s by the transí ormation 


ptr 


36 




do 210 j = l.nst 


ptr 


37 




tm = s(j ,il+ijl)*cs + s(j ,il+ij2)*sn 


ptr 


38 




s(j,il+ij2)=-s(j,il+ijl)*sn + s(j ,il+ij2)*cs 


ptr 


39 




s(j,il+ijl)= tm 


ptr 


40 


210 


continué 


ptr 


41 


c . . . 


.premultiply s by the transí ormation 


ptr 


42 




do 215 j = l.nst 


ptr 


43 




tm = cs*s(il+ijl. j) + sn*s(il+ij2, j) 


ptr 


44 




s(il+ij2. j)=-sn*s(il+ijl. j) + cs*s(il+ij2, j) 


ptr 


45 




s(il+ijl,j)= tm 


ptr 


46 
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215 continua 

andif 
220 il - il + ndf 

raturn 

and 

c 

aubroutine setci(ior) 
c... computa integration constants 'el' to 'c5' for currant 'dt' 
cofflBon Abata/ bata, gama 
common /tdata/ ttim,dt,cl,c2,c3,c4,c5,c6 
if(dt.la.0.0 .or. bata. la. 0.0) than 

write(*,2000) dt.beta 

ií(ior.gt.O) stop 

raturn 
•ndif 

c... computa intagration conatanta »cl* to 'c5' lor currant 'dt' 
el - l.dO/(beta*dt*dt) 
c2 - gamm/(dt*beta) 
c3 - l.dO - l.dO/(beta+beta) 
c4 - l.dO - gama/bata 
c5 - (l.dO - gamm/(beta+beta))»dt 
c6 « dt*cl 
raturn 

2000 iormatC ** ERROR ** A dynamic solution parameter is zero'/ 

1 ' dt - ',ipel0.3,' , bata- »,0plf9.4/ 

2 ' Reinput dt or bata as nonzaro numbar. ') 
and 

c 

aubroutina update(id,f 0,f ,u,v,a,du,nneq,neq,f dyn.prop, isw) 
c....updata tha displacamants (and velocities and accalarations) 
logical fdyn 
integar*2 id(l) 
real f0(l),f(l) 

real*8 u(nn»q. 1) ,v(l) ,a(l) ,du(l) ,url,ur2,prop,dot 
common /iofile/ ior.iow 
common /tdata/ ttim,dt,cl,c2,c3,c4,c5,c6 
c. . . .updata aolution vectora to begin a step 
if(isH.eq.l) than 

url ■ aqrt(dot(v,v,neq)) 
ur2 = sqrt(dot(a,a,neq)) 
write(iow,2000) url,ur2 
if(ior.lt.O) write(*,2000) url,ur2 
do 100 n - 1 ,neq 

ur2 ■ - c6*v(n) + c3*a(n) 
v(n) * c4*v(n) + c5*a(n) 
a(n) * ur2 
100 continuo 

elseif (isH.eq.2) than 
c... update displacement and its incrementa within tha tima step 
do 200 n - l.nneq 
j - id(n) 
if (j.gt.0) than 

¿....for tha active degrees-of-f reedom compute valúes from solution 
u(n.l) - du(j) + u(n.l) 
u(n,2) * du(j) + u(n,2) 
u(n,3) « du(j) 



ptr 47 




alsa 


upd 29 


ptr 48 


c . . . 


.lor tha i izad degreea-of -íreedom computa valúas irom f oread inputs 


upd 30 


ptr 49 




url - í0(n) + f(n)*prop 


upd 31 


ptr 50 




u(n,3) ■ url - u(n,l) 


upd 32 


ptr 51 




u(n,2) - url - u(n,l) + u(n,2) 


upd 33 






u(n,l) " url 


upd 34 


sat 1 




•ndif 


upd 35 


sat 2 


200 


cont inua 


upd 36 


sat 3 


c. . . 


.for time depandent Solutions update tha rata tarms 


upd 37 


sax 4 




if(fdyn) than 


upd 38 


sat 5 




do 210 n ■ l.neq 


upd 39 


sat 6 




v(n) ■ v(n) + c2*du(n) 


upd 40 


sat 7 




a(n) ■ a(n) + cl*du(n) 


upd 41 


sat 8 


210 


continua 


upd 42 


sat 9 




andif 


upd 43 


sat 10 




andif 


upd 44 


sat 11 




raturn 


upd 45 


sat 12 


2000 


formatC Horma for Dynamics'/ 


upd 46 


sat 13 




1 10x,'Velocity:\el3.5,* Accaleration: » ,el3.5) 


upd 47 


sat 14 




and 


upd 48 



sat 15 
sat 16 
sat 17 
sat 18 
set 19 
sat 20 
set 21 

upd 1 
upd 2 
upd 3 
upd 4 
upd 5 
upd 6 
upd 7 
upd 8 
upd 9 
upd 10 
upd 11 
upd 12 
upd 13 
upd 14 
upd 15 
upd 16 
upd 17 
upd 18 
upd 19 
upd 20 
upd 21 
upd 22 
upd 23 
upd 24 
upd 25 
upd 26 
upd 27 
upd 28 
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(c) El archivo PCMAC3.F0R contiene el siguiente conjunto de 
subprogramas: 

Descripción 

Procesador de datos alfanuméricos 
Comprobación de elementos isoparamétricos 
Producto escalar de vectores 
(DOBLE PRECISIÓN) 
Librería de elementos 
Igualar un vector en doble precisión 
a una constante 

Igualar un vector entero a una constante 
Igualar un vector real a una constante 
Añadir el carácter de un disco a un nombre 
de archivo (c:, etc.) 

Imprimir error al leer el final de archivo 
Imprimir por error de lectura 
Posiciones/pesos de puntos de Gauss para 
problemas bi dimensión ales 
Imprimir información de ayuda al usuario 
Gestión de datos con alineamiento de bites 
Determinación de tensiones principales 
en dos dimensiones 
Escalar por vector más vector 
Determinación de funciones de forma 
cuadráticas 

Determinación de funciones forma lineales 



Nombre 


Tipo 


ACHECK 


SUBRUTINA 


CKISOP 


SUBRUTINA 


DOT 


FUNCION 


ELMLIB 


SUBRUTINA 


PCONSD 


SUBRUTINA 


PCONSI 


SUBRUTINA 


PCONSR 


SUBRUTINA 


PDISK 


SUBRUTINA 


PEND 


SUBRUTINA 


T) 17 D T) (~\ T) 


CTTTJ"D TTI^TAI A 


pr¡ a ttoo 


9TTRRTTTTN A 


PHELP 


SUBRUTINA 


PSETM 


SUBRUTINA 


PSTRES 


SUBRUTINA 


SAXPB 


SUBRUTINA 


SHAP2 


SUBRUTINA 


SHAPE 


SUBRUTINA 


ÍNOFLOATCALLS 







subroutine acheck(x,y,n0,nl) 


ach 


1 


c . . . 


.data parser 


ach 


2 




character*l x(nl),y(nl) 


ach 


3 




do 100 ii = ni, 1,-1 


ach 


4 




if (x(ii).ne. ' ') go to 110 


ach 


5 


100 


cont irme 


ach 


6 


110 


do 150 i = l.nl 


ach 


7 




y(i) = » ' 


ach 


8 


150 


continué 


ach 


9 




k = 0 


ach 


10 




il= 0 


ach 


11 




do 200 i = l.ii 


ach 


12 




if (x(i) .eq. ' , ') then 


ach 


13 




k = k + nO 


ach 


14 




if (k.gt.nl-nO) go to 210 


ach 


15 




il = k - i 


ach 


16 




«lse 


ach 


17 




y(i+il) = x(i) 


ach 


18 




endif 


ach 


19 


200 


continué 


ach 


20 
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k - k + nO 
210 cali just(y.k.nO) 

do 220 i ■ nO.nl.nO 

if(y(i).eq.' ') y(i) 
220 continué 

return 

end 



ach 21 
ach 22 
ach 23 
ach 24 
ach 25 
ach 26 
ach 27 



2000 



2001 



subroutine ckisop(ix,xl .shp.ndm) 
.check isoparametric elementa 
integer*2 xn(9) ,yn(9) , ic(18) ,ix(l) 
real xl(ndm.l) 
real*8 shp(3 , 1) ,ss ,tt ,xsj 
camón /eldata/ dm,n,ma,mct , iel ,nel 
common /iofile/ ior.iow 

data xn/-l,l. 1,-1, 0.1, 0,1,0/, yn/-l. -1.1, 1,-1, 0,1, 0,0/ 
.check the element for input errors 
ineg = 0 

do 100 1 = l.nel 

if (xl(l.l) .eq. -999.0 .and. ix(l).ne.O) then 
ic(ineg+l) = 1 
ic(ineg+2) = abs(ix(l)) 
ineg - ineg + 2 
endif 
continué 

if (ineg.gt.0) then 

write(iow,2000) n, (ic(i) ,i=l,ineg) 
if(ior.lt.O) write(* ,2000) n, (ic(i) , i-l,ineg) 

else 

do 110 1 = l.nel 
ss = xn(l) 
tt = yn(l) 

cali shape (ss ,tt ,xl .shp.xsj .ndm.nel , ix , . f alse . ) 
if (xsj .le.O.OdO) then 
ic(ineg+l) = 1 
ic(ineg+2) = abs(ix(l)) 
ineg ■ ineg + 2 
endif 
> cont inue 

if (ineg.gt .0) then 

write(iow,2001) n, (ic(i) ,i=l, ineg) 
if(ior.lt.O) write(*,2001) n, (ic(i) , i=l , ineg) 
endif 
endif 
return 

formatC >Element » ,i4, 
1 (' 

formatC >Element ' ,i4, 
1 (* 

end 



coordinates not input for nodos: 
Local =',i3.' Global -\i4)) 
has negativa jacobian at nodes:' 
Local =',i3,* Global =»,i4)) 



cki 
cki 
cki 
cki 
cki 
cki 
cki 
cki 
cki 
cki 



cki 11 
cki 12 
cki 13 
cki 14 
cki 15 
cki 16 
cki 17 
cki 18 
ki 19 
cki 20 
cki 21 
cki 22 
cki 23 
cki 24 
cki 25 
cki 26 
cki 27 
cki 28 
cki 29 
cki 30 
cki 31 
cki 32 
cki 33 
cki 34 
cki 35 
cki 36 
cki 37 
cki 38 
cki 39 
cki 40 
cki 41 
cki 42 



double precisión function dot (a,b,n) 
real*8 a(l),b(l) 

dot product function 
dot = O.OdO 
do 10 k=l,n 
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dot - dot + a(k)*b(k) 






10 continué 






return 




c 


•nd 






subroutine elalib(d,u,x,ix,t,s.p,i, j .k.iel.is») 


ela 1 


c. . 


..element library 


•la 2 




real*8 d(l) ,p(l) ,s(l) ,u(l) 


ela 3 




real x(l).t(l) 


•la 4 




integer*2 iz(l) 


•la 5 




coaaon /iofile/ ior.iow 


•la 6 


c. . 


..total elats loaded + 


•la 7 


c 


V 


•la 8 




if (iel. ge. 1. and. iel. le. 4) then 


•la 9 




if (isw.ge.3.and.isw.le.6) then 


•la 10 




cali pconsd(p.k.O.OdO) 


•la 11 




cali pconsd(s,k*k,0.0d0) 


•la 12 




endif 


•la 13 




if(iel.eq.l) then 


•la 14 




cali elntOKd.u.x.ix.t.s.p.i. j.k.isw) 


ela 15 




elseif (iel.eq.2) then 


ela 16 




cali elnt02(d,u,x,ix,t,s,p,i, j.k.isw) 


ela 17 




elseif (iel. eq. 3) then 


ela 18 




cali elmt03(d.u,x.ix,t»s.p,i, j.k.isw) 


ela 19 




elseif (iel. eq. 4) then 


ela 20 




cali •lat04(d,u,x,ix,t,s,p, i, j.k.isw) 


ela 21 




endif 


ela 22 




else 


ela 23 


400 


write(iow,4000) iel 


ela 24 




if(ior.lt. 0) write(*,4000) iel 


ela 25 




stop 


ela 26 




endif 


ela 27 




return 


ela 28 


4000 f oraatC **ERR0R** Elament type nunber',i3,' found.') 


•la 29 


c 


end 


•la 30 




subroutine pconsd(v,nn,cc) 


peo 1 


c. . . 


.zero real*8 array 


peo 2 




real*8 v(nn) ,cc 


peo 3 




do 100 n = l.nn 


peo 4 


100 


v(n) ■ ce 


peo 5 




return 




c 


end 


peo 7 




subroutine pconsi(,iv,nn,ic) 


peo 1 


c. . . 


. zero integer*2 array 


peo 2 




integer*2 iv(nn),ic 


peo 3 




do 100 n = l.nn 


peo 4 


100 


iv(n) " ic 


peo 5 




return 


peo 6 


c 


end 


peo 7 




subroutine pconsr (v.nn.cr) 


peo 1 


c . . . 


■zero real array 


peo 2 




real v(nn) 


peo 3 




do 100 n * 1 ,nn 


peo 4 
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100 


v(n) ■ cr 


peo 5 




return 


P " * 


c 


•nd 


peo 




subroutine pdisk(disk, files) 


pdi 1 


c. . 


. .s«t disk naae character 


pdi 2 




charact«r*l disk.f iles(l) 


pdi 3 




filas (1) - disk 


pdi 4 




return 


pdi 5 


c 


•nd 


pdi 6 




subroutine pend(subnaa) 


en 1 




character* 6 subnaa 


P en 2 




coaaon /iofile/ ior.iow 


P en 3 




«rite (iow. 4000) subnaa 


? en 4 




if(ior.lt.O) write(*,4000) subnaa 


P «n 5 




stop 


P "n 6 


4000 foraatC ** ERROR in '.a6,' ** and oí fila encounterad') 


P en 7 


c 




pen 8 




lllhrúutini narrnr f «ihnaa 
»uuiuui>iu« pvx x ux \ suuuu . y y / 


Dar 1 




chaxact er *80 yy , subnaa* 6 






coaaon /iofile/ ior.iow 


per 3 




vxita (ion . 4000) subnaa. yy 


p«r 4 




if (ior.gt.0) stop 






■iii>i\*iivwv; ouuuflji 


P «r 6 




return 


por i 


400C 


i foraatC ** ERROR in ',a6,' ** reinput last record: Ylx,a80) 


per 8 


c 


•nd 


D«r 9 




subroutine pgauss(l,lint,r,z,w) 


osa 1 


c. . . 


.gauss points and weights for two diaensions 


pea 2 

ro* * 




integer*2 lr(9) .lz(9) ,lw(9) 


DRa 3 

ro 




real*8 r(i) ,z(l) ,w(l) ,g.h 


oea 4 
ra" ' 




coaaon /eldata/ da.n.aa.act.iel.nel 


pee 5 
re* 




data lr/-l.l.l,-l,0.1.0.-1.0/.lz/-l, -1.1. 1,-1, 0.1. 0.0/ 


pea 6 




data lw/4*25,4*40,64/ 


P«a 7 

ro 




lint » 1*1 


pea 8 

ro 




go to (1.2.3).l 


pea 9 


c. . . 


. lxl integration 


pga 10 


1 


r(l) - 0. 


pga 11 




z(l) - 0. 


psa 12 
ro 




w(l) - 4. 


pea 13 

ro 




return 


osa 14 
re" 


c. . . 


.2x2 integration 


pga 15 


2 


g * 1.0/sqrt(3.d0) 


pga 16 




do 21 i - 1,4 


pga 17 




r(i) - g*lr(i) 


pga 18 




z(i) = g*lz(i) 


pga 19 


21 


w(i) = 1. 


pga 20 




return 


pga 21 


c . . . 


.3x3 integration 


pga 22 


3 


g « sqrt(0.60d0) 


pga 23 




h « 1.0/81.0d0 


pga 24 




do 31 i ■ 1,9 


pga 25 




r(i) - g*lr(i) 


pga 26 
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z(i) - g*lz(i) 


P6 a 


27 


31 


w(i) - h*lw(i) 


Pg* 


¿o 




return 


Pg a 


29 




end 


Pg a 


1C\ 
•5U 


c 


aubroutine phelp(wd,nwd, wrd, isw) 


P 8 


1 




charactar wd(nwd) *4, wrd*5 


P * 


2 




comfflon /iofile/ ior.iow 


P 8 


3 


c. . . 


. halp file for macro command list 


P * 


4 




if(ior.gt.O) return 


P e 


g 




ií(isw.eq.l) write(*,2000) 


phe 


6 




if(isw.ne.l) write(* ,2001) wrd 


phe 


7 




write(*,2002) wd 


phe 


8 




wnteC* ,2003; wrd 


phe 


9 




return 


P 8 


10 


2000 


formatí//' The following macro commands are available'// 




11 




1 ' use of loop must termínate with a matching next'// 


he 
P 8 


12 




2 ' múltiple loop - neit paira may occur up to depth of 8') 


P 


13 


2001 


format(//' The following a5 ,' commands are available:') 


P 8 


14 


2002 


f ormat {/B I3x , a4; ; 


P 8 


15 


2003 


formato/ Ierminate ,a&, execution wixn an ena conmano, j 


P 


16 




end 


phe 




c 


aubroutine psetm(na,nl,np,af 1) 


pse 


1 




logical afl 


pse 


2 




common /iofile/ ior.iow 


pse 


■a 
O 




common /psize/ maxm.ne 


pse 


4 


c. . . 


. set data management pointers for arraya 


pse 


c 
o 




na * ne 


pse 


5 




ne ■ na + nl*np + mod(4 - mod(nl*np,4) ,4) 


pse 






na - (na + np - l)/np - max(0 ,6-(np-l) *4) 


pse 


g 




afl = .false. 


pse 


9 




amx * maxm 


pse 


10 




amx - ne/amx 


pse 


11 




if (amx. gt. 0.90) write (* , 1001) ne, maxm, amx 




12 




if (ne. le. maxm) return 


use 


13 




write (iow, 1000) ne.maxm 


pse 


14 




if(ior.lt.O) write(*,1000) ne.maxm 


pse 


15 




stop 


pse 


16 


1000 


f ormat (2x, '**ERR0R** insufficient storage in blank common'/ 


pse 


17 




1 lOx, 'required =', i6/10x, 'available =', i6/) 


pse 


18 


1001 formatC **Memory warning** used ='.i6,' avail=',i6,' % =\Í6.3) 


pse 


19 




end 


pse 


20 


c 


aubroutine pstrea(sig,pl ,p2,p3) 


pst 


1 


c. . . 


.principal stresaes (2 dimensions) : sig * tau-xx,tau-xy ,tau-yy 


psx 


2 




real*8 aig(3) ,pl ,p2,p3 ,xil ,xi2,rho 


pst 


3 




xil - (sig(l) + aig(3))/2. 


pst 


4 




xi2 - (sig(l) - sig(3))/2. 


pst 


5 




rho » sqrt(xi2*xi2 + sig(2)*sig(2)) 


pst 


6 




pl - xil + rho 


pst 


7 




p2 = xil - rho 


pst 


8 




P 3 » 45.0 


pst 


9 




if (xi2.ne.0.0d0) p3 = 22. 5*atan2(sig(2) ,xi2)/atan(l .0d0) 


pst 


10 




return 


pst 


11 




end 


pst 


12 
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aubroutine saxpb (a,b,x,n,c) 

real*8 a(l) ,b(l) ,c(l) ,x 
..vector times scalar added to second vector 

do 10 k=l,n 

c(k) - a(k)*x +b(k) 
10 continué 



aax 
aax 
aax 









sax 7 








aax 8 


c 


subroutine shap2(s,t ,shp, ix,nel) 




sha 1 




. add quadratic functions as necessary 




aha 2 




real*8 shp (3 , 1 ) ,s , t , s2 , t2 




sha 3 




íntufflITt? írf 1 1 




sha 4 




s o = (\ -s*s) 11 




aha 5 




t2 = (1 -t*t)/2 




sha 6 




do 100 i=5,9 




sha 7 




Ho 100 i s 1 7 




sha 8 


100 


a>irt ( -i -i 1 = 0 0 

£>llfj V J , X J V . V 




sha 9 




.midside nodes (serendipity) 




sha 10 




if (ix(5) . eq. 0) go to 101 




sha 11 




shp(l,5) = -s*(l.-t) 




sha 12 




shp(2,5) = -s2 




sha 13 




shp (3, 5) = s2*(l.-t) 




sha 14 


101 


if (nel.lt. 6) go to 107 




sha 15 




■i -f ( -i -r ( 61 »n 01 do to 102 
41 V j.A\vy . o^. vy w a v * 




sha 16 




shp (1,6) = t2 




sha 17 




shp(2,6) = -t*(l.+s) 




sha 18 




shp(3,6) = t2*(l.+s) 




sha 19 


102 


if (nel.lt. 7) go to 107 




sha 20 




if (ix(7).eq.O) go to 103 




sha 21 




shp(l,7) = -s*(l.+t) 




sha 22 




shp(2,7) = s2 




sha 23 




shp(3,7) = s2*(l.+t) 




aha 24 


103 


if (nel.lt. 8) go to 107 




sha 25 




if (ix(8) .eq.0) go to 104 




sha 26 




shp(1.8) = -t2 




sha 27 




shp(2,8) = -t*(l.-s) 




sha 28 




shp(3,8) = t2*(l.-s) 




sha 29 


c . . . 


. interior node (lagrangian) 




sha 30 


104 


if (nel.lt. 9) go to 107 




sha 31 




if (ix(9).eq.0) go to 107 




sha 32 




shp(l,9) = -4.*s*t2 




sha 33 




shp(2,9) = -4.*t*s2 




sha 34 




shp(3,9) = 4.*s2*t2 




sha 35 


c. . . 


.correct edge nodes for interior node (lagrangian) 


sha 36 




do 106 j= 1.3 




sha 37 




do 105 i - 1.4 




sha 38 


105 


shp(j.i) = shp(j.i) - 0.25*shp(j,9) 




sha 39 




do 106 i = 5,8 




sha 40 


106 


if (ix(i) .ne.0) shp(j,i) = shp(j.i) - 


- ,5*shp(j,9) 


sha 41 


c . . . 


.correct córner nodes for présense of 


midside nodes 


sha 42 


107 


do 108 i = 1,4 




sha 43 




k = mod(i+2,4) + 5 




sha 44 




1 = i + 4 




sha 45 




do 108 j = 1,3 




sha 46 
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108 shp(j.i) - shp(j.i) - 0.5*(shp(j.k)+shp(j.l)) sha 47 

raturn sha 48 

•nd sha 49 

c 

subroutina shape(ss,tt .xl.shp.xsj ,nda,nel,ix,f lg) sha 1 

c shape function routine íor tso dimensional alaaants sha 2 

logical flg ,ha 3 

raal xKndm. 1) ,s(4) ,t (4) sha 4 

real*8 shp(3, 1) ,xs(2,2) ,sx(2,2) ,ss,tt,xsj ,tp sha 5 

integer*2 ix(l) sha 6 

data s/-.5, .5, .S.-.5/, t/-.5,-.5, .5, .5/ sha 7 

c....fora 4-noda quadrilataral shapa functions sha 8 

do 100 i - 1,4 sha 9 

shp(3,i) - (O.S+s(i)*ss)*(0.5+t(i)*tt) sha 10 

shp(l.i) - s(i)*(0.5+t(i)*tt) sha 11 

shp(2.i) - t(i)*(0.5+s(i)*ss) sha 12 

100 continua sha 13 

if(nel.eq.3) then sha 14 

c fora triangla by adding third and fourth togather sha 15 

do 110 i - 1,3 sha 16 

110 shp(i,3) - shp(i,3)+shp(i,4) sha 17 

•ndif sha 18 

e....add quadratic taras if nacassary sha 19 

if(nel.gt.4) cali shap2(ss,tt,shp, ix.nel) sha 20 

c . . . . construct jacobian and its inversa sha 21 

do 125 i ■ 1,2 sha 22 

do 125 j - 1,2 sha 23 

xs(i.j) - 0.0 sha 24 

do 120 k - l.nal sha 25 

xs(i.j) - xs(i.j) + xl(i,k)*shp(j,k) sha 26 

120 continua sha 27 

125 continua sha 28 

xsj - xs(l,l)*xs(2,2)-xs(l,2)*xs(2.1) sha 29 

ií(flg) raturn sha 30 

ií(xsj.la.O.OdO) xsj - 1.0 sha 31 

sx(l.l) = xs(2,2)/xsj sha 32 

sx(2,2) - xs(l,l)/xsj sha 33 

bx(1,2) *-xs(l,2)/xsj sha 34 

sx(2,l) — xs(2,l)/xsj sha 35 

c. . . . form global derivativas sha 36 

do 130 i - l.nal sha 37 

tp - shp(l,i)*sx(l,l)+shp(2,i)*sx(2,l) sha 38 

shp(2,i) - shp(l,i)*sx(l,2)+shp(2,i)*sx(2,2) sha 39 

shp(l.i) * tp sha 40 

130 continua sha 41 

raturn sha 42 

•nd sha 43 
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15.8.4 Módulos de solución de ecuaciones. El tipo de solucionador de 
ecuaciones para cada problema viene definido por el sistema seleccionado. 
Debe elegirse uno de las siguientes sistemas de solución de los archivos 
PASOLV.FOR o PFSOLV.FOR 

(a) El archivo PASOLV.FOR contiene el conjunto de subprogramas para 
resolver las ecuaciones mediante un método de perfil, de banda variable. El 
archivo contiene los siguientes subprogramas: 

Descripción 

Controla la solución de las ecuaciones 
Ensambla los vectores en la banda variable 
Resuelve las ecuaciones 
Realiza la descomposición triangular 
Calcula las diagonales, reducidas durante 
la descomposición 

Calcula los números de las ecuaciones y 
el perfil 



Nombre 


Tipo 


PSOLVE 


SUBRUTINA 


DASBLY 


SUBRUTINA 


DASOL 


SUBRUTINA 


DATRI 


SUBRUTINA 


DREDU 


SUBRUTINA 


PROFIL 


SUBRUTINA 



subroutina psolve(u,a,b,dr ,a,xa,s,ld,ig, idl.nst ,nrs,af ac ,solv, 
1 dyn,cl,ipd,rnora,aangy,ifl) 
c... activa eoluan asseably and solution oí aquations 
logical af ac,solv,dyn,f l,f a 
character*12 tfila 

real*8 u(l) ,a(l) ,b(l) ,dr(l) ,xm(l) ,s(nst, 1) .aangy .rnorn.dot 
intogar*2 a(l) ,ld(l) ,ig(l) ,idl(l) 
comaon /cdata/ nuanp,nuaal,nuamat ,nan,naq 
comaon /fdata/ fl(ll) 
coaaon /iofila/ ior,io« 
coanon /teafll/ tfila (6) 
comaon /temí 12/ itrac (4) ,nwl ,nw2 
data f a/. falsa./ 
c. . . .fora and assembla the matriz 
if(afac) than 
ií(íl(4)) then 

ibuf » ig(naq)+naq 

ií(ibuf .gt.8000) stop 'proíila too larga' 
itrac (1) = ibuf*8 

opan (4,f ile=tíila(l) .status^new' ,access='direct ' , 
1 forn= 'unloraatted' ,racl=itrac(D) 

cióse (4) 
fl(4) - fa 
endif 

cali pconsd(a,ibuf ,0.0d0) 
c. . . .aodify tangant íora lumped nass offects 
if(dyn) then 

do 310 n " l.neq 
a(n) = cl*xa(n) 
310 continua 
endif 

do 320 n = l.numel 



pso 
pso 
pso 
pso 
pso 
pso 
pso 
pso 
pso 
pso 10 
pso 11 
pso 12 
pso 13 
pso 14 
pso 15 
pso 16 
pso 17 
pso 18 
pso 19 
pso 20 
pso 21 
pso 22 
pso 23 
pso 24 
pso 25 
pso 26 
pso 27 
pso 28 
pso 29 
pso 30 
pso 31 
pso 32 
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c . . . 


compute and assemble element arrays 


pso 


33 




ne - n 


pso 


34 




cali formfe(u,dr, .true. ,solv,fa,fa,3,ne,ne,l) 


pso 


35 




ifiior.lt. 0 .and. mod(n,20) .eq.O) write(* ,2000) n 


pso 


36 




cali dasbly(s,s,ld.ig,nst ,f a.af ac.fa.dr ,a(neq+l) ,a(neq+l) ,a) 


pso 


37 


320 


cont inue 


pso 


38 




rnorm ■ sqrt (dot (dr.dr.neq)) 


pso 


39 




cali datri(a(neq+l) ,a(neq+l) .a.ig.neq, .false.) 


pso 


40 




cali phst io (4 , 1 , a, ibuf , 2 ,tf ile (1) ,itrec(l)) 


pso 


41 




endif 


pso 


42 




if(solv) then 


pso 


43 




if (.not.afac) cali phstio(4, 1 .a.ibuf , 1 ,tf ile (1) ,itrec(D) 


pso 


44 




do 330 n * 1 ,nrs 


pso 


45 




ne * (n-l)*neq + 1 


pso 


46 




cali dasol(a(neq+l) ,a(neq+l) ,a,dr(ne) , ig.neq, aengy) 


pso 


Af 


330 


cont inue 


pso 


48 




endif 


pso 


49 




return 


pso 


50 


2000 


f ormat(5x, '**' ,i4, 1 elements completad.') 


pso 


51 


2001 


format(i4,' Elmts completed. ') 


pso 


52 




end 


pso 


53 


c 


subroutine dasbly(s.p,ld, jp.ns.alfl.aufl.bf 1, b.al.au.ad) 


das 


1 




implicit real*8 (a-h,o-z) 


das 


2 


c . . . 


.assemble the symmetric or unsynunetric arrays for 'dasol' 


das 


3 




logical alf l.aufl.bíl 


das 


4 




integer*2 ld(ns),jp(l) 


das 


5 




real*8 al(l) ,au(l) »ad(l) ,b(l) ,s(ns,ns) ,p(ns) 


das 


6 


c . . . 


.loop through the rows to perform the assembly 


das 


7 




do 200 i = l.ns 


das 


8 




ii = ld(i) 


das 


9 




if(ii.gt.O) then 


das 


10 




if(aufl) then 


das 


1 1 


c . . . 


.loop through the columns to perform the assembly 


das 


12 




do 100 j = l.ns 


das 


13 




if (ld(j).eq.ii) then 


das 


-1 A 

14 




ad(xi) - ad(ix) + s(i,j) 


das 


15 




elseif (ld(j) .gt.ii) then 


das 


16 




je = ld(j) 


das 


17 




jj = ii + jp(jc) - je + 1 


das 


18 




au(jj) = au(jj) + s(i,j) 


das 


19 




íftalfl) alCjj; = al(.jj; + stj.i; 


aas 


or> 
¿\) 




endif 


das 


21 


100 


cont inue 


aas 


oo 
¿¿ 




endif 


das 


23 




if (bfl) b(ii) = b(ii) + p(i) 


das 


24 




endif 


das 


25 


200 


continué 


das 


26 




return 


das 


27 




end 


das 


28 


c 


subroutine dasol(al,au,ad,b, jp.neq, energy) 


das 


1 




implicit real*8 (a-h,o-z) 


das 


2 


c . . . 


.solution of symmetric equations stored in profile form 


das 


3 


c . . . 


.coefficient matrix must be decomposed into its triangular 


das 


4 
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c. . . 


.factors using datri before using dasol. 






das 


5 








integer*2 jp(l) 


das 


6 




real*8 al(l) .au(l) ,ad(l) ,b(l) 


das 


7 




common /iofile/ ior.iow 


das 


8 




data zero/0.0d0/ 


das 


9 


c . . . 


.f ind the f irst nonzero entry in the right hand side 


das 


10 




do 100 is - l.neq 


das 


11 




if (b(is) .ne.zero) go to 200 


das 


12 


100 


continué 


das 


13 




write(iow,2000) 


das 


14 




if(ior.lt.O) write(*,2000) 


das 


15 




return 


das 


16 


200 


if (is.lt. neq) then 


das 


17 


c. . . 


.reduce the right hand side 


das 


18 




do 300 j = is+l,neq 


das 


19 




jr * jp(j-l) 


das 


20 




jh - jp(j) - jr 


das 


21 




if(jh.gt.O) then 


das 


22 




b(j) = b(j) - dot(al(jr+l).b(j-jh),jh) 


das 


23 




endif 


das 


24 


300 


continué 


das 


25 




endif 


das 


26 


c. . . 


.multiply by inverse of diagonal elements 


das 


27 




energy = zero 


das 


28 




do 400 j = is.neq 


das 


29 




bd - b(j) 


das 


30 




b(j) = b(j)*ad(j) 


das 


31 




energy = energy + bd*b(j) 


das 


32 


400 


continué 


das 


33 


c. . . 


.backsubstitution 


das 


34 




if(neq.gt.l) then 


das 


35 




do 500 j = neq, 2,-1 


das 


36 




jr = jp(j-l) 


das 


37 




jh = jp(j) - jr 


das 


38 




if(jh.gt.O) then 


das 


39 




cali saxpb(au(jr+l),b(j-jh).-b(j),jh, b(j-jh)) 


das 


40 




endif 


das 


41 


500 


continué 


das 


42 




endif 


das 


43 




return 


das 


44 


2000 formatC ***DASQL WARMING 1*** Zero right-hand-side vector') 


das 


45 




end 


das 


46 


c 


subroutine datest (au, jh.daval) 


dat 


1 




implicit real*8 (a-h,o-z) 


dat 


2 




real*8 au(jh) 


dat 


3 


c . . 


. .test for rank 


dat 


4 




daval = O.OdO 


dat 


5 




do 100 j = l.jh 


dat 


6 




daval - daval + abs(au(j)) 


dat 


7 


100 


continua 


dat 


8 




return 


dat 


9 




end 


dat 


10 


c 


subroutine datri(al,au, ad.jp, neq, flg) 


dat 


1 
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implicit real*8 (a-h,o-z) 


dat 


2 


C. . . 


..triangular decomposition oí a matriz stored in profile form 


dat 


3 




logical flg 


dat 


4 




integer*2 jp(l) 


dat 


5 




real*8 al(l),au(l).ad(l) 


dat 


6 




coBDon /iofile/ ior.iow 


dat 


7 


c . . . 


.n.b. tol should be set to approximate half-word precisión. 


dat 


8 




data zero,one/0.0d0,1.0d0/, tol/0.5d-07/ 


dat 


9 


c. . . 


.set initial valúes for conditioning check 


dat 


10 




dimr - zero 


dat 


11 




dimn " zero 


dat 


12 




do 50 j - l.neq 


dat 


13 




dimn - max(dimn,abs(ad(j))) 


dat 


14 


50 


continua 


dat 


15 




dfig = zero 


dat 


16 


c. . . 


.loop through the columns to perform the triangular decomposition 


dat 


17 




jd - 1 


dat 


18 




do 200 j = l.neq 


dat 


19 




jr * jd + 1 


dat 


20 




jd * jp(j) 


dat 


21 




jh - jd - jr 


dat 


22 




if (jh.gt.0) then 


dat 


23 




is ■ j - jh 


dat 


24 




ie - j - 1 


dat 


25 


c. . . 


.ií diagonal is zero compute a norm for singularity test 


dat 


26 




if (ad(j) .eq.zero) cali datest (au( jr) , jh , daval) 


dat 


27 




do 100 i = is.ie 


dat 


28 




jr = jr + 1 


dat 


29 




id » jp(i) 


dat 


30 




ih = min(id-jp(i-l) ,i-is+l) 


dat 


31 




if(ih.gt.O) then 


dat 


32 




jrh = jr - ih 


dat 


33 




idh = id - ih + 1 


dat 


34 




au(jr) = au(jr) - dot (au( jrh) , al(idh) , ih) 


dat 


35 




if(flg) al(jr) = al(jr) - dot(alíjrh) ,au(idh) ,ih) 


dat 


36 




endií 


dat 


37 


100 


cont inue 


dat 


38 




endií 


dat 


39 


c . . . 


.reduce the diagonal 


dat 


40 




ií(jh.ge.O) then 


dat 


41 




dd = ad(j) 


dat 


42 




jr = jd - jh 


dat 


43 




jrh = j - jh - 1 


dat 


44 




cali dredu(al(jr),au(jr),ad(jrh),jh+l,flg ,ad(j)) 


dat 


45 


c . . . 


.check íor possible errors and print saxnings 


dat 


46 




if (abs(ad(j)) .lt.tol*abs(dd)) write (iow, 2000) j 


dat 


47 




if (dd.lt. zero. and. ad(j).gt. zero) write (iow, 2001) j 


dat 


48 




if(dd.gt. zero. and. ad(j) .lt.zero) write (iow, 2001) j 


dat 


49 




if(ad(j) .eq. zero) write (iow, 2002) j 


dat 


50 




ií(dd. eq.zero. and. jh.gt.0) then 


dat 


51 




if (abs(ad(j)) .lt.tol*daval) write(iow,2003) j 


dat 


52 




endií 


dat 


53 




if(ior.lt.O) then 


dat 


54 




if (abs(ad(j)) . lt .tol*abs(dd) ) write (*. 2000) j 


dat 


55 




if (dd.lt. zero. and. ad(j).gt. zero) write (* ,2001) j 


dat 


56 




if (dd.gt. zero. and. ad(j) .lt.zero) write(*,2001) j 


dat 


57 
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if(ad(j) .eq. zero) write(* ,2002) j 


dat 


58 




if(dd. eq.zero. and. jh.gt.0) then 


dat 


59 




if (abs(ad(j)) . lt .tol*daval) write(*,2003) j 


dat 


60 




endif 


dat 


6 1 




endií 


dat 


62 




endif 


dat 


63 


c. . . 


.store reciprocal oí diagonal, compute condition checks 


dat 


64 




if (ad(j) .ne .zero) then 


dat 


65 




dimz = max(dimz,abs(ad(j))) 


dat 


66 




dimn ■ min(dimn,abs(ad(j))) 


dat 


67 




dfig = maz(df ig,abs(dd/ad(j))) 


dat 


68 




ad(j) = one/ad(j; 


u&X 


o» 




endif 


dat 


70 


200 


continué 


dat 


71 


c . . . 


.print conditioning information 


dat 


72 




dd = zero 


dat 


73 




ií (dimn. ne .zero) dd = dimr /dimn 


dat 


74 




ííig — diogiiHaiig; + u.o 


dat 


75 




write (iow, 2004) dimx,dimn,dd,if ig 


dat 


76 




if(ior.lt.O) write(*,2004) dimx.dimn.dd, if ig 


dat 


77 




return 


dat 


78 


c. . . 


. forma ts 


dat 


79 


2000 


formatC ***DATRI VARNING 1*** Loss oí at least 7 digits in', 


dat 


80 




1 ' reducing diagonal of equation' ,i5) 


dat 


81 


2001 


formatC ***DATRI VARNING 2*** Sign of diagonal changad when', 


dat 


82 




1 ' reducing equation' , i5) 


dat 


83 


2002 


formatC ***DATRI WARNING 3*** Reduced diagonal is zero for', 


dat 


84 




1 ' equation' ,i5) 


dat 


85 


2003 


íormatC ***DATRI VARNING 4*** Rank failure for zero unreduced ' , 


dat 


86 




1 ' diagonal in equation' ,i5) 


dat 


87 


2004 


formatC Condition check: D-max ' ,ell .4, ' ; D-min ' , el 1 . 4 , 


dat 


88 




1 »; Ratio' ,ell.4/' Máximum no. diagonal digits lost:',i3) 


dat 


89 


2005 


formatCCond ck: Dmax ' , lple9 . 2 , • ; Dmin' , lple9 . 2, ' ; Ratio '. Iple9 . 2)dat 


90 




end 


dat 


Q 1 


c 


subroutine dredu(al,au,ad, jh.f lg ,dj) 


dre 






implicit real*8 (a-h,o-z) 


dre 


2 


c . . . 


.reduce diagonal element in triangular decomposition 


dre 


3 




logical flg 


dre 


^ 




real*8 al ( jh) , au( jh) ,ad( jh) 


dre 


5 




do 100 j = l,jh 


dre 


6 




ud = au(j)*ad(j) 


dre 


7 




dj = dj - al(j)*ud 


dre 


8 




au(j) * ud 


dre 


9 


100 


continué 


dre 


10 


c . . . 


.finish computation of column of al íor unsynunetric matrices 


dre 


11 




if(flg) then 


dre 


12 




do 200 j = l.jh 


dre 


13 




al(j) = al(j)*ad(j) 


dre 


14 


200 


continué 


dre 


15 




endif 


dre 


16 




return 


dre 


17 




end 


dre 


18 


c 


subroutine profil ( jd , idl , id.ix.ndf ,nenl) 


pro 


1 




implicit real*8 (a-h,o-z) 


pro 


2 
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c compute profile of global arrays pro 3 

integer*2 jd(l) ,idl( 1) . idíndf . 1) ,ix(nenl . 1) pro 4 

common /cdata/ numnp,numel,nummat,nen,neq pro 5 

common /frdata/ maxf pro 6 

common /ioíile/ ior.iow pro 7 

c. . . .set up the equation numbers pro 8 

neq - 0 pro 9 

nneq - ndf*numnp P ro 10 

do 10 n ■ l.nneq pr° 11 

j - id(n.l) P" 12 

if(j.eq.O) then pro 13 

neq - neq + 1 pro 14 

id(n,l) = neq pro 15 

else Pro 16 

id(n.l) = 0 Pro 17 

endif Pro 18 

10 continué pro 19 

c. . . .compute column heights pro 20 

cali pconsi(jd.neq.O) pro 21 

do 50 n - l.numel pro 22 

BB . o Pro 23 

nad » 0 pro 24 

do 30 i * l.nen pro 25 

ii - iabs(ix(i,n)) pro 26 

if(ii.gt.O) then pro 27 

do 20 j « l.ndf pro 28 

jj = id(j,ii) Pro 29 

if(jj.gt.O) then pro 30 

if(mm.eq.O) mm = jj pro 31 

mm = min(mm,jj) pro 32 

nad - nad + 1 pro 33 

idl(nad) = jj pro 34 

endif Pro 35 

20 continué pro 36 

endif Pro 37 

30 continué pro 38 

if(nad.gt.O) then pro 39 

do 40 i = l.nad pro 40 

ii = idl(i) Pro 41 

jj = jd(ii) pro 42 

jd(ii) = max(j j.ii-mm) pro 43 

40 continué pro 44 

endif Pro 45 

50 continué pro 46 

c. .. .compute diagonal pointers for profile pro 47 

nad = 0 Pro 48 

jd(l) = 0 Pro 49 

if(neq.gt.l) then P" 50 

do 60 n = 2, neq pro 51 

jd(n) = jd(n) + jd(n-l) pro 52 

60 continué pro 53 

nad = jd(neq) pro 54 

endif Pro 55 

c....set element search order to sequential pro 56 

do 70 n = l.numel pro 57 

idl(n) = n P" 58 
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70 continué 
c. . . .equation summary 
maif ■ 0 

if(neq.gt.O) mm » (nad+neq)/neq 

write(iow,2001) neq.numnp.mm.numel.nad.nummat 

if(ior.lt.O) write(*,2001) neq,numnp,mm.numel,nad,nv 

return 

end 



pro 59 
pro 60 
pro 61 
pro 62 
pro 63 
pro 64 
pro 65 
pro 66 
pro 67 



(b) El archivo PFSOLV.FOR contiene el conjunto de subprogramas para 
resolver las ecuaciones por el método frontal. El archivo contiene los 
siguientes subprogramas: 



Nombre Tipo 

PSOLVE SUBRUTINA 
PBUFF SUBRUTINA 



PFRTAS 

PFRTBK 

PFRTB 

PFRTD 

PFRTFW 

PFRTF 

PREFRT 



SUBRUTINA 
SUBRUTINA 
SUBRUTINA 
SUBRUTINA 
SUBRUTINA 
SUBRUTINA 
SUBRUTINA 



PROFIL SUBRUTINA 



Descripción 

Controla la solución de las ecuaciones 
Controla las operaciones entrada/salida de 
disco 

Ensambla los vectores en el frente 
Solución por sustitución hacia atrás 
Macro de sustitución hacia atrás 
Descomposición triangular 
Solución hacia adelante 
Macro de solución hacia adelante 
Calcula el orden de las ecuaciones 
en el frente 

Calcula los números de las ecuaciones 
y el tamaño del frente 



$N0FL0ATCALLS 

subrout ine psolve (u,a,b,dr,m,xm,s,ld,ig, idl , nst , nrs , af ac , so 1 v , 
1 dyn,cl,ipd,rnorm,aengy,ifl) 
c... frontal assembly and solution of equations 
logical af ac.solv.dyn.f l.f a 
character*12 tfile 

real*8 u(l) ,a(l) ,b(l) ,dr(l) ,rm(l) ,s(l) ,dimx,dimn,r,rnorm,aengy 
integer*2 m(l) ,ld(l) ,ig(l) ,idl(l) 
common /cdata/ numnp.numel.nummat ,nen,neq 
common /fdata/ fl(ll) 
common /frdata/ maxf 
common /iofile/ ior.iow 
common /nfrta/ dimi,dimn,nv,npl 
common /temfll/ tfile(6) 
common /temfl2/ itrec (4) , nwl ,nw2 
data fa/.false./ 
c. . .set control data and zero 
if ( .not .afac) go to 400 
if(fl(4)) then 

nal= 1 + (maxf* (maxf +3) )/2 

if (nal+maxf .gt.8000) stop 'front too large ' 
ibuf = (min(8000 - nal , (maxf +2)*neq) )*4 



pso 1 
pso 2 
pso 3 
pso 4 
pso 5 
pso 6 
pso 7 
pso 8 
pso 9 
pso 10 
pso 11 
pso 12 
pso 13 
pso 14 
pso 15 
pso 16 
pso 17 
pso 18 
pso 19 
pso 20 
pso 21 
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itrec(l) - ibuf*2 + 4 

open (4,f ile-tf ile(l) ,status«'nea' ,access= 'direct ' , 
1 fora»'unforaatted' ,recl~itrec(l) ) 

cióse (4) 
fl(4) - ía 
•ndif 

cali pconsd(a,Baxf*(aaxf+l)/2,0.0d0) 

cali pconsd(b,aaxf .O.OdO) 

ig(l)-l 

ig(aaxf+l)»0 

do 100 n-2,aaxf 

ig(n)-ig(n-l)+n 

ig(aaxf+n)«0 
100 continua 

c....b*gin loop through eleaents to perfora íront solution 
np » 0 
nv - 0 
nfrt- 0 
diax -0.0 
dimn ■ 0.0 
mora «0.0 
c... íront al eliaination prograa 

do 320 n » l.nuael 
c...pick next eleaent 

ne - idl(n) 
c...coapute eleaent arraya 

cali íoraíe(u,dr, .true. , solv ,f a ,f a, 3 ,ne ,ne , i) 
ifCior.lt.O .and. aod(n,20) .eq.0) writ«(*,2000) n.nfrt 
c . . . . asseable eleaent and determine eliainations 

cali pf rt as (a , s , Id , ig , ig (aaxf +1 ) , ie , aaxí , nfrt , nst ) 
ií(ie.ne.O) then 
c . . . eliainate equations 
do 310 i=l,ie 
k-ld(i) 

j j — ig(aaxf+k) 
if(solv) then 

rnora - rnora + dr(jj)**2 

r»b(k)+dr(jj) 

dr(jj) - r 
endií 

if(dyn) then 
ii » ig(k) 

a(ii) = a(ii) + cl*xa(jj) 
endif 

if (np+8+nfrt*ipd.gt.ibuf ) then 
cali pbuíf (a.ibuf ,np,nv,2.if 1) 
•ndif 

a(np+l) = nfrt 
a(np+2) - k 
a(np+3) = jj 

cali pfrtd(a,b,r,ig,ig(aaxf+l) ,solv,a(np+5) .nfrt.k) 
c. align last word of buffer for backsubstitution reads 

np = np + 8 + nfrt*ipd 

a(np) = nfrt 

nfrt = nfrt - 1 
310 continué 









endif . • ♦ ■ 


oso 


78 


pso 


22 


c . . . i 


snd of forward elxaxnation and trxangularxzatxon 


pso 


79 


pso 


23 


320 


cont inue 






pso 


24 




rnora 15 sqrt (rnora) 






pso 


25 










pso 


26 




if (dian . ne . 0 . OdO) rxa — diax/dian 






pso 


27 




if (ior.lt. 0) write (* , 2001) diax t dian,rxa 






pso 


28 










pso 


29 




clear buffer one last tiae 






pso 


30 




if (np.gt.0) cali pbuf f (a, ibuf , np,nv , 2 , if 1) 






pso 


31 




go to 500 






pso 


32 




forward and back substitutions for solution 






pso 


33 


400 


if(solv) cali pfrtfw(b.dr,a, ipd, ibuf .aaxf .nv.neq.nrs. if 1) 






pso 


34 


500 


if(solv) cali pfrtbk(b,dr,a,ipd,ibuf ,aaxf .nv.neq.nrs.aengy.if 1) 






pso 


35 




return 






pso 


36 


2000 


foraat(5x, '**' ,i4, ' eleaents coapleted. Current front width is 


1 

> 




pso 


37 




1 i4) 






pso 


38 


2001 


foraat(5x, 'Condition check: D-aax' .lplell.4, * ; D-ain' , lplell .4, 






pso 


39 




1 »; Ratio', lplell.4) 






pso 


40 


2002 


foraat(i4,' Elats coapleted. Current front width is',i4) 






pso 


41 


2003 


foraatCCond ck: Daax' ,lple9.2, 1 ; Dain' , lple9 .2. ' ; Ratio ' , lple9 . 2) 




pso 


42 










pso 


43 


C 








pso 


44 




subrout ÍH6 pbuf f (n J ibuf , ilast »nv 9 is # if 1) 


pbu 


1 


pso 


45 


c. . . 


.tape input/output routin6 for frontal program 


pbu 


2 


pso 


46 






pbu 


3 


pso 


47 




real*8 diax.dian 


pbu 


4 


pso 


48 




character*12 tfile 


pbu 


5 


pso 


49 




coaaon /nfrta/ diax.dian.nvp.npl 


pbu 


6 


pso 


50 




coaaon /teafll/ tfile(6) 


pbu 


7 


pso 


51 




coaaon /teafl2/ itrec (4) ,nwl ,ns2 


pbu 


8 


pso 


52 




open (4 , f ile=tf ile ( if 1) , access= * direct ' ,recl=itrec ( if 1 ) ) 


pbu 


9 


pso 


53 




.read record 'nv' froa the file 


pbu 


10 


pso 


54 




if(is.eq.l) then 


pbu 


11 


pso 


55 




read(4,rec=nv,end=901 ,err=902) ilast, a 


pbu 


12 


pso 


56 




. write record 'nv' from the file 


pbu 


13 


pso 


57 




elseif (is.eq.2) then 


pbu 


14 


pso 


58 




nv ■ nv + 1 


pbu 


15 


pso 


59 




if(nv.eq.l) npl = ilast 


pbu 


16 


pso 


60 




write(4,rec=nv,err=901) ilast, a 


pbu 


17 


pso 


61 




ilast = 0 


pbu 


18 


pso 


62 




endif 


pbu 


19 


pso 


63 




close(4) 


pbu 


20 


pso 


64 




return 


pbu 


21 


pso 


65 




.error messages 


pbu 


22 


pso 


66 


901 


write(*,4000) 


pbu 


23 


pso 


67 




stop 


pbu 


24 


pso 


68 


902 


cali pendCPBUFF ') 


pbu 


25 


pso 


69 




stop 


pbu 


26 


pso 


70 


4000 


foraatC ** ERROR IN PBUFF ** records do not aatch problea?') 


pbu 


27 


pso 


71 




end 


pbu 


28 


pso 


72 


c 








pso 


73 




subrout ine pf r t as ( a , s , Id , ig , lg , ie , aaxf , nfrt , nst ) 


pfr 


1 


pso 


74 


c . . . 


. asseably and eliaination deteraination for frontal prograa 


pfr 


2 


pso 


75 




real*8 a(l) ,s(nst , 1) 


pfr 


3 


pso 


76 




integer*2 ld(l) ,ig(l) ,lg(l) 


pfr 


4 


pso 


77 
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c..,convert Id to front order 
do 203 j-l.nst 
ii-absUd(j)) 
i - 0 

c...check if ii is already in list 
if(ii.ne.O) then 
if (nfrt.ne.O) then 
do 200 i«l,nfrt 

if (ii.eq.abs(lg(i))) go to 202 
200 continué 
endif 

c . . . assign ii to next available entry and increase front width 
nfrt - nfrt + 1 
i ■ nfrt 

c...replace destination valué by new valué 

202 lg(i)«ld(j) 
c...set Id for assembly 

ld(j)«i 
endif 

203 continué 

c . . . ssseable element into front 
do 205 j ■ 1 ,nst 
k - abs(ld(j)) 
if(k.gt.O) then 
1 » ig(k) - k 
do 204 i - l.nst 
■ - abs(ld(i)) 

if<a.gt.O .and. m.le.k) a(m+l) - a(m+l) + s(i,j) 

204 continué 
endif 

205 continué 

c...set up equations to be eliminated 
ie»0 

do 206 i - nfrt, 1,-1 
if (lg(i) .lt.0) then 

ie ■ ie + 1 

ld(ie) = i 
endif 

206 continué 
return 
end 

c 

subroutine pf rtbk(b,dr ,m, ipd.ibuf ,maxf ,nv,neq,nev,aengy, if 1) 
c. . . .backsubstitution for frontal solution 

real*8 b(maxf ,1) ,dr(neq,l) , aengy , dimx , dimn 
integer*2 a(l) 

common /nfrt a/ dimx.dimn.nvp.npl 
cali pconsd(b,maxf *nev,0.0d0) 
aengy "0.0 
c. . . .recover block 
np « npl 

do 503 n = nv,l,-l 

if(nv.gt.l) cali pbuff (m.ibuf .np.n.l.ifl) 
501 nfrt ■ m(np) 

np * np - 8 - nfrt*ipd 
k - aCnp+2) 



pfr 5 




jj - m(np+3) 


pfr 15 


pfr 6 




do 502 i ■ l.nev 


pfr 16 


pfr 7 




cali pf rtMMl ,i) ,drv.l , i; ,nfrt,k,jj ,m(.np+t; , aengy; 


pfr 17 


pír o 


502 


continué 


pfr 18 


pfr 9 




if(np.gt.O) go to 501 


pfr 19 


pír íu 


503 


continué 


pfr 20 


pfr 1 1 




return 


pfr 21 


pfr 12 




end 


pfr 22 


pfr 13 


c 






pfr 14 




subrout ine pf rtb (b , dr , nfrt , k , j j , eq , aengy) 


pfr 1 


pfr 15 


c . . . 


, .backsubstitution sacro for frontal prograa 


pfr 2 


pfr 16 




rea±*o b(. l J ,arllj ,eqiij ,aot , aengy 


pxr o 


pfr 17 


c. . . 


expand b array 


pfr 4 


pír id 




kk ■ nfrt 


pfr 5 


pxr ij» 


500 


iflkk.le.kj go to 501 


pfr 6 


pfr 20 




DlXEj ■ D(.kk - 1,) 


pxr i 


pfr 21 




kk ™ kk - 1 


pfr 8 


pfr 22 




go to 500 


pxr v 


pfr 23 


501 


b(k) — 0.0 


pxr íu 


pxr ¿t 


c. . . 


extract pivot and solve , also compute energy 


pfr 11 


pfr 25 




aengy * aengy + dr ( j j ) **2/eq(k) 


pxr i z 


pxr ¿o 




dr(jj)=(dr(jj)-dot(eq,b,nfrt))/eq(k) 


pfr 13 


pxr ¿ i 




b(k) » dr(jj) 


pfr 14 


pfr 28 




return 


pfr 15 


pfr 29 




end 


pfr 16 


pír <ju 


c 






pfr 31 




• 

subrout ine pf r td ( a , b , r , ig , lg , s o 1 v , eq , nf r t , k ) 


pxr i 


pfr 32 


c. . . 


.triangular decomposition for frontal prograa 


pfr 2 


pfr 33 




logical solv 


pfr 3 


pfr 34 




real* o *.\x) , ovi; , eqv, i) , aimx.aimn , pivot ,term ,r 


pfr 4 


pfr 35 




integer*2 ig(l),lg(l) 


pfr 5 


pfr 36 




common /nfrt a/ dimx , dimn, nv, npl 


pfr 6 


pfr 37 


c . . . 


extract equation 


nf-r 7 
pxr ( 


pfr 38 




do 301 j— l,nirt 


pfr 8 


pfr 39 




1 ■ max(j ,k) 


pxr ? 


pfr 40 




l»igvi;-i+minvj ,t) 


pfr 10 


pfr 41 




eqlj;~a(lj 


pxr 1 1 


pfr 42 


301 


continué 


pfr 12 


pxr t o 




pivot=eq(k) 


pfr 13 


pfr 44 




if (pivot. eq.O.OdO) then 


pfr 14 


pfr 45 




cali pconsd(eq,nfrt , 0 . OdO) 
write(*,2000) 


pfr 15 
pfr 16 


pfr 1 




pivot ■ 1.0 


pfr 17 


pxr ¿ 




eq(k) " 1.0 


pfr 18 


pfr 3 




•181 


pfr 19 


pfr 4 




dimx m max (dimx , abs (pivot ) ) 


pfr 20 


pfr 5 




if (dimn. eq.O.OdO) dimn - abs (pivot) 


pfr 21 


pfr 6 




dimn » min(dimn, abs (pivot)) 


pfr 22 


pfr 7 




endif 


pfr 23 


pfr 8 




km - k - 1 


pfr 24 


pfr 9 




kp - k + 1 


pfr 25 


pfr 10 




kk = 1 


pfr 26 


pfr 11 




if(km.gt.O) then 


pfr 27 


pfr 12 




do 302 jj - l.km 


pfr 28 


pfr 13 




if (eq(j j) .ne.O.OdO) then 


pfr 29 


pfr 14 




term = -eq(jj) /pivot 


pfr 30 
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if fsnl vi h ( -i i 1 = h ( -i 4 4> t arm*r 
nvoüiv; Ü ^JJ' U ^JJ' i* tai m^¿ 


pír 


31 


cali saxpb(eq, a(kk) ,term, j j ,a(kk)) 


Dfr 


32 




Dfr 


33 


kk ■ iff(ii) + 1 


Dfr 


34 


cont inue 


Dfr 
pír 


35 




Dfr 


36 


kk = ig(k) + 1 


pfr 


37 


if (kp. le. nfrt) then 


Dfr 


38 


do 303 jj = kp.nfrt 


pfr 


39 


ln(ii-l) = 1k(ü) 


Dfr 


40 


kl = kk - ii 

JJ 


Dfr 


41 


term = -eq( j j)/pivot 


Pfr 


42 


if(solv) b(jj-l) ■ b( j j ) + tera*r 


pfr 


43 


cali saxpb(eq(kp) , a(kk+k) ,tera, j j-k,a(kl+k)) 


pfr 


44 


if(kn.gt.O) then 


pfr 


45 


kl = kl + 1 


Pfr 


46 


cali saxpb (eq, a(kk) , term, km, a(kl)) 


nfr 
pír 


47 


endif 


pfr 


48 


kk = ig(jj) + 1 


pfr 


49 


continué 


pfr 
r" 


50 




Dfr 
P lr 


51 


cali pconsd(a(kk-nf rt) ,nfrt,0.0d0) 


pfr 


52 


b(nfrt) =0.0 


pfr 


53 


lg(nfrt) = 0 


pfr 


54 




Dfr 


55 


format(' VARNING — Zero pivot, check boundary codes. '/ 


pfr 


56 


1 Pivot set to 1.0 and solution continuad.') 


pfr 


57 


end 


pfr 


58 


subroutine pf rtf w(b,dr ,m, ípd.ibuf ,aaxf ,nv,neq,nev,if 1) 


pfr 


1 


. forwaxd solution for frontal resolutions 


pfr 


2 


real*8 b(aaxf , 1) ,dr(neq, 1) 


pfr 


3 


integer*2 a(l) 


pfr 


4 


cali pconsd(b ,aaxf *nev,0.0d0) 


pfr 


5 


do 403 n = l.nv 


pfr 


6 


cali pbuff (a.ibuf , ilast ,n, 1 , ifl) 


pfr 


7 


np = 1 


pfr 


8 


nfrt = m(np) 


pfr 


9 


k = m(np+l) 


pfr 


10 


jj = m(np+2) 


pfr 


11 


do 402 i = l.nev 


pfr 


12 


cali pfrtf (b(l,i) ,dr(l,i) .nfrt.k, j j ,m(np+4)) 


pfr 


13 


continué 


pfr 


14 


align last word of buffer for backsubstitution reads 


pfr 


15 


np = np + 8 + a(np)*ipd 


pfr 


16 


if (np.lt. ilast) go to 401 


pfr 


17 


continué 


pfr 


18 


return 


Pfr 


19 


end 


pfr 


20 


subroutine pfrtf (b,dr,nfrt ,k, j j ,eq) 


pfr 


1 


.forward elimination macro for front prograa 


pfr 


2 


real*8 b(l) ,dr(l) ,eq(l) ,r 


pfr 


3 


dr(jj) = dr(jj) + b(k) 


pfr 


4 


r = dr(jj)/eq(k) 


pfr 


5 


ka - k - 1 


Pfr 


6 
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kp - k + 1 
if(km.gt.O) then 
do 402 ii = l.ka 

b(ii) = b(ii) - eq(ii)*r 
402 continué 
endif 

if (kp. le. nfrt) then 
do 404 ii = kp.nfrt 

b(ii-l) = b(ii) - eq(ii)*r 
404 continué 
endif 

b(nfrt) =0.0 

return 

end 



pfr 7 
pfr 8 
pfr 9 
pfr 10 
pfr 11 
pfr 12 
pfr 13 
pfr 14 
pfr 15 
pfr 16 
pfr 17 
pfr 18 
pfr 19 
pfr 20 



100 

c . . 



subroutine pref rt (il, idl . ix.aaxf ,ndf .nen.nenl .nuael .nuanp) 

integer*2 il (1) ,idl(l) , ix(nenl , 1) 
prefrontal routine to flag last occurance of nodes 
preset check array 

do 100 n=l, nuanp 
il(n)=0 

continué 
set last occurance of nodes 

do 102 nu=nuael,l ,-1 



(il(ii) .eq.0)) then 



101 
102 



n « idl(nu) 
do 101 i=nen,l,-l 
ii=abs(ix(i,n)) 
if ((ii.ne.0) .anc 
il(ii)=n 
ii=-ii 
endif 

ix(i,n)=ii 
cont inue 
continué 

c...get estiaate to maximua frontwith 
aaxf=0 
nowf=0 

do 107 nu=l, nuael 
n = idl(nu) 
do 105 i=l,nen 
ii=ix(i,n) 
if (ii.ne.0) then 
j j=abs(ii) 

if (il(j j) .ne.0) nowf=nowf+ndf 
aaxf =aax (aaxf , nowf ) 
il(jj)=0 
endif 
continué 

do 106 i = l.nen 

if (ix(i,n) .lt.0) noHf = aax(0 ,nowf -ndf ) 
continué 
continué 

write(*,3000) aaxf 

foraatC ** Estimate of aaxiaua front width is 
return 
end 



105 



106 
107 



3000 



\i5) 



pre 1 
pre 2 
pre 3 
pre 4 
pre 5 
pre 6 
pre 7 
pre 8 
pre 9 
pre 10 
pre 11 
pre 12 
pre 13 
pre 14 
pre 15 
pre 16 
pre 17 
pre 18 
pre 19 
pre 20 
pre 21 
pre 22 
pre 23 
pre 24 
pre 25 
pre 26 
pre 27 
pre 28 
pre 29 
pre 30 
pre 31 
pre 32 
pre 33 
pre 34 
pre 35 
pre 36 
pre 37 
pre 38 
pre 39 
pre 40 
pre 41 
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subroutine prolil ( jd.idl. id.ix.ndí ,nenl) 
c compute íront proíile of global arraya 

integer*2 jd(l) ,idl(l) ,id(l) .ix(nenl.l) 

coumon /cdata/ numnp, numel .nummat .nen.neq 

common /ioíile/ ior.ios 

common /írdata/ nazi 
c. . . .set up the equation numbers 

neq - 0 

nneq ■ ndf *numnp 
do 10 n = l.nneq 
j « id(n) 
if(j.eq.O) then 
naq » neq + 1 
id(n) - neq 
else 

id(n) w 0 
endií 

10 continué 

do 11 n - 1, numel 
idl(n) - n 

11 continué 

c . . . . compute íront width 

cali preírt(jd,idl,ix,aaxí ,ndf , nen, nenl , numel. numnp) 
ií(maxf .gt.120) then 

write(*,2001) aaxí 

ií(ior.lt.O) write(ios,2001) maxi 
endií 
return 

2001 íormatC ** ERROR *• íront requires too nuch storage 
end 



pro 


1 


pro 


2 


pro 


3 


pro 


4 


OTO 


5 


pro 


6 


pro 


7 


pro 


8 


oro 


9 


oro 


10 


Dro 


11 


oro 


12 


oro 


13 


oro 


14 


pro 


15 


oro 


16 


Dro 


17 


oro 


18 


oro 


19 


pro 


20 


pro 


21 


pro 


22 


pro 


23 


pro 


24 


pro 


25 


pro 


26 


pro 


27 


pro 


28 


pro 


29 


pro 


30 
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15.8.5 Módulo de dibujo. El dibujo de mallas para problemas bi dimensionales 
se controla a través de los subprogramas contenidos en el archivo 
PCPLOT.FOR 

(a) el archivo PCPLOT.FOR contiene el siguiente conjunto de subprogramas 

Descripción 

Controla la secuencia del dibujo 
Dibuja líneas en la pantalla 
Cierra el periférico de dibujo y retorna al 
macro 

Abre el periférico del dibujo, 
dibuja una caja alrededor de la región 
Dibuja la figura a escala; llama a DPLOT 
Determina la región del dibujo y la escala 
a la pantalla 

Calcula las coordenadas del dibujo de 
la deformada 

Dibuja la malla o el contorno 



AT í 

Nombre 


1 ipo 


PPLOTF 


SUBRUTINA 


DPLOT 


SUBRUTINA 


PDEVCL 


SUBRUTINA 


PDEVOP 


SUBRUTINA 


PLOTL 


SUBRUTINA 


FRAME 


SUBRUTINA 


PDEFM 


SUBRUTINA 


PLINE 


SUBRUTINA 



tHOFLOATCALLS 





subroutine pplotí (x , ix , b , lci , ct ,ndí , ndm, nenl ,nneq) 


ppl 1 


c. . . 


. .plot control subroutine íor íeap 


ppl 2 




logical pcoap.oílg 


ppl 3 




character lci*4 


ppl 4 




integer*2 ixy, devnas, status, Tslcol.il.ixd) ,coli 


ppl 5 




real x(ndm, 1) ,ct(2) 


ppl 6 




real* 8 b(l) ,prop 


ppl 7 




common dr(l) 


ppl 8 




common /adata/ il (32000) 


ppl 9 




common /cdata/ numnp.numel .nummat .nen.neq 


ppl 10 




common /pdata2/ ixy (4) .devnam 


ppl 11 


c. . , 


, .open kernel system and plot sesh or outline oí parts 


ppl 12 




cali pdeTop( devnam) 


ppl 13 




cali írame(x,ndm,numnp) 


ppl 14 


c. . . 


. .plot mesh or outline oí parts 


ppl 15 




oílg ■ .not.pcompdci, 'outl') 


ppl 16 




c - 0.0 


ppl 17 




ic - 1 


ppl 18 




ií(ctCl).ne.O.O) ic - 2 


ppl 19 




do 100 i - ic.l.-l 


ppl 20 




coli - 8 - 2*i 


ppl 21 




status - TslcoKdcTnam.coli) 


ppl 22 




cali pdefm(x,b,c,ndm,ndí .numnp, dr) 


ppl 23 




cali plineídr, ix.il, numnp. numel , ndm, nenl .nen.ct (2) , oílg) 


ppl 24 




c - ct(l) 


ppl 25 


100 


continué 


ppl 26 


c. . . 


. .cióse plot 


ppl 27 




cali pdevcl (devnam) 


ppl 28 




return 
and 


ppl 29 
ppl 30 
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subroutine dplot (x, y, ipen) 
integer*2 ixy, devnam, status .vpline 
common /pdata2/ ixy (4) .devnam 
c. . . . pen conuaand motions (ipen ■ 2, pendo wn) 
ixy(3) - 22000*x 
ixy (4) = 22000*y 
ií (ipen.eq.2) then 

status * vpline (devnam, 2, ixy) 
endií 

ixy(l) = ixy (3) 
ixy(2) « ixy(4) 
return 
end 

c 

subroutine pdevcl (devnam) 

integer*2 devnam, status , vclrwk , vencur , vclswk , vrqstr , ixy (2) 
character*l xxx 
c. . . .cióse the plotting device 

status = vrqstr (devnam, 1,0, ixy. xxx) 

status = vclrwk (devnam) 

status = vencur (devnam) 

status = veis wk (devnam) 

return 

end 

c 

subroutine pdevop (devnam) 
c. . . . open graphics workstation 

integer*2 devnam, wkin( 19) ,wkout(66) , status, vopnwk, vclrwk, vslcol 

data wkin/1, 1,1, 4, 1,1, 1,1, 1,1, 1,68, 73, 83, 80. 76, 65, 89, 32/ 
c. . . .open kernel system 

status = vopnwk (wkin, devnam, wkout) 

ií (status. lt.O) then 
write(*,2000) 
return 

endií 

status = vclrwk (devnam) 
status = vslcol (devnam ,2) 
cali dplot (0.0000, 0.0000,1) 
cali dplot(l. 4545, 0.0000, 2) 
cali dplotíl. 4545, 1.0090, 2) 
cali dplot(0. 0000. 1.0090, 2) 
cali dplot(0. 0000. 0.0000, 2) 
return 

2000 formatC Graphics Device Driver not installed correctly.') 
end 

c 

subroutine plotl(xl ,x2,x3, ipen) 
c. . . . line drawing command 

common /pdatal/ scale ,dx(2) ,sx(2) 
c. . . .compute the normal coordinates 

si = max(0.0,min(1.45,scale*(xl + xl - sx(l)) + 0.5)) 

s2 = max(0.0.min(1.00,scale*(x2 + x2 - sx(2)) + 0.5)) 

cali dplot (si, s2, ipen) 

return 

end 



dpi 


1 


c 






dpi 


2 




subroutine írame(x,ndm,numnp) 


ira 1 


dpi 


3 


c. . . 


..compute scaling íor plot área 


ira 2 


dpi 


4 




logical iílg 


ira 3 


dpi 


5 




real x(ndm,l) ,xmn(2) ,xmx(2) ,xmin(3) ,xaax(3) 


ira 4 


dpi 


6 




common /pdatal/ scale, dx(2) ,sx(2) 


ira 5 


dpi 


7 


c. . . 


..determine «indow coordinates 


ira 6 


dpi 


8 




ií(ndm.eq.l) then 


ira 7 


dpi 


9 




dx(2) - 0. 


ira 8 


dpi 


10 




sx(2) - 0.0 


ira 9 


api 


1 1 




•ndií 


ira 10 


api 


12 




ii " min(ndm,3) 


ira 11 


dpi 


13 




ij - miníndm^) 


ira 12 






c . . . 


, . íind the minimum and máximum coordinate oí input nodes 


ira 13 


pae 






iílg ■ .true. 


ira 14 


pde 






do 104 n * l.numnp 


ira 15 


pae 






ií(x(l,n) .ne. -999.) then 


ira 16 


pde 


4 




if(iflg) then 


ira 17 


pde 


c 
D 




do 100 i - l,ii 


ira 18 


pde 


g 




xmin(i) - x(i,n) 


ira 19 


pde 


7 




xmax(i) - x(i,n) 


ira 20 


pae 


0 


100 


continué 


ira 21 




9 




iílg = .íalse. 


ira 22 


pae 


10 




else 


ira 23 








do 102 i - l.ii 


ira 24 


pde 


1 




xmin(i) - min(xmin(i) ,x(i,n)) 


ira 25 


pde 


2 




xmax(i) = max(xmax(i),x(i,n)) 


ira 26 


pde 


3 


102 


continué 


ira 27 


P á 


4 




endií 


ira 28 


P A 


5 




endií 


ira 29 




g 


104 


continué 


ira 30 


pde 


7 






ira 31 


pae 


g 


c. . . 


.plot región determination 


ira 32 




9 




do 110 i ■ l.ij 


ira 33 


pde 


10 




xmn(i) = min(xmin(i) ,xmax(i)) 


ira 34 


pde 






xmx(i) = max(xmin(i) ,xmax(i) ) 


ira 35 


pde 


12 




dx(i) = xmx(i) - xmn(i) 


ira 36 


P * 


13 




sx(i) = xmx(i) + xmn(i) 


ira 37 




14 


110 


cont inue 


ira 38 


de 

1 A 


15 


c . . . 


.res cale v indow 


ira 39 


pae 


16 




ií (dx(l) .gt.dx(2)) then 


ira 40 




17 




xmn(2) » (sx(2) - dx(l))/2.0 


ira 41 


pde 


18 




xmx(2) ■ (sx(2) + dx(l))/2.0 


ira 42 


Dde 


19 




else 


ira 43 


pde 


20 




xmn(l) " IsxdJ - dx(.2;;/2.0 


ira 44 


pío 






xmx(l) * (sx(l) + dx(2))/2.0 


ira 45 


1 




endií 


ira 46 


pío 


2 




do 112 i = l.ij 


ira 47 


pío 


3 




xmin(i) * max(xmin(i) ,xmn(i)) - scale/100. 


ira 48 


pío 


4 




xmax(i) = min(xmax(i) ,xmx(i)) + scale/100. 


ira 49 


pío 


5 


112 


continué 


ira 50 


pío 


6 


c. . . 


.deíault valúes 


ira 51 


pío 


7 




scale = max(xmax(l)-xmin(l) ,xmax(2)-xmin(2)) 


ira 52 


pío 


8 


c. . . 


.reset valúes íor deíormed plotting 


ira 53 


pío 


9 




do 114 i = l.ij 


ira 54 



xcen = xmax(i)+xmin(i) ira 55 
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xmax(i) - (xcen + 1 . l*scale)/2. ira 56 

xmin(i) - (icen - 1 . l»scale)/2. ira 57 

114 continua ira 58 

acal* - 0.4/scala ira 59 

raturn ira 60 

end ira 61 

c 

aubroutine pdefm(x,b,c,ndm,ndf .numnp, dr) pde 1 

c... compute the deformed poaition of tao-dimenaional meshes pde 2 

real x(ndm.l) ,dr(ndm,l) pde 3 

real*8 b(ndí.l) P d « 4 

cali pconsr(dr,ndB*numnp,0.0) pd« 5 

do 120 n - 1, numnp P d « 6 

ií(i(l,n).ne. -999.) then pde 7 

do 110 i - l.ndm pde 8 

dr(i.n) - x(i.n) + c*b(i,n) pde 9 

110 continué P d « 10 

endif P de 11 

120 continué P d « 12 

return P de 13 

end P de 14 

c 

aubroutine plineíx.ix.ic.numnp.numel.ndm.nenl.nen.ct.isw) pli 1 

c....plot mesh or outline PÜ 2 

logical ifl, iend, isw pli 3 

integer*2 ix(nenl , 1) , iplt (8) , ic (numnp, 1) pli 4 

real x(ndm.l) P 11 5 

data iplt/5,2,6.3,7,4,8,1/ pli 6 

c. . . .initialize connection array PÜ 7 

cali pconsi(ic,numnp*4,0) pli 8 

c loop through elementa to set up list pli 9 

do 206 n * l.numel PÜ 10 

jj « abs(ct) Pli " 

if(jj.eq.O) go to 197 pli 12 

ii - abs(ix(nenl,n)) pli 13 

if(ii.ne.jj) go to 206 pli 14 

197 i - 1 P 11 15 

ii - abs(ix(i,n)) Pli l 6 

do 205 ij - 1.8 Pli 17 

j = iplt(ij) Pli 18 

if (j .le.nen.and.ix(j.n) .ne.0) then pli 19 

jj - abs(ix(j,n)) Pli 20 

if(jj.ne.ii) then pli 21 

ni = min(ii.jj) P 11 22 

n2 = max(ii.jj) pli 23 

do 203 k = 1.4 Pli 24 

if (ic(nl.k).eq.O) then pli 25 

ic(nl.k) = n2 Pli 26 

go to 204 Pli 27 

elseif (ic(nl.k) .eq.n2) then pli 28 

ic(nl.k) = -n2 Pli 29 

go to 204 Pli 30 

endif pli 31 

203 continué PÜ 32 
endif Pli 33 

204 ii = jj PÜ 34 
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endif pli 35 

205 continué pli 36 

206 continué pli 37 
c. . . .changa signa to permit mesh plot pli 38 

ii(isv) then pli 39 

do 250 n = 1, numnp pli 40 

do 250 i - 1.4 pli 41 

ic(n.i) = abs(ic(n,i)) pli 42 

250 continué pli 43 

endif pli 44 

c....plot outline of part with continuous linea pli 45 

x3 = 0. pli 46 

do 304 ni = 1 .numnp pli 47 

iend = .true. pli 48 

do 303 n = 1, numnp pli 49 

ifl = .true. pli 50 

ni = n pli 51 

300 do 301 i - 1.4 pli 52 

ifUc(nl.i)) 301,303.302 pli 53 

301 continué pli 54 
go to 303 pli 55 

302 iend = .false. pli 56 
if(nda.ge.3) x3 = x(3.nl) pli 57 
if(ifl) cali plotlCx(l.nl) ,x(2,nl) ,x3 , 1) pli 58 
ifl = .false. pli 59 
n2 - ic(nl,i) pli 60 
ic(nl.i) = -n2 pli 61 
if (ndm.ge.3) x3 = x(3.n2) pli 62 
cali plotl(x(l,n2).x(2 ; n2).x3,2) pli 63 
ni = n2 pli 64 
go to 300 pli 65 

303 continué pli 66 
if(iend) go to 305 pli 67 

304 continué pli 68 

305 return pli 69 
end pli 70 
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15.8.6 Módulo» de lo» elemento». Los módulos de los elementos para los 
elementos elásticos lineales están contenidos en los archivos PCELM1.F0R, 
PCELM2.F0R, PCLEM3.F0R y PCELM4.F0R. 

(a) El archivo PCELM1.F0R contiene un módulo de elemento para 
elasticidad lineal bidimensional isótropa. Debe introducirse información de 
control de tal forma que 

NDM = 2 
NDF > 2 
NEN > 3 

Cada uno de los tres elementos de elasticidad tiene dos grados de libertad 
en cada nodo (esto es, u,v); por tanto, el usuario debe especificar que NDF 
> 2 como se ha indicado. Los elementos funcionarán si NDF > 2, pero se 
obtendrán desplazamientos nulos en los grados de libertad adicionales. Los 
grados de libertad adicionales sólo deben utilizarse si el elemento se usa con 
otro elemento que los requiera (ej., un elemento típico de viga bidimensional 
precisa 3 grados de libertad por nodo; el elemento de tensión plana se puede 
usar como panel de cortante). 

^4 




ó o ó 

1 5 2 

Figura 15.25 Secuencia de numeración local de los nodos para un elemento de 
cuatro nodos. 

El elemento ELMT01 permite analizar geometrías de tensión plana, 
deformación plana y axial-simét ricas con fuerzas nodales, temperaturas 
o fuerzas de volumen. El elemento se basa en el método de los 
desplazamientos (formulación irreducible) y usa los subprogramas de 
funciones de forma isoparamétricas de tres a nueve nodos contenidas en el 
archivo PCMAC3.F0R. La numeración local de los nodos para este elemento 
se muestra en la Figura 15.25. Si el número global de un nodo es cero para 
cualquier nodo local, la función de forma correspondiente no se construye. 
Así, es posible tener elementos que tienen funciones de forma lineales sobre un 
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lado mientras que otros lados tienen variaciones cuadráticas. El elemento de 
tres nodos se genera bien repitiendo el número global de nodo para nodos en 
esquinas adyacentes, o bien especificando tres nodos de esquina. Se pueden 
formar triángulos cuadráticos asignando el mismo número de nodo a un lado 
completo. Se sugiere que se incluyan tanto los nodos de centro de lado 
como el nodo central (esto es, el nodo 9) para los triángulos cuadráticos. El 
elemento calcula valores de tensiones tanto elementales como nodales. Las 
proyecciones de tensiones nodales se usan para calcular y proporcionar los 
estimadores de error y de refinamiento. 

Los parámetros de grupo de propiedades materiales que siguen a los datos 
descritos en la Tabla 15.8 se introducen como sigue: 

Grupo de Propiedades 1.) FORMAT — 3F10. 0,3110 

Columna Descripción 

1 a 10 E, módulo de Young 
11 a 20 ív, coeficiente de Poisson 
21 a 30 />, densidad 

31 a 40 L, número de puntos de cuadratura por dirección para 

cálculo de vectores/matrices 
41 a 50 K , número de puntos por dirección para salida de tensiones 
51 a 60 /, Tipo de Problema: I — 1 tensión plana 

1 = 2 deformación plana 
1 = 3 axial-simétrico 

Grupo de Propiedades 2.) FORMAT— 5F10.0 

Columna Descripción 

1 a 10 Espesor (sólo para tensión plana) 

11 a 20 Fuerza de volumen-1 (por unidad de volumen) 

21 a 30 Fuerza de volumen-2 (por unidad de volumen) 

31 a 40 a, coeficiente de dilatación térmica 

41 a 50 T 0 , temperatura inicial 

El archivo PCELM1.FOR contiene los siguientes subprogramas: 

Descripción 

Entrada de parámetros, calcula los 
vectores/ matrices de EF 
Cálculo de tensiones y deformaciones en 
un punto 

Cálculo de las tensiones nodales 
Cálculo e impresión de los estimadores 
de error 



Nombre 


Tipo 


ELMT01 


SUBRUTINA 


STRE01 


SUBRUTINA 


STCN01 


SUBRUTINA 


STER01 


SUBRUTINA 
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c 

c plañe linear elastic element routine 



• la 9 



ela 16 
eln 17 



$N0FL0ATCALLS 

subroutine elatOl Cd.ul ,xl. ix.tl ,»,p.ndl .nda.nst , isw) ela 1 

ela 2 
ala 3 
ala 4 

implicit real*8 (a-h,o-z) 5 

integer*2 ix(l) 9lm 6 

real il (nda, 1) ,tl(l) .aa.da 7 

real*8 d(l) ,ul(ndf , 1) ,s(nst , 1) ,p(l) ,eps(4) . sigr (6) , shpC3. 9) , ela 
1 sg(16),tg(16),wg(16),ang 

character wd(3) *12 ,yyy*80 *° 

comion /adata/ aa( 16000) 11 

comaon /cdata/ nuanp.nuael .nuaaat .nen.neq «la 12 

comaon /eldata/ da.n.aa.Bct.iel.nel •!» 13 

coamon /iofile/ ior.iow el " 14 

data wd/'Plane Stress \ 'Plañe Strain', 'Axisyaaetric 7 ela 15 
.go to correot array processor 
1 - d(5) 

k = d(6) 18 

ityp - d(15) 19 

go to(1.2.3,3.3.3,7,8), isw •!■ 20 

.input aaterial properties elm 21 

iKior.lt. 0) write(*,5000) 22 

cali pintio(yyy.lO) 23 

read(yyy.l000,err=110) e,xnu,d(4) .l.k.ityp 24 

iKior.lt. 0) write(*,5001) 25 

cali pintio(yyy.lO) 26 

read(yyy.l001,err=lll) dCl4) .dCll) ,dCl2) .alp.tO ela 27 

.set aaterial paraaeter type and flags «la 28 

ityp - aax(l,ain(ityp,3)) « 1b 29 

j - ain(ityp.2) 30 

d(l) * e*(l.+(l-j)*xnu)/(l.+xnu)/(l.-j*xnu) 31 

dC2) = xnu*dCD/Cl. + Cl-j)*xnu) «1» 32 

d(3) - e/2./(l-+xnu) 33 

d<13>- dC2)*(j-l) «l» 34 

if (d(14).le.0.0d0 .or. ityp. ge. 2) dCl4) = 1.0 «la 35 

d(15) = ityp * lm 36 

dCl6) = e 37 

d(17) = xnu el » 38 

d(18) = -xnu/e el " 39 

1 = ainC4,aaxCl.D) * 1b 40 

k = ain{4,aaxCl,k)) 41 
d(5) = 1 
d(6) - k 
d(9) = tO 

d(10)= e*alp/(l.-j*xnu) « 1b 45 

lint = 0 46 
write(iow,2000) wd(ityp) ,d(16) ,d(17) ,d(4) .1 .k.d(14) ,d(ll) .d(12) . ela 47 

1 alp.tO 48 

ilCior.lt. 0) write(*.2000) wd(ityp) ,dCl6) ,d(17) ,d(4) , 1 ,k. ela 49 

1 d(14).d(ll),d(12).alp,t0 •!■ 50 

d(4) = d(4)*d(14) 51 
return 
.read error aessages 

cali perrorCPCELMl'.yyy) ela 54 

go to 1 55 



ela 42 
ela 43 
ela 44 



ela 52 
ela 53 
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111 cali perrorCPCELMl'.yyy) ela 56 

go to 11 ela 57 

2 cali ckisop(ix,xl,shp,ndm) elm 58 
return ela 59 

c . . . . stif f ness/residual coaputation ela 60 

3 if(isw.eq.4) 1 = k ela 61 
ií(l*l.ne. lint) cali pgauss(l,lint,sg,tg,wg) elm 62 

c .... compute integráis of shape functions elm 63 

do 340 1 = l.lint elm 64 

cali shape(sgCl) ,tg(l) .xl.shp.xsj .ndm.nel , ix, . f alse . ) elm 65 

cali stre01(d,xl,ul,tl,shp,eps,sigr,xx,yy,ndm,ndf .nel.ityp) elm 66 

xsj = xsj*wg(l)*d(14) elm 67 

c... compute jacobian correction elm 68 

iíCityp.le.2) then elm 69 

dv = xsj elm 70 

xsj = 0.0 elm 71 

zz = 0.0 elm 72 

sigr4 = -d(ll)*dv elm 73 

else elm 74 

dv = xsj*xx elm 75 

zz = l./xx elm 76 

sigr4 = sigr(4)*xsj - d(ll)*dv elm 77 

endif elm 78 

jl * 1 elm 79 

c....coapute the mass term elm 80 

if (isw . eq. 5) then elm 81 

dv = dv*d(4) elm 82 

do 315 j = l.nel elm 83 

p(jl ) * p(jl) + shp(3.j)*dv ela 84 

p(jl+l) » p(jl) ela 85 

jl = jl + ndf elm 86 

315 continué elm 87 

elseif (isw. eq.4) then elm 88 

cali pstres(sigr ,sigr(5) ,sigr(6) ,ang) elm 89 

c....output stresses and strains elm 90 

act ■ mct - 2 elm 91 

ií(mct.le.O) then elm 92 

cali prthed(iow) elm 93 

write(iow,2001) elm 94 

if(ior.lt. 0) write(*,2001) elm 95 

mct = 50 elm 96 

endií elm 97 

write(iow,2002) n,xx,sigr,ma,yy ,eps,ang elm 98 

if(ior.lt.O) write(*,2002) n.xx.sigr ,ma,yy .eps.ang elm 99 

else elmlOO 

c....loop over rows elmlOl 

do 330 j = l.nel elml02 

wll = shp(l,j)*dv elml03 

■12 = shp(2,j)*dv elml04 

■22 = shp(3,j)*xsj elml05 

c .... compute the internal forces elml06 
p(jl ) = p(jl ) " (shp(l, j)*sigr(l)+shp(2.j)*sigr(2))*dv elml07 

1 - shp(3, j)*sigr4 elmlOS 

p(jl+l) = p(jl+l) - (shp(l, j)*sigr(2)+shp(2.j)*sigr(3))*dv elml09 

1 + d(12)*shp(3,j)*dv elmllO 

c....loop over columns (symmetry noted) elmlll 
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340 

c . . . 



360 



c . . 
7 



if(isw.eq.3) then 
kl - ji 

all = d(l)*wll + d(2)*w22 
a21 - d(2)*all + d(l)**22 
a31 - d(2)»(*ll+*22) 
a41 = d(3)*wl2 
al2 = d(2)*wl2 
a32 - d(l)*wl2 
a42 = d(3)*wll 
do 320 k = j ,nel 

■ 11 - shp(l.k) 

■12 = shp(2,k) 

w22 = shp(3,k)*zz 

s(jl ,kl ) = s(jl ,kl 

s(jl+l,kl ) = s(jl+l.kl 

s(jl ,kl+l) 

8(jl+l,kl+l) 

kl = kl + ndf 
cont inue 
endií 

jl = jl + ndf 
cont inue 
endií 
cont inue 

.make stiffness symmetric and compute a residual 
if(isv.eq.3) then 
l.nst 
j.nst 
s(j.k) 



) + ■Il*all+w22*a21+»12*a41 
) + (wll + »22)*al2+wl2*a42 
s(jl ,kl+l) + »12*a31 + wll*a41 
s(jl+l,kl+l) + »12*a32 + wil*a42 



do 360 j = 
do 360 k 
s(k.j) 
cont inue 
endií 
return 

compute the stress errors 
ií (1*1. ne. lint) cali pgauss(l,lint,sg,tg,wg) 
cali ster01(ix,d,xl,ul,tl,shp,aa,aa(numnp+l) ,ndf ,ndm, 
1 numnp , numel , sg , tg , wg , sigr , eps , lint , it yp) 
return 

c. . . .compute the nodal stress valúes 
8 ií (1*1. ne. lint) cali pgauss(l,lint,sg,tg,wg) 

cali stcn01(ix,d,xl,ul,tl,shp,aa,aa(numnp+l) ,ndf , ndm.nel , 
1 numnp, sg, tg.sigr.eps, lint, ityp) 
return 

c. . . .íormats for input-output 

1000 íormat(3f 10.0.3Í10) 

1001 format(8íl0.0) 

2000 f ormat(/5x,al2, ' Linear Elastic Element'// 

1 lOx, 'Modulus' ,el8.5/10x, 'Poisson ratio 1 ,f8.5/10x, 'Density' ,el8 . 5/elmi58 

2 lOx.'Gauss pts/dir» ,i3/10x, 'Stress pts » , i6/10x, 'Thickness' ,el6 . 5/elml59 

3 lOx, '1-gravity' ,el6.5/10x, '2-gravity' ,el6.5/10x, 'Alpha' ,e20.5/ elml60 

4 lOx, 'Base temp' ,el6.5/) elml61 

2001 format(5x, 'Element Stresses'//' elmt 1-coord' ,2x, ' 11-stress ' ,2x, elml62 

1 '12-stress' ,2x, '22-stress ' ,2x, '33-stress' ,3x, ' 1-stress ' , 3x , elml63 

2 '2-stress'/' matl 2-coord* ,2x, ' 11-strain' , 2x, * 12-strain' ,2x, 3lml64 

3 '22-strain',2x, , 33-strain , ,6x, , angle'/39C -')) elml65 

2002 f ormat(i5,0plf 9.3, lp6ell. 3/i5,0plf 9.3, lp4el 1.3, Oplf 11.2/) elml66 
5000 formatC Input : E, nu, rho, pts/stiff, pts/stre', elml67 



elmll2 
elmll3 
elmll4 
elmll5 
elmll6 
elmll7 
elmll8 
elmll9 
elml20 
elml21 
elml22 
elml23 
elml24 
elml25 
elml26 
elml27 
elml28 
elml29 
elml30 
elml31 
elml32 
elml33 
elml34 
elml35 
elml36 
elml37 
elml38 
elml39 
elml40 
elml41 
elml42 
elml43 
elml44 
elml45 
elml46 
elml47 
elml48 
elml49 
elml50 
elml51 
elml52 
elal53 
elml54 
elml55 
elml56 
elml57 
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1 type(l«stress,2-strain,3«axism) » ,/3x, »>' ,$) elml68 
5001 formatC Input: Thickness, 1-body forcé, 1-body forcé, alpha,' elml69 

1 Temp-base'/3x, •>',$) el«170 

end elml71 

c 

subroutine streOl (d, xl ,ul , ti ,shp, eps .sig.xx , yy .ndm.ndf ,nel , ityp) str 1 

implicit real*8 (a-h,o-z) str 2 

real xl(ndm.l) ,tl(l) str 3 

real*8 d(l),ul(ndf , 1) ,shp(3. 1) ,eps(4) ,sig(4) str 4 

c... compute strains and coordinates str 5 

cali pconsd(eps,4,0.0d0) str 6 

xx - 0.0 str 7 

yy » 0.0 str 8 

ta - -d(9) str 9 

do 100 j ■ l.nel str 10 

xx = xx + shp(3, j)*xl(l, j) str 11 

yy = yy + shp (3 , j ) *xl (2 » j ) Str 12 

ta = ta + shp(3, j)*tl(j) str 13 

eps(l) = eps(l) + shp(l,j)*ul(l,j) str 14 

eps(2) - eps(2) + shp(l , j)*ul(2 , j) + shp(2, j)*ul(l, j) str 15 

eps(3) = eps(3) + shp(2. j)*ul(2, j) str 16 

if (ityp.eq.3) eps(4) - eps(4) + shp(3, j)*ul(l , j ) str 17 

100 continué str 18 

ta - ta*d(10) str 19 

c... compute stresses str 20 

if (ityp.gt.2) then str 21 

if (xx.ne.O.OdO) then str 22 

eps(4) = eps(4)/xx str 23 

else str 24 

eps (4) = eps(l) str 25 

endií str 26 

sig(4) = d(l)*eps(4) + d(2)*(eps(l) + eps(3)) - ta str 27 

else str 28 

sig(4) = d(13)*(eps(l) + eps(3)) - ta str 29 

endií str 30 

sig(l) = d(l)*eps(l) + d(2)*(eps(3) + eps(4)) - ta str 31 

sig(2) = d(3)*eps(2) str 32 

sig(3) = d(l)*eps(3) + d(2)*(eps(l) + eps(4)) - ta str 33 

if (ityp.eq.l) eps(4) = d(18)*(sig(l) + sig(3)) str 34 

return str 35 

end str 36 

c 

subroutine stcnOl (ix.d.xl ,ul , ti , shp, dt ,st , ndf ,ndm ,nel .numnp , stc 1 

1 sg.tg.sig, eps, lint, ityp) stc 2 

c....project stresses onto nodes stc 3 

implicit real*8 (a-h,o-z) stc 4 

integer*2 ix(l) stc 5 

real dt (numnp) ,st (numnp, 1) ,xl (ndm, 1) , ti (1) stc 6 

real*8 eps(4) ,sig(4) ,ul(ndf , 1) ,shp(3,4) ,d(l) ,sg(9) ,tg(9) stc 7 

common /errind/ eerror.elproj .ecproj ,ef em , enerr , ebar stc 8 

gr - (l.+d(17))/d(16) stc 9 

do 130 1 = i, lint stc 10 

cali shape(sg(l) ,tg(l) ,xl, shp, xsj .ndm.nel, ix, .false.) stc 11 

cali stre01(d,xl,ul,tl,shp,eps,sig,xx,yy,ndm,ndf .nel.ityp) stc 12 

enerr = enerr+( (sig(l)+sig(3)+sig(4) )**2)*d(18) *xsj stc 13 

1 + gr*xsj*sig(2)**2 stc 14 
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do 110 i = 1.4 


stc 


15 


enerr » enerr + gr*sig(i)**2*xsj 


stc 


16 


continué 


stc 


17 


do 120 ii = l.nel 


stc 


18 


11 = abs(ix(ii)) 


stc 


19 


if(ll.gt.O) then 


stc 


20 


xs j i ~ xs j *sh.p (3 , ii) 




21 


dt(ll) = dt(ll) + xsji 


stc 


22 


st(ll.l) = st(ll.l) + sig(l)*xsji 


stc 


23 


st(ll,2) = st(ll,2) + sig(2)*xsji 


stc 


24 


st(11.3) = st(ll,3) + sig(3)*xsji 


stc 


25 


st(11.4) = st(ll,4) + sig(4)*xsji 


stc 


26 


endif 


stc 


27 


cont inue 


stc 


28 


continué 


stc 


29 


return 


stc 


30 


end i 


stc 


31 


subroutine sterOl (ix ,d,xl ,ul ,tl , shp.dt ,st ,ndf ,ndm , 


ste 


1 


1 numnp , nume 1 , sg , tg , Hg , sig , eps , lint , ityp) 


ste 


2 


implicit real*8 (a-h.o-z) 


ste 


3 


integer*2 ix(l) 


ste 


4 


real dt (numnp) , st (numnp , 1) ,xl(ndm, 1) ,tl(l) ,dm 


ste 


5 


real*8 shp(3,4) ,sig(6) .sigp(4) ,dsig(4) ,d(l) ,eps(4) ,ul(ndf ,1) , 


ste 


6 


1 3g(16),tg(16),wgÜ6),deps(4) 


ste 


7 


common /ioiile/ ior.iow 


ste 


8 


common /eldata/ dm,n,ma,mct , iel ,nel 


ste 


9 


common /errind/ eerror , elpro j .ecproj .efem, enerr, ebar 


ste 


10 


stress error computations 


ste 


11 


psis = 0.0 


ste 


12 


psi * 0.0 


ste 


13 


gr = (l.+d(17))/d(16) 


ste 


14 


do 200 ii = l.lint 


ste 


15 


cali shape(sg(ii) ,tg(ii) ,xl, shp ,xs j .ndm.nel, ix , .f alse. ) 


ste 


16 


cali streOl (d,xl ,ul,t l.shp.eps, sig, xx, yy.ndm.ndf ,nel , ityp) 


ste 


17 


xsj = xsj*wg(ii) 


ste 


18 


do 100 i - 1,4 


ste 


19 


sigp(i)= O.OdO 


ste 


20 


continué 


ste 


21 


do 110 i = l.nel 


ste 


22 


11 = iabs(ix(i)) 


ste 


23 


if(ll.ne.O) then 


ste 


24 


do 105 j = 1,4 


ste 


25 


sigp(j) = sigp(j) + shp(3,i)*st(ll, j) 


ste 


26 


continué 


ste 


27 


endif 


ste 


28 


cont inue 


ste 


29 


compute the integral oí the stress squares for error indicator 


use ste 


30 


do 120 i = 1,4 


ste 


31 


dsig(i) = sigp(i)-sig(i) 


ste 


32 


efem = efem + sig(i)*sig(i)*xsj 


ste 


33 


ecproj = ecproj + sigp(i)*sigp(i)*xsj 


ste 


34 


psis = psis + (dsig(i) **2) *xsj 


ste 


35 


psi = psi + gr*(dsig(i)**2)*xsj 


ste 


36 


continué 


ste 


37 


psi = psi + gr*dsig(2)**2*xsj + 


ste 


38 
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l v lasig^ij+asigvdjTasigv*^ j«¿j»aviu;*xsj 


*t* 


39 


cont inue 




40 


eerror ■ eerror + psis 


ste 


41 


ii i.e -Lpr o j . ne . v . uau ) xnen 


ste 


42 


psi m so^rt ( ebs (ps i ) ) /ebar 


ste 


43 


psis m 20 . 0 * sort ( abs (ps is) /elpro j *numel ) 


ste 


44 


iz vmcx . eq . \ij xnon 


ste 


45 


write ( iov , 2000) 


ste 


46 


xx v xor • í\ . v ) wriv o v , xvwy 




47 


«,- + s un 

BCl OU 


ste 


48 


endif 


ste 


49 


■ct ■ mct - 1 


ste 


50 


srite(iow,2001) n.psis.psi 


ste 


51 


if (ior.lt. 0) write(*,2001) n.psis.psi 


ste 


52 


endif 


ste 


53 


return 


ste 


54 


formatC Hesh Refinements for 5%'. 


ste 


55 


1 ' Error'// 1 «l«t h-sigma h-energy'/) 


ste 


56 


for*at(i8.1p2el2.4) 


ste 


57 


end 


ste 


58 
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(b) El archivo PCELM2.FOR contiene un módulo de elemento para 
elasticidad lineal bidimensional isótropa. Debe introducirse información de 
control de forma que 

NDM = 2 
NDF > 2 
NEN > 4 

El elemento permite analizar geometrías de deformación plana y axial- 
simétricas, con especificación de las fuerzas nodales. El elemento se basa en la 
formulación mixta de tres campos discutida en el Capítulo 12, que conduce 
a una matriz de desplazamientos-deformaciones modificada, B-barra. En 
consecuencia, el elemento se puede usar para materiales cuasi-incompresibles. 
El elemento usa los subprogramas de funciones de forma isoparamétricas 
contenidas en el archivo PCMAC3.F0R, pero su uso está restringido a 
elementos cuadriláteros de cuatro nodos solamente. La numeración local para 
este elemento se muestra en la Figura 15.25. El elemento calcula los valores 
de tensiones tanto elementales como nodales. No se incluyen estimadores de 
error en este elemento debido a limitaciones de espacio. 

Los parámetros del grupo de propiedades de los materiales que siguen a 
los datos descritos en la Tabla 15.8 se introducen como sigue: 

Grupo de Propiedades 1.) FORMAT — 3F10.0 
Columna Descripción 

1 a 10 E, módulo de Young 
11 a 20 v, coeficiente de Poisson 



Grupo de Propiedades 2.) FORMAT— 2110 
Columna Descripción 

1 a 10 IT, tipo de Problema 



11 a 20 IB, matriz de deformación 



IT — 1 tensión plana 
IT = 2 deformación plana 
IB = 0 para B-barra 
IB = 1 para B, formulación 
en desplazamientos 



21 a 30 />, densidad 
El archivo PCELM2.FOR contiene los siguientes subprogramas 
Nombre Tipo Descripción 

ELMT02 SUBRUTINA Entrada de parámetros: cálculo de 

vectores/matrices de EF 

GVC2 SUBRUTINA Cálculo de integrales de volumen de las 

funciones de forma 

BMAT02 SUBRUTINA Cáculo de la matrix desplazamientos 

-deformación 
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STRN02 SUBRUTINA Cálculo de las deformaciones en un punto 
STCN02 SUBRUTINA Cálculo de las tensiones nodales 

MATL02 SUBRUTINA Entrada de los valores de los parámetros 

de los materiales 
MODL02 SUBRUTINA cálculo de las tensiones y 

matriz constitutiva 

INOFLOATCALLS 

subroutine el»t02 (d,ul , xl , ix.tl , s ,p ,ndf , nda.nst , ísh) ela 1 

c. . . .plane/axisyametric linear eleaent routine — bbar formulation ala 2 

iaplicit raal*8 (a-h,o-z) ala 3 

logical flg ela 4 

integer*2 ii(l) ala 5 

real xl(nda, 1) ,aa,da ala 6 
real*8 d( 1) ,ul(ndf , 1) ,s(nst . 1) ,p(l) ,epa(4) ,sig(6) .bbar (4. 2.4) . ala 7 
1 bbd(4.2),sg(4),tg(4),wg(4),sb.p3(4,4).shp(3,4.4),xsj(4),ang ala 8 

coaaon /adata/ aa(16000) ala 9 

coaaon /cdata/ nuanp.nuael .numaat .nen.naq ala 10 

coaaon /eldata/ da.n.aa.act.iel.nel ala 11 

common /elcoa2/ g(2.4}.ad(4,4) elm 12 

coaaon /iofile/ ior.iow ala 13 

c. . . .go to correct array processor ala 14 

go to(l,2.3,3,5,3.7.3). isw ala 15 

return ela 16 

c. . . .input aaterial properties ala 17 

1 cali matl02(d,ityp,ib) ala 18 
d(5) = ityp ala 19 
d(6) = ib «la 20 
1=2 ala 21 
cali pgauss(l,lint,sg,tg,wg) ela 22 
return ala 23 

c . . . . check f or element arrors ela 24 

2 cali ckisop(ix,xl,shp,ndm) ela 25 
return ela 26 

c ela 27 

c... compute tangent stiffness and residual forcé vector ela 28 

3 type = d(5) «Ib 29 
ib = d(6) «la 30 

c... compute voluaetric integráis ala 31 

cali pconsd(g.8,0.0d0) ala 32 

do 300 1 = l.lint ela 33 
cali shape(sg(l).tg(l).xl.shp(l.l.l),xsj(l).ndm,4.ix..falBe.) ela 34 

cali gvc2(shp(l,l,l),shp3(l,l),xsj(l).wg(l),xl.type,ndm) ala 35 

300 continué ela 36 

toI = xsj(l) + xsj(2) + xsj(3) + xsj(4) ela 37 

do 310 i » 1,4 ela 38 

g(l.i) = g(l,i)/vol ela 39 

g(2,i) = g(2,i)/vol ela 40 

310 continué ala 41 

if(isw.eq.4) go to 4 ela 42 

if(isw.eq.8) go to 8 ela 43 

flg = isw .eq. 3 ala 44 

do 400 1 = l.lint ela 45 

c... compute stress, strain, and material moduli elm 46 

cali strn02(shp( 1,1,1) ,xl,ul,type,xr0,xz0,ndm,ndf ,eps) ela 47 
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320 



340 
360 



380 
400 



410 



cali modl02(d,ul.eps,sig,xsj(l) ,ndf ,ib) 
il - 0 

do 380 i - 1,4 
.compute the internal stress divergence term 

p(il + l) - p(il+l) - shp(l.i.l)*sig(l) - shp<2,i,l)*sig(2) 
1 - shp3(i,l)*sig(4) 

p(il+2) = p(il+2) - shp(2,i,l)*sig(3) - shp(l ,i,l)*sig(2) 
.compute stiffness 
if(flg) then 
.compute b-bar matrix 

cali bmat02(shp3(i,l),shp(l,i,l) ,g(l. i) ,bbar(l, 1 ,i) ,ib) 
do 320 ii = 1.2 
do 320 jj = 1.4 

bbd(jj.ii) = dot(bbar(l.ii.i).ad(l.jj),4) 
continué 
jl = 0 

do 360 j = l.i 
do 340 ii = 1,2 
do 340 jj - 1,2 

s(ii+il, jj+jl) « sCii+il, jj+jl) 
1 + dot(bbd(l.ii).bbar(l.jj,j).4) 

continué 
jl = jl + ndf 
endif 
il = il + ndf 
cont inue 
, form lower part by symmetry 
if(flg) then 

do 410 i = l.nst 
do 410 j = l.i 

s(j,i) = s(i,j) 
cont inue 
endif 
return 

.compute stresses at center of element 
cali shape(0.0d0,0.0d0,xl,shp,xsj ,ndm,4,ix, .falsa.) 
cali strn02(shp,xl,ul,type,rr.zz,ndm,ndf ,eps) 
cali modl02 (d ,ul . eps , sig , 1 . OdO .ndf , ib) 
cali pstres(sig,sig(5) ,sig(6) ,ang) 
. output stresses 
mct = mct - 2 
if(mct.le.O) then 

cali prthed(ion) 

«rite (iow, 2001) 

if(ior.lt. 0) write(*,2001) 

mct = 50 
endif 

«rite (iow. 2002) n.ma.sig.rr.zz.ang 
ifíior.lt. 0) write(*,2002) n.ma.sig.rr.zz.ang 
return 

.compute lumped mass matrix 
do 530 1 = l.lint 

cali shapeCsg(l),tg(l) ,rl .shp.xsj ,ndm,4,ix, .false.) 
.compute radius and multiply into jacobian for axisymmetry 



elm 48 
elm 49 
elm 50 
elm 51 
elm 52 
elm 53 
elm 54 
elm 55 
elm 56 
elm 57 
elm 58 
elm 59 
elm 60 
elm 61 
elm 62 
elm 63 
elm 64 
elm 65 
elm 66 
elm 67 
elm 68 
elm 69 
elm 70 
elm 71 
elm 72 
elm 73 
elm 74 
elm 75 
elm 76 
elm 77 
elm 78 
elm 79 
elm 80 
elm 81 
elm 82 
elm 83 
elm 84 
elm 85 
elm 86 
elm 87 
elm 88 
elm 89 
elm 90 
elm 91 
elm 92 
elm 93 
elm 94 
elm 95 
elm 96 
elm 97 
elm 98 
elm 99 
elmlOO 
elmlOl 
elml02 
elm!03 
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if Cd(5).ne.0.0d0) then elml04 

rr = 0.0 elml05 

do 500 j - 1.4 elml06 

rr = rr + shp(3,j,l)*xl(l,j) elml07 

500 continué elml08 

xsj(l) = xsj(l)*rr «1«109 

endif elmllO 

xsj(l) = wg(l)*xsj(l)*d(4) elmlll 

c....for each node j compute db = rho*shape*dv elmll2 

j 1 = 1 elmll3 

do 520 j = 1,4 elmll4 

pCjl ) = p(jD + shp(3,j,l)*xsjCD elmll5 

pCjl+1) = p(jl) elmll6 

jl = jl + ndf elmll7 

520 continué elmll8 

530 continué elmll9 

return elml20 

7 return elml21 
c elml22 
c. . . .stress computations for nodes elml23 

8 cali stcn02(ix.d,xl,ul.shp,aa.aa(numnp+l) .ndf .ndm, elml24 
1 numnp.sg.tg.sig.eps.lint.type.ib) elml25 

return " elml26 

c elml27 

c. . . .íormats for input-output elml28 

1000 formatC2i5) elml29 

1001 formatCa5,lx,2il0,fl0.0/9fl0.0) «lml30 

2001 formatC Element Stresses'//' elmt matl 11-stress 12-stress ' ,elml31 

1 ' 22-stress 33-stress 1-stress 2-stress'/' 1-coord' , elml32 

2 ' 2-coord ',42x.'angle') elml33 

2002 format(2i6.6ell.3/2f9.3.41x.f8.2/lx) elml34 
end «1»1 35 

c 

subroutine gvc2(shp,shp3,xsj .wg.xl.type.ndm) gvc 1 

implicit real*8 Ca-h,o-z) gvc 2 

c... compute the volumetric integráis for the bbar g^c 3 

real xl(ndm,4) 8 VC 4 

real*8 shp(3.4).sh P 3(4) gvc 5 

common /elcom2/ g(2 .4) ,ad(4.4) gvc 6 

if (type.ne.O.OdO) then g'c 7 

rr = 0.0 gvc 8 

do 100 i = 1.4 gvc 9 

rr = rr + shp(3,i)*xlU.i) g TC 10 

100 continué g vc 11 

xsj = xsj*rr g vc !2 

else g TC 13 

endif g TC 14 

xsj = xsj*wg g TC 15 

do 110 i = 1.4 g TC 16 

shp3(i) =0.0 gvc 17 

if (type.ne.O.OdO) sh P 3Ci) = shpC3.i)/rr gvc 18 

g(l.i) = g(l.i) + Cshp(l.i) + sh P 3(i))*xsj gvc 19 

g(2,i) = g(2.i) + shp(2,i)*xsj gvc 20 

110 continué g TC 21 

return 8 TC 22 

end g TC 23 
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subr out ine bmat 0 2 ( sh3 , shp , g , bbar , ib ) 


bma 


1 


implicit real*8 (a-h,o-z) 


baa 


2 


real*8 shp(3) ,g(l) ,bbar{4.2) 


bma 


3 


.bbar matriz for plana and axisymmetric problema 


bma 


4 


bbar(l.l) - shp(l) 


bma 


5 


bbar (2,1) * 0.0 


bma 


6 


bbar (3,1) * sh3 


bma 


7 


bbar(4.1) = shp(2) 


bma 


8 


bbar (1,2) ■ 0.0 


bma 


9 


bbar(2,2) = shp(2) 


bma 


10 


bbar(3,2) = 0.0 


bma 


11 


bbar(4,2) => shp(l) 


bma 


12 


.correct for the b-bar effects 


bma 


13 


ií(ib.eq.O) then 


bma 


14 


bbl - (g(l) - shp(l) - sh3)/3.0 


bma 


15 


bb2 = (g(2) - shp(2))/3.0 


bma 


16 


do 100 i w 1,3 


bma 


17 


bbar(i.í) = bbar(i.l) + bbl 


bma 


18 


bbar(i,2) = bbar(i,2) + bb2 


bma 


19 


cont inue 


bma 20 


endif 


bma 


21 


return 


bma 


22 


end 


bma 


23 


subrout ine strn02 (shp , xl , ul , type , xrO , xzO , ndm ,ndí , eps) 


str 


1 


inplicit real*8 (a-h,o-z) 


str 


2 


real xl(ndm,l) 


str 


3 


real*8 ul (ndf , 1) , eps (4) ,shp(3, 1) 


str 


4 


.compute strain and incremental tensors for constitutivo equation 


s str 


5 


xrO =0.0 


str 


6 


xzO =0.0 


str 


7 


cali pconsd(eps,4,0.0d0) 


str 


8 


do 310 k = 1.4 


str 


9 


xrO = xrO + shp(3 ,k) *xl(l ,k) 


str 


10 


xzO = xzO + shp (3 ,k) *xl(2 ,k) 


str 


11 


eps(.l) - epstl) + ulll ,k)*shp(l ,k) 


str 


12 


eps(2) = eps(2) + ul(2,k)*shp(2,k) 


str 


13 


eps (3) = eps (3) + shp (3, k)*ul (1 ,k) 


str 


14 


eps(4) = eps(4) + (ul(2,k)*shp(l,k) + ul(l ,k)*shp(2,k))/2. 


str 


15 


continué 


str 


16 


eps (3) = type*eps(3)/xr0 


str 


17 


return 


str 


18 


end 


str 


19 


subrout ine st cn02 ( ix , d , xl , ul , shp , dt , st , ndf , ndm , 


stc 


1 


1 nnp.sg, tg.sig.eps, lint. type, ib) 


stc 


2 


implicit real*8 (a-h,o-z) 


stc 


3 


integer*2 ix(l) 


stc 


4 


real dt (nnp) ,st (nnp, 1) ,xl(ndm, 1) 


stc 


5 


real*8 d(l) ,ul(ndf ,1) ,sig(l) ,eps(l) ,shp(3.4) ,sg(l),tg(l) 


stc 


6 


do 200 jj - 1,4 


stc 


7 


compute stresses at nodes from history terms 


stc 


8 


cali shape(sg(jj) ,tg(jj) .xl.shp.xsj ,ndm,4, ix, . f alse . ) 


stc 


9 


cali strn02 (shp, xl.ul, type. rr.zz, ndm. ndf , eps) 


stc 


10 


cali modl02 (d ,ul , eps . sig , 1 . OdO , ndf , ib) 


stc 


11 
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do 100 ii = 1,4 


stc 


12 




11 = absíix(ii)) 


stc 


13 




if(ll.gt.O) then 


stc 


14 




shpj = shp(3,i)*xsj 


stc 


15 




dt(ll) = dt(ll) + shpj 


stc 


16 




do 50 i = 1,4 


stc 


17 


50 


st(ll.i) = st(ll,i) + sig(i)*shpj 


stc 


18 




endif 


stc 


19 


100 


continué 


stc 


20 


200 


continué 


stc 


21 




return 


stc 


22 




end 


stc 


23 


c 


subrout ine matl02 (d, it , ib) 


mat 


1 




implicit real*8 (a-h,o-z) 


mat 


2 




real*8 d(l) 


mat 


3 




character*12 wa(2) ,wb(2) ,yyy*80 


mat 


4 


c. . . 


.parameter specif ication for FEAP materials 


mat 


5 




common /iofile/ ior.iow 


mat 


6 


c 




mat 


7 




data wa/ 'Plañe ' , ' A x i s y m ' / 


mat 


8 




data *b/' Strain',' metric'/ 


mat 


9 


1 


if(ior.lt.O) write(*,3000) 


mat 


10 




cali pintio(yyy , 10) 


mat 


11 




read(yyy, 1000,err=101) ee.xnu 


mat 


12 




iKior.lt. 0) write(*,3001) 


mat 


13 




cali pintio(yyy , 10) 


mat 


14 




read(yyy,1001,err=101) it,ib,d(4) 


mat 


15 




it - max(0.min(l,it)) 


mat 


16 




ib = max(0,min(l,ib)) 


mat 


17 




d(l) = ee/(l. - 2.*xnu)/3.0 


mat 


18 




d(2) = ee/(l .+xnu)/2. 


mat 


19 




write(iow,2000) wa(it+l) .wb^it+l) ,ee,xnu,d(4) , ib 


mat 


20 




if(ior.lt.O) write(*,2000) wa(it+l) ,wb(it+l) ,ee,xnu,d(4) ,ib 


mat 


21 




return 


mat 


22 


101 


cali perror( 'PCELM4' ,yyy) 


mat 


23 




go to 1 


mat 


24 


c . . . 


. forma ts 


mat 


25 


1000 


format(2f 10.0) 


mat 


26 


1001 


f ormat (2il0,f 10 .0) 


mat 


27 


2000 


fórmate/' Elastic Material '/5x,2al2/ 


mat 


28 




2 10x,'Young modulus (E) ',el5.5/ 


mat 


29 




3 lOx , 'Poisson Ratio (nu) ',el5.5/ 


mat 


30 




4 10x,'Density (rho) ',el5.5/ 


mat 


31 




5 lOx, 'Strain-B (0=bbar) ',i5/) 


mat 


32 


3000 


xormax v inpu v . &, nu /jx. ? »▼/ 




33 


3001 


format(' Input : it (0=plane, l=axisy) , ib(0=bbar) . rho'/' >',$) 


mat 


34 




end 


mat 


35 


c 


subrout ine modl 0 2 (d , ul , eps , s ig , xs j . ndf , ib) 


mod 


1 




implicit real*8 (a-h,o-z) 


mod 


2 




real*8 d(15) ,ul(ndf ,1) , eps (4) , sig (4) 


mod 


3 




common /elcom2/ g(2.4) ,ad(4,4) 


mod 


4 


c . . . 


, constitutiva equation 


mod 


5 




twog = (d(2) + d(2))*xsj 


mod 


6 




elam = d(l)*xsj - twog/3. 


mod 


7 
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C . . . 


.compute trace of incremental strain 


mod 


8 




treps =0.0 


mod 


9 




do 100 i - 1,4 


mod 


10 




treps - treps + g(l , i)*ul(l , i) + g(2.i)*ul(2,i) 


mod 


11 


100 


cont inue 


mod 


12 


c . . . 


.compute the stress 


mod 


13 




epstr = eps(l)+eps(2)+eps(3) 


mod 


14 




press = elam*epstr 


mod 


15 




if (ib.eq.0) press * d(l) *rsj*treps - twog*epstr/3 . 0 


mod 


16 




sig(l) ■ teog*eps(l) + press 


mod 


17 




sig(2) - t«og*eps(4) 


mod 


18 




sig(3) = twog*eps(2) + press 


mod 


19 




sig(4) » twog*eps(3) + press 


mod 


20 


c . . . 


.set up elastic moduli 


mod 


21 




do 110 i = 1.3 


mod 


22 




do 105 j = 1,3 


mod 


23 




ad(i,j) = elam 


mod 


24 


105 


cont inue 


mod 


25 




ad(i,4) = 0.0 


mod 


26 




ad(4,i) = 0.0 


mod 


27 




ad(i,i) = elam + twog 


mod 


28 


110 


cont inue 


mod 


29 




ad(4,4) = d(2)*xsj 


mod 


30 


c 




mod 


31 




return 


mod 


32 




end 


mod 


33 
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(c) El archivo PCELM3.FOR contiene un módulo de elemento para 
elasticidad lineal bidimensional isótropa. Debe introducirse información de 
control de forma que 

NDM = 2 
NDF > 2 
NEN > 4 

El elemento permite analizar geometrías de tensión y deformación plana, 
con especificación de las fuerzas nodales. El elemento se basa en la 
formulación mixta de dos campos discutida en el Capítulo 13. El desarrollo 
original se debe a Pian y Sumihara, 36 y el elemento se encuentra entre los 
elementos cuadriláteros de cuatro nodos mas precisos desarrollados hasta el 
momento. El elemento puede usarse también para materiales que son cuasi- 
imcompresibles. La numeración local para este elemento se muestra en la 
Figura 15.25. El elemento calcula valores de tensiones tanto elementales 
como nodales. No se incluyen estimadores de error en este elemento debido 
a limitaciones de espacio. 

Los parámetros de grupo de propiedades de los materiales que siguen a 
los datos descritos en la Tabla 15.8 se introducen como sigue: 

Grupo de Propiedadesl.) FORMAT— 4F10.0,I10 
Columna Descripción 

1 a 10 E, módulo de Young 
11 a 20 Vj coeficiente de Poisson 
21 a 30 /?, densidad 
31 a 40 Espesor (sólo tensión plana) 
41 a 50 J, Tipo de Problema: 7=1 tensión plana 

1 = 2 deformación plana 

El archivo PCELM3.FOR contiene los siguientes subprogramas: 

Nombre Tipo Descripción 

ELMT03 SUBRUTINA Entrada de parámetros: cálculo de 

vectores /matrices de EF 
PIAN03 SUBRUTINA Cálculo de la rigidez y fuerzas residuales 
STCN03 SUBRUTINA Cálculo de las tensiones nodales 

SN0FL0ATCALLS 

subroutine elmt03(d,ul,xl.ix,tl,s.p.ndf .ndm.nst , iss) elm 1 

c Plañe stress/strain Pian Sumihara Element elm 2 

implicit real*8 (a-h,o-z) •!■ 3 

integer*2 ix(l) elm 4 

real xl(ndm.l) .dm.ap «1» 5 

real*8 d(l).ul(ndf .1) ,a(nst. 1) ,p(l) ,sig(4) ,pl.p2,p3 elm 6 

character*4 wd(2),yyy*80 •!■ ? 
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common /adata/ ap(16000) 




elm 


8 




comon /cdata/ numnp,numel,nummat,nen,neq 




elm 


9 




common /eldata/ dm.n.ma.mct, iel.nel 




elm 


10 




common /elcom3/ xs,xt,xh,ys,yt.yh,xj0,xjl,xj2,al (3) ,a2(3) ,beta(5) elm 


11 




common /iofile/ ior.iow 




elm 


12 




data wd/'ress'. 'rain'/ 




elm 


13 


C . . . 


. go to correct array processor 




elm 


14 




go to(1.2,3,3,3,3.7,3). isw 




elm 


15 


c . . . 


. input/output material properties 




elm 


16 


1 


if(ior.lt.O) write(*,3000) 




elm 


17 




cali pintio(yyy,10) 




elm 


18 




read(yyy,1000,err»=ll) (d(i) ,i=8,ll) ,is 




elm 


19 




is » max(l,min(is,2)) 




elm 


20 




d(12)= is 




elm 


21 




d(2) = d(9)*d(8)/(l.+d(9))/(l.-is * d(9)) 




elm 


22 




d(4) - d(8)/(l.+d(9)) 




elm 


23 




d(3) = d(4)/2. 




elm 


24 




d(l) -= d(2) + d(4) 




elm 


25 


c . . . 


.set parameters for plañe stress (is = 1) 




elm 


26 




if(is.eq.l) then 




elm 


27 




if (d(ll).le.O.OdO) d(ll) = 1.0 




elm 


28 




d(5) - l./d(8) 




elm 


29 




d(6) - -d(9)/d(8) 




elm 


30 




d(13)« 0.0 




elm 


31 


c . . . 


.set parameters for plañe strain (is = 2) 




elm 


32 




else 




elm 


33 




d(ll)= 1.0 




elm 


34 




d(5) = (l.-d(9))/d(4) 




elm 


35 




d(6) = -d(9)/d(4) 




elm 


36 




d(13)= d(9) 




elm 


37 




endif 




elm 


38 




write(iow,2000) wd(is) , (d(i) ,i=8.11) 




elm 


39 




if(ior.lt.O) write(*,2000) wd(is) , (d(i) , i=8 


.11) 


elm 


40 




d(10) = d(10)*d(ll) 




elm 


41 




return 




elm 


42 


11 


cali perror( 'PCEL03' ,yyy) 




elm 


43 




go to 1 




elm 


44 


c . . . 


. check mesh 




elm 


45 


2 


cali ckisop(ix,xl,ap,ndm) 




elm 


46 




return 




elm 


47 


c . . . 


.Compute the Pian-Sumihara arrays for elastic 


: compute jacobian 


elm 


48 


3 


xs = (-xl(l.l)+xl(l,2)+xl(1.3)-xl(l,4))/4. 




elm 


49 




ys = (-xl<2.1)+xl(2,2)+xl(2,3)-xl(2,4))/4. 




elm 


50 




xt = (-xl(l.l)-xl(1.2)+xl(1.3)+xl(l,4))/4. 




elm 


51 




yt = (-xl(2,l)-xl(2,2)+xl(2.3)+xl(2.4))/4. 




elm 


52 




xh = ( xl(l.l)-xl(l,2)+xl(1.3)-xl(l,4))/4. 




elm 


53 




yh = ( xl(2.1)-xl(2,2)+xl(2,3)-xl(2,4))/4. 




elm 


54 




xjO = xs*yt - xt*ys 




elm 


55 




xjl = xs*yh - xh*ys 




elm 


56 




xj2 = xh*yt - xt*yh 




elm 


57 




if(is».eq.5) go to 5 




elm 


58 




ssa = xjl/xjO/3. 




elm 


59 




tta = xj2/xj0/3. 




elm 


60 


c . . . 


.form stiffness for elastic part and compute the beta parameters 


elm 


61 




cali pian03(d ,ul,s ,p,nst ,ndf , isw) 




elm 


62 




if(isw.eq.4) go to 4 




elm 


63 
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if(isw.eq.8) go to 8 •!■ 64 

c... compute symetric part of s 65 

do 334 i - l.nst 66 

do 332 j - i.nst •!■ 67 

s(j.i) - s(i.j) •!» 68 

332 continué 69 

334 continua 70 

return el " 71 

c. . . .compute the stresses 7 2 

4 is = d(12) ™ 
c compute the stresses at the center and the specified points elm 74 

ssg = -ssa*beta(5) 7 & 

ttg - -tta*beta(4) 7 6 

sig(l) - beta(l) + al(l)*ttg + a2(l)*ssg «1» 77 

sig(2) = beta(2) + al(2)*ttg + a2(2)*ssg elm 78 

sig(3) - beta(3) + al(3)*ttg + a2(3)«ssg «la 79 

sig(4) = d(13)*(sig(l)+sig(2)) «1» 80 

330 continué el " 81 

cali pstres(sig.pl,p2,p3) 82 

xx « (xl(l.l)+xl(1.2)+xl(l,3)+xl(1.4))/4.0 elm 83 

yy - (xl(2.1)+xl(2.2)+xl(2,3)+xl(2.4))/4.0 elm 84 

mct - mct - 1 85 

if(mct.gt.O) go to 450 «1» 86 

cali prthed(io*) «1» 87 

write(iow,2001) wd(is) «1» 88 

if(ior.lt.O) write(*,2001) wd(is) mim 89 

.ct = 25 9° 

450 write(iow.2002) n.ma.xx.yy ,pl ,p2.p3, (sig(i) ,i-l,4) «lm 91 

if(ior.lt.O) write(*,2002) n, ma.xx.yy.pl ,p2,p3, elm 92 

1 (sig(i).i«1.4) 93 

return 94 

c compute a lumped mass matrix 95 

5 p( 1) - (xj0-(xjl+xj2)/3.)*d(10) «1» 96 
p( ndf+1) = (xj0+(xjl-xj2)/3.)*d(10) •!■ 97 
p(2*ndf+l) = (xj0+(xjl+xj2)/3.)*d(10) elm 98 
p(3*ndf+l) = (xj0-(xjl-xj2)/3.)*d(10) •!■ 99 
do 510 i = 2,nst.ndf elmlOO 

p(i) = p(i-l) «i»ioi 

510 continué elm 102 

return elml03 

c error estimator goes here! elml04 

7 continué elmlOB 
return elml06 

c compute the nodal stress valúes elml07 

8 cali stcn03(ix.d,ssa,tta,ap,ap(numnp+l) .numnp) elml08 
return «i» 109 

c format statements elmllO 

1000 format(4fl0.0.il0) elmlll 

2000 format(5x, 'Plañe St 1 ,a4,' Element '//10x. 'modulus *\el2.5/ elmll2 

1 10x, 'poisson ratio=' , f8.5/10x, 'mass density ,el2.5/ elmll3 

2 lOx.'thickness =', el2.5) elmll4 

2001 format(5x, 'Plañe St ' ,a4. ' Stresses'//' element material ' , elmllB 

1 5x , ' 1-coord ' , 5x , '2-coord ' . 8x , 'sigl ' , 8x , «sig2 ' , 3x . ' angle »/ elml 16 

2 38x.'s-ll',8x,'s-12'.8x.'s-22 , ,8x,'s-33 , /lx) elmll7 

2002 format(2i9,2f 12.4,2el2.4.f8.2/30x,4el2.4) elmll8 
3000 formatC Input : e, nu, rho, th, is ( l=pl. stress, 2=pl. strain) '/ elml 19 
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1 3x.'mate>\$) 


elml20 




end 




elml21 


c 


subrout ine pian03 (d , ul , s , p ,nst ,ndf , isw) 


pia 


1 




implicit real*8 (a-h.o-z) 


pia 


2 


c . 


. . .pian-sumihara stiffness matrix developed explicitly 


pia 


3 




real*8 ul(ndf ,1) ,s(nst ,1) ,p(l) ,d(l) ,rr(5) .xl (4) ,x2(4) ,yi (4) ,y2(4) pia 


4 




1 


,ax(4) ,bx(4) ,cx(4) ,ay(4) ,by(4) ,cy(4) 


pia 


5 




common /elcom3/ xs, xt ,xh.ys,yt ,yh,xjO,xj 1 ,xj2 .al (3) ,a2 (3) ,beta(5) pia 


6 


c . 


. l.)sst up stress interpolants for the 4-5 tera 


pia 


7 




rl ■ xjl/xjO 


pia 


8 




r2 - xj2/xj0 


pia 


9 




al(l) 


« xs*xs 


pia 


10 




al (2) 


= ys*ys 


pia 


11 




al(3) 


* xs*ys 


pia 


12 




a2(l) 


« xt*xt 


pia 


13 




a2(2) 


- yt*yt 


pia 


14 




a2(3) 


» xt*yt 


pia 


15 


c. 


. 2.)set up shape function coefficients - jacobian «eighted 


pia 


16 




ax(l) 


- -yt + ys 


pia 


17 




ax(2) 


- yt + ys 


pia 


18 




ax(3) 


- -ax(l) 


pia 


19 




ax(4) 


- -ax(2) 


pia 


20 




bx(l) 


- -yh - ys 


pia 


21 




bx(2) 


- -bx(D 


pia 


22 




bx(3) 


= yh - ys 


pia 


23 




bx(4) 


- -bx(3) 


pia 


24 




cx(l) 


= yt + yh 


pia 


25 




cx(2) 


* -yt + yh 


pia 


26 




cx(3) 


- -cx(2) 


pia 


27 




cx(4) 


= -cx(l) 


pia 


28 




ay(l) 


■ xt - xs 


pia 


29 




ay(2) 


= -xt - xs 


pia 


30 




ay(3) 


= -ay(l) 


pia 


31 




ay(4) 


= -ay(2) 


pia 


32 




by(l) 


= xh + xs 


pia 


33 




by(2) 


= -by(l) 


pia 


34 




by(3) 


= -xh + xs 


pia 


35 




by(4) 


= -by(3) 


pia 


36 




cy(l) 


= -xt - xh 


pia 


37 




cy(2) 


= xt - xh 


pia 


38 




cy(3) 


= -cy(2) 


pia 


39 




cy(4) 


= -cy(l) 


pia 


40 


c . 


.3.) compute volume and stabilization h-array 


pia 


41 




vol = 


4.*xj0 


pia 


42 




dll - 


d{l)/vol 


pia 


43 




dl2 = 


d(2)/vol 


pia 


44 




d33 = 


d(3)/vol 


pia 


45 




hy = 


vol*3. 


pia 


46 




hx = 


hy*d(5) 


pia 


47 




h.44 = 


hx*(l.-r2*r2/3.)*(al(l)+al(2))**2 


pia 


48 




h55 = 


hx*(l.-rl*rl/3.)*(a2(l)+a2(2))**2 


pia 


49 




h45 - 


-(rl*r2/3.)*(hx*(xs*xt+ys*yt)**2+d(6)*hy*(ys*xt-xs*yt)**2) 


pia 


50 


c . 


.4.)Invert stabilization h-array 


pia 


51 




hx = 


h44*h55 - h45*h45 


pia 


52 




hy = 


h55/hx 


pia 


53 
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h55 = h44/hx pia 54 

h45 =-h45/hx pia 55 

h44 = hy pia 56 

c. .5. ) Compute the current stress parameters pia 57 

cali pconsd(rr,5,0.0d0) pia 58 

do 50 j = 1,4 pia 59 

hx = cx(j) - r2*ax(j) pia 60 

hy = cy(j) - r2*ay(j) pia 61 

xl(j) = al(l)*hx + al(3)*hy pia 62 

x2(j) = al(2)*hy + al(3)*hx pia 63 

hx = bx(j) - rl*ax(j) pia 64 

hy = by(j) - rl*ay(j) pia 65 

yl(j) = a2(l)*hx + a2(3)*hy pia 66 

y2(j) = a2(2)*hy + a2(3)*hx pia 67 

rr(l) = rr(l) + ax( j)*ul(l , j) pia 68 

rr(2) = rr(2) + ay(j)*ul(2, j) pia 69 

rr(3) = rr(3) + ay ( j ) *ul (1 , j) + ax(j)*ul(2. j) pia 70 

c (stabilization teros) pia 71 

rr(4) = rr(4) + xl ( j ) *ul (1 , j) + x2( j)*ul(2, j) pia 72 

rr(5) = rr(5) + yl ( j) *ul (1 , j) + y2(j)*ul(2, j) pia 73 

50 continué pia 74 

beta(l) = dll*rr(l) + dl2*rr(2) pia 75 

beta(2) = dl2*rr(l) + dll*rr(2) pia 76 

beta(3) = d33*rr(3) pia 77 

beta(4) = (h44*rr(4) + h45*rr(5) ) *3 . pia 78 

beta(5) = (h45*rr(4) + h55*rr(5) ) *3 . pia 79 

c..6.)Form stiffness matrix for 1-pt (constant) terms pia 80 

if(isw.eq.3) then pia 81 

dll = dll*d(ll) pia 82 

dl2 = dl2*d(ll) pia 83 

d33 = d33*d(ll) pia 84 

il = 1 pia 85 

do 110 i = 1,2 pia 86 

bdll = ax(i)*dll pia 87 

bdl2 = ax(i)*dl2 pia 88 

bdl3 = ay(i)*d33 pia 89 

bd21 = ay(i)*dl2 pia 90 

bd22 = ay(i)*dll pia 91 

bd23 = ax(i)*d33 pia 92 

jl = il pia 93 

do 100 j = i, 2 pia 94 

s(il ,jl ) = bdll*ax(j) + bdl3*ay(j) pia 95 

s(il , j 1+1) = bdl2*ay(j) + bdl3*ax(j) pia 96 

s(il+l,jl ) = bd21*ax(j) + bd23*ay(j) pia 97 

s(il+l,jl+l) = bd22*ay(j) + bd23*ax(j) pia 98 

jl = jl + ndf pia 99 

100 continué pialOO 

il = il + ndf pialOl 

110 continué pial02 

c..7.)Copy other parts from computed terms pial03 

il = ndf + ndf pial04 

do 120 i = l.il pial05 

do 120 j = i.il pial06 

s(i ,j+il) =-s(i,j) pial07 

s(i+il,j+il) = s(i,j) pial08 

120 continué pial09 
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jl - il + ndf 
s(2 .il+1) — s(2,l) 
s(ndf+2.jl+l) — s(ndf+2.ndf+l) 
s(ndf+l,il+l) — s(l,ndf+l) 
s(ndf+l.il+2) — »(2,ndl+l) 
s<ndf+2,il+l) — s(l.ndf+2) 
»(ndf+2,il+2) — s (2. ndf +2) 
.8.)Add stabilization matrix 
h44 - h44*d(ll) 
h45 - h45*d(ll) 
h55 - hS5*d(ll) 
jl - 1 

do 210 j - 1.4 

bdll - h44*xl(j) + h45*yl(j) 
bdl2 - h44*x2(j) + h45*y2(j) 
bd21 - h45*xl(j) + h55*yl(j) 
bd22 - h45*x2(j) + h55*y2(j) 
il - 1 

do 200 i - l,j 

s(il ,jl ) - s(il ,jl ) + xl(i)*bdll + yl(i)*bd21 
s(il ,jl+l) - s(il . jl+1) + xl(i)*bdl2 + yl(i)*bd22 
■Cil+l.jl ) - s(il+l,jl ) + x2(i)*bdll + y2(i)*bd21 
s(il+l.jl+l) - »<il+l. + x2(i)*bdl2 + y2(i)*bd22 
il - il + ndf 
continua 
jl » jl + ndf 
continua 
andif 

c. .9.) compute tha residual forcé vector 

ií (Bod(isw,3) .eq.O) then 
c . . . a. )coapute tha constant part 
do 300 i - 1,5 

beta(i) - beta(i)*d(ll) 
continué 
do 310 i « 1.2 

p(2*i-l) - -(ax(i)*beta(l) + ay(i)*beta(3) ) 
p(2*i+3) - -p(2*i-l) 

p(2*i ) - -(ay(i)*beta(2) + ax(i)*beta(3)) 
p(2*i+4) = -p(2*i ) 
continua 
) compute the stabilization part 
do 320 i - 1,4 

p(2*i-l) - (xl(i)*beta(4) + yl(i)*beta(5))/3.0 
p(2*i ) - (x2(i)»beta(4) + y2(i)*beta(5) ) /3 .0 



200 



210 



300 



310 

c. . 



320 



p(2*i-l) 
p(2*i ) 
continué 
endif 
raturn 
end 



pial 10 
pialll 
piall2 
piall3 
pial 14 
pial 15 
piall6 
pial 17 
pial 18 
pial 19 
pial20 
pial 21 
pial22 
pial23 
pial24 
pial25 
pial26 
pial27 
pial28 
pial29 
pial30 
pial31 
pia!32 
pial33 
pial34 
pial35 
P ial36 
pial37 
pial38 
pial39 
pial40 
pial41 
pial42 
pial43 
pial44 
pial45 
pial46 
pial47 
pial48 
pial49 
pialSO 
pial51 
pial52 
pial53 
pial54 
pial55 
pial56 
pia!57 



subroutine atcn03(ix,d,ssa,tta,dt .st.nnp) 
implicit real*8 (a-h,o-z) 
integer*2 ix(l) 

real dt(nnp) ,st(nnp,l) ,ss(4) ,tt{4) 
real*8 d(l) 

common /elcom3/ xa,xt,xh.ys.yt,yh,xj0,xjl.xj2,al(3) ,a2(3) ,bet 
data •■/-!. 0,1. 0,1. 0,-1. 0/,tt/-l. 0,-1. 0,1. 0,1.0/ 



stc 1 

ate 2 

stc 3 

stc 4 

stc 5 

i(5) stc 6 

stc 7 
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c compute stress projections stc 8 

do 200 jj - 1,4 stc 9 

11 - absíix(jj)) stc 10 

if(ll.gt.O) than stc 11 

c... compute «eighted stresses at nodes stc 12 

xsj - xjO + ss(jj)*xjl + tt(jj)*xj2 stc 13 

ssg - (ss(jj) - ssa)*beta(5) stc 14 

ttg = (tt(jj) - tta)*beta(4) stc 15 

dt(ll) * dt(ll) + xsj stc 16 

sigl - (beta(l) + al(l)»ttg + a2(l)*ssg)*xsj stc 17 

sig2 - (bata(2) + al(2)*ttg + a2(2)»ssg) *xsj stc 18 

sig3 - (bata(3) + al(3)*ttg + a2(3)*ssg)*xsj stc 19 

st(ll.l) « st(ll.l) + sigl stc 20 

st(ll,2) - st(ll,2) + sig3 stc 21 

st(ll,3) = st(ll,3) + sig2 stc 22 

st(ll,4) - st(11.4) + d(13)*(sigl+sig2) stc 23 

endif stc 24 

200 continué stc 25 

raturn stc 26 

end stc 27 



606 



El Método de los Elementos Finitos 



(d) El archivo PCELM4.FOR contiene el módulo de elemento para cálculos 
con una barra Inarticulada elástica lineal en una, dos o tres dimensiones. 
Debe introducirse información de control de forma que 

NDM 1,2 0 3 
NDF = NDM 
NEN >2 

El elemento permite analizar estructuras de barras articuladas con 
especificación de las fuerzas nodales. El elemento se basa en la formulación en 
desplazamientos y usa campos lineales de desplazamientos entre los extremos 
de los elementos de barra. El elemento calcula sólo valores de fuerzas 
elementales; no se incluyen estimadores de error para este elemento. 

Los parámetos del grupo de propiedades de los materiales que siguen a 
los datos descritos en la Tabla 15.8 se introducen como sigue: 

Grupo de Propiedades 1.) FORMAT— 3F10.0 
Columna Descripción 

1 a 10 E, módulo de Young 
11 a 20 A, área de la sección recta 
21 a 30 p y densidad (por unidad de volumen) 

El archivo PCELM4.FOR consiste en el siguiente subprograma: 

Nombre Tipo Descripción 

ELMT04 SUBRUTINA Entrada de parámetros y cálculo de 

vectores/matrices de EF 

INOFLOATCALLS 

subroutine elmt04(d,u, i , ii , t ,s ,p,ndí .ndm.nst , isw) 
c....elastic 1,2, or 3d truss element routine 

implicit real*8 (a-h,o-a¡) 

real x(ndm, 1) ,xx(3) ,da 

real*8 d(l) ,u(ndf , 1) ,s(nst .1) ,p(l) ,db(3) ,dx(3) 
character yyy*80 

common /eldata/ dm,n,ma,mct , iel ,nel 

cornisón /iofile/ ior.iow 

go to (1,3,3,3,3,3,8,8) ,isw 
c. . . . input material properties 
1 if (ior.lt. 0) write(*,3000) 

cali pintio(yyy.lO) 

read(yyy,1000,err=110) d(l) ,d(2) ,d(3) 
d(4) = d(l)*d(2) 
d(5) = d(3)*d(2) 
cali pconsr(xx,3,0.0) 
write(io*,2000) d(l) ,d(2) ,d(3) 
if(ior.lt.O) write(*,2000) d(l) ,d(2) ,d(3) 
return 

110 cali perror('PCELM9' ,yyy) 



elm 


1 


ala 


2 


ela 


3 


ela 


4 


ela 


5 


ela 


6 


ela 


7 


ela 


8 


ala 


9 


ela 


10 


ela 


11 


ala 


12 


ala 


13 


ala 


14 


ala 


15 


ala 


16 


ala 


17 


ela 


18 


ala 


19 


ala 


20 
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31 



33 



go to 1 




ela 


21 


compute element properties 




ela 


22 


if (ndf .ne .ndm) then 




ala 


23 


write (iow,4001) 




ela 


24 


if(ior.lt.O) write(*,4001) 




ela 


25 


stop 




e xa 


26 


endif 




ela 


27 


xl = 0.0 




ela 


28 


eps = 0.0 




ela 


29 


do 3 1 i = 1 , ndm 




ela 


30 


dx(i) = x(i,2) - x(i,l) 




ela 


31 


xl = xl + dx(i)**2 




ela 


32 


eps = eps + dx(i)*(u(i,2)-u(i,l)) 




ela 


33 


xx(i) = (x(i,2) + x(i,l))/2. 




ela 


34 


continua 




ela 


35 


error check on length 




ela 


36 


if(isw.eq.2) then 




ela 


37 


ií(xl.le.0.0d0. or. x(l , 1) .eq. -999 


0 .or. x(l,2) .eq. 


3S3 j xnen exa 


Jo 


write (íoh, 4000) n,r(l , 1) »x(l,2) 




ela 


39 


if(ior.lt.O) write(*,4000) n,x(l , 1) ,x(l ,2) 


ela 


40 






ela 


41 


return 




ela 


42 


endif^ 11 




ela 


43 


eps — eps/xl 




ela 


44 


sig = d(4)*eps 




ela 


45 


compute the element stiffness aatrix 




elm 


46 


if(isw.eq.3) then 




ela 


47 


xl = xl*sqrt(xl) 




ela 


48 


do 32 i = l.nda 




ela 


49 


db(i) = d(4)*dx(i) 




elm 


50 


dx(i) = dx(i)/xl 




ela 


51 


cont inue 




ela 


52 


do 33 i = l.ndm 




ela 


53 


do 33 j = l.nda 




a xa 


Oí 


s(i,j) = db(i)*dx(j) 




ela 


55 


s(i+ndf , j+ndf ) = s(i,j) 




ela 


56 


s(i,j+ndf) = -s(i,j) 




ala 


57 


s(i+ndf , j) = -s(j ,i) 




ala 


58 


cont inue 




eia 


59 


output stress and strain in element 




ela 


60 


alseif (isw.eq.4) then 




ala 


61 


act = act - 1 




ela 


62 


if(mct.le.O) then 




ala 


63 


cali prthed(iow) 




ela 


64 


*rite(iow,2001) 




ela 


65 


if(ior.lt.O) write(*,2001) 




ela 


66 


act = 50 




ela 


67 


endif 




ala 


68 


write(iow,2002) n,aa,xx,sig,eps 




ela 


69 


if(ior.lt.O) write(*,2002) n.ma.xx 


sig, eps 


ela 


70 


coapute eleaent lumped mass matrix 




ela 


71 


elseif (isw . eq. 5) then 




ala 


72 


xl = d(5)*sqrt(xl)/2.0 




ala 


73 


do 34 i = 1 , ndm 




ala 


74 


p(i ) = xl 




ala 


75 


p(i+ndf) = xl 




ela 


76 
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34 continua el» 77 
andif alm 78 

c fon a residual if naadad ala 79 

if (aodCiaw.3) .eq.O) then ala 80 

»ig - aig/aqrt(xl) ala 81 

do 35 i - l.ndf el« 82 

p(i) - dx(i)*sig ala 83 

p(i+ndí) - -p(i) ala 84 

35 continua ala 85 
•ndif ala 86 

8 retura ala 87 

c íoraata ala 88 

1000 íoraat(3110.0) ala 89 

2000 foraat(5x,'T rusa Elaaan t '//lOx. 'Modulus «' ,al3.5/10x,ala 90 
1 'Araa ,al3.5/10x» 'Denaity ,al3.5) ala 91 

2001 fornat(5x,'T rusa Elaaan t'//' alaa aata', ala 92 
1 4x,'l-coord'.4x. , 2-coord',4x. , 3-coord , ,5x,'forca',7x. , atrain') ala 93 

2002 foraat(2iB.3fll.4.2al3.B) ala 94 
3000 fornatO Input: E, A, rho '/3x. »> » ,$) ala 95 

4000 formatC ** ERROR ** Truss alaaant '.i4,' has zaro langth or'/ ala 96 
1 • undefined points: l-',al0.3,' . 2-', «10. 3) ala 97 

4001 formatO ** ERROR ** Truss elament must have ndm - ndf ! * ) elm 98 
and ala 99 
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Apéndice 1 



ALGEBRA MATRICIAL 



La mística que rodea al álgebra matricial se debe quizás a los textos 
sobre el tema, que exigen al estudiante "tragar demasiado" de una sola vez. 
Se encontrará que para seguir este libro y efectuar los cálculos necesarios sólo 
se necesita un conocimiento limitado de unas pocas definiciones básicas. 



Definición de matriz 

La relación lineal entre un sistema de variables x y b: 

CLuXi + 012X2 + 0*13X3 + 0.14X4 —61 
a 2 iXi + a 22 x 2 + ^23X3 + 024X4 —i>2 
031X1 + a 32 x 2 + 033X3 + O34X4 =b 3 

puede escribirse de manera abreviada como 



o bien 



donde 



[A}{x] = {b} 
Ax = b 



A = [A] = 



Olí, O12, Oi3, O i4 
021,022, O23, O24 
031,032,033,034 




(¿1.1) 



(Al. la) 



(¿1.2) 



b = {b} 



La notación anterior contiene en si misma la definición de matriz y 
del proceso de multiplicación. Las matrices se definen como "conjuntos de 
números" dispuestos como en (Al. 2). La forma particular que agrupa a 
los números en una sola columna se llama vector o matriz columna. La 
multiplicación de una matriz por una matriz columna está definida por la 
equivalencia de los primeros miembros de las ecuaciones (Al.l) y (Al. la). 
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A lo largo del texto se seguirá el convenio de usar negritas para definir 
matrices y columnas — generalmente las letras minúsculas denotarán vectores 
y las mayúsculas matrices — . 

Si existe otra relación con las mismas constantes, pero con x y b diferentes, 
de manera que 

a\\x\ + 012X2 + 013X3 + o J4 x 4 =b[ 

a 2 ix[ + 022^2 + a 23«3 + a 24^4 =¿2 
O31XÍ + «32*2 + a 33«3 + «34X4 = ¿3 

podremos escribir entonces 

iw) = m 

o bien 

AX = B 

en la cual 

x = [X] = 

lo que implica la agrupación ordenada de las dos expresiones (Al.l) y (A1.3): 

a ll x i H , «ll^í H 

021X1 H , o 2 iXj H 

o 31 Xi H , az\x\ H 

Se ha visto, incidentalmente, que las matrices sólo pueden ser iguales 
cuando cada uno de sus componentes individuales sean iguales. 

La expresión anterior define la multiplicación de matrices llenas, y es 
obvio que sólo tiene sentido si el número de columnas de A es igual al número 
de filas de X para una relación del tipo (Al. 4). Una propiedad que distingue 
la multiplicación de matrices es que, en general, 

AX / XA 

es decir, la multiplicación de matrices no es conmutativa como en el álgebra 
ordinaria. 

Suma y resta de matrices 

Si se suman relaciones de la forma (Al.l) y (Al. 3) se tiene entonces 



(A1.3) 



(A1.4) 





*1 


«2, 




33, 




x 4 , 


< 



[B} = 



¿1, b[ 
¿2, bj 

¿3, ¿3 



(¿1.5) 



bu K 
¿2, ¿2 



(A1.4a) 
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on(xi + x[) + a 12 (x 2 + x 2 ) + a 13 (x 3 + x 3 ) + ai 4 (x 4 + x' 4 ) =6 a + b\ 

o 2 i(xi +x[) + o 22 (x 2 + x 2 ) + o 23 (x 3 + x 3 ) + o 24 (x 4 + x 4 ) =6 2 + b' 2 (Al. 6) 

o 3 i(xí + x'j) + a 32 (x 2 + x 2 ) + a 33 (x 3 + x' 3 ) + a 3 4(x 4 + x 4 ) =b 3 + b' 3 

lo que también se deduce de 

Ax + Ax' = A(x + x') = b + b' - b' + b 

si se define la suma de matrices como simple suma de las componentes 
individuales de las matrices. Claramente, esto sólo puede hacerse si las 
dimensiones de las matrices son iguales, o sea, por ejemplo, 



On + &n,ai2 + 612,013 + ¿>i 3 

0 2 1 + &21>0 2 2 + ¿>22,0 23 + 6 2 3 

(¿1.7) 



Oll,Oi2,Oi3 




¿11 j ¿12, ¿13 






+ 




021,022,023 




¿21, ¿22, ¿23 





A + B 



implica que cada componente de C es igual a la suma de las componentes 
correspondientes de A y B. 

La sustracción obedece obviamente las mismas reglas. 



Traspuesta de una matriz 

Se trata simplemente de una definición para reordenar las componentes de 
una matriz de la manera siguiente: 



Olí O12 Oi3 

o 2 i o 22 023 



T 


On 


021 




O12 


022 




Ol3 


O23 



(¿1.8) 



y se representa por el símbolo T como se muestra en la expresión anterior. 

Su empleo no es obvio de inmediato, pero más adelante se hará referencia 
a la misma y aquí puede considerarse como una simple operación aislada. 



Inversa de una matriz 

Si en la relación (A 1.1 a) la matriz A es "cuadrada", es decir, representa los 
coeficientes de ecuaciones simultáneas del tipo (Al.l) cuyo número es igual 
al de incógnitas x, entonces en general es posible despejar las incógnitas x en 
función de los coeficientes conocidos b. Esta solución puede escribirse como 

x = A" 1 b (¿1.9) 

donde la matriz A -1 se conoce como "inversa" de la matriz cuadrada A. 
Claramente A -1 es también cuadrada de las mismas dimensiones que A. 
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Se podría obtener (Al. 9) multiplicando ambos miembros de (Al. la) por 
A -1 y por tanto 

AA" 1 = A- ! A = I (¿1.10) 

donde I es la matriz unidad cuyos términos "diagonales" valen uno y todos 
los demás son cero. 

Si las ecuaciones son singulares y no tienen solución, entonces 
evidentemente no existe matriz inversa. 

Suma de productos 

En problemas de mecánica se encuentran frecuentemente un número de 
magnitudes, como fuerzas, que pueden agruparse en "vectores": 



í/i 

h 

fn 



(¿1.11) 



Éstas, a su vez, se encuentran generalmente asociadas a un mismo número 
de desplazamientos dados por otro vector, por ejemplo, 



^1 
u 2 



(Al. 12) 



Sabemos que el trabajo está representado como una suma de productos de 
fuerzas y desplazamientos: 

W = Y, fnUn 

Claramente la matriz resulta útil aquí, puesto que se puede escribir, siguiendo 
la primera regla del producto de matrices 

ir • ./i-/: U.{ 7 ) =f T a = a T f (.41.13) 

«n 

En este libro se hace uso frecuentemente de este hecho. 



Traspuesta de un producto 

Una operación que a veces se presenta es la de tomar la traspuesta de 
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un producto de matrices. Dejamos que el lector demuestre mediante las 
definiciones anteriores que 



(AB) T = B T A T 



(¿1.14) 



Matrices simétricas 



En problemas de estructuras se encuentra con frecuencia matrices simétricas. 
Si un término de la matriz A se define como a¿¿, se tiene entonces que para 
una matriz simétrica 



Puede demostrarse que la inversa de una matriz simétrica es siempre 
simétrica. 

Partición 

Es fácil demostrar que una matriz producto 



en la cual, por ejemplo, 



AB 



a u a 12 a i3 : C44 

«21 a 22 a 23 ' «24 «25 



«31 «32 «33 



«34 «35 



>11 


&12 


>21 


6 2 2 


>31 


032 


>41 


642 


>51 


&52 



puede obtenerse dividiendo cada matriz en submatrices, indicadas por las 
líneas punteadas, y aplicando las reglas de multiplicación de matrices primero 
a cada submatriz, como si fuese un número escalar y después efectuando 
nuevas multiplicaciones en la manera usual. Así, si se escribe 



A = 

Entonces puede comprobarse que 
AB 





A 12 ' 


B - 


B 2 


.A21 


A22 j 


B 2 



AuBi + A 12 B 2 
A 21 Bi + A 22 B 2 
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representa el producto completo, sin más que efectuar las multiplicaciones. 

La característica esencial de la partición de matrices es que el tamaño 
de las subdivisiones ha de ser tal que los productos del tipo A U B! tengan 
sentido, es decir, que el número de columnas de An sea igual al número 
de filas de Bi, etc. Si la definición anterior se cumple, entonces todas 
las operaciones posteriores pueden efectuarse a partir de las submatrices 
tratando cada una como si fuese un escalar. 

Debe advertirse que toda matriz puede multiplicarse por un escalar 
(número). En este caso, obviamente, ya no es necesaria la condición de 
igualdad de las filas y columnas apropiadas. 

Si una matriz simétrica se divide en un número igual de submatrices A{j 
en filas y columnas, entonces 




Problemas de autovalores 

Un autovalor de una matriz simétrica A de tamaño n x n es un escalar A¿ 
que permite la solución de 



(A - A¿I)fc = 0 



det |A - A¿I| = 0 



(41.15) 



Normalmente, hay n autovalores A¿, y a cada uno le corresponde un 
vector ^j. Se demuestra que dichos vectores son ortonormales, y se puede 
escribir 



= 1 i=j 



El conjunto completo de autovalores y autovectores se puede escribir de 
la forma 



0 



La matriz A se puede escribir en su forma espectral, tal como puede 
verificar el lector 



A = $A* T (41.16) 

El número de condicionamiento k (que está relacionado con el error de 
redondeo en la solución) se define como 

«=|^ (¿1.17) 
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ECUACIONES BASICAS DEL 
ANÁLISIS POR EL MÉTODO DE LOS 
DESPLAZAMIENTOS (CAPITULO 2) 

Desplazamientos 

(2.1) u « ü = ^N ¿ a¿ = Na 
Deformación 

(2.2 - 2.3) e = Su » ^ B¿a¿ = Ba 



(2.4) 



B = SN 



Relaciones de comportamiento de la elasticidad lineal entre tensiones 
deformaciones 

(2.5) a = D(e - e 0 ) + <r 0 

Ecuaciones aproximadas de equilibrio 

(2.23) Ka + f = r 

(2.24) Kij = J Bf DB ; dV 

f- = - j Nf b dV - j Nf t dA- 

- Bf De 0 dV + j Bf<7 0 dV 
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ALGUNAS FORMULAS 
DE INTEGRACIÓN PARA 
TRIÁNGULOS (figura 3.1) 

Sea un triángulo definido en el plano xy por tres puntos t/¿), (xj, yj) y 
(zm, ym) con el origen de coordenadas en el centro de gravedad, es decir, 



Xj + Xj + x m _ yi + yj + y m 
3 " 3 

Entonces, integrando sobre el área del triángulo 



= 0 



x dx dy = 


j y dx dy = 


0 


dx dy = ^ 


1 xi y { 
1 xj Vj 
1 *m Vm 


= A = área del triángulo 


z 2 dx dy = 




y^ dx dy — 


A , 2 2 




xy dx dy = 
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ALGUNAS FORMULAS 
DE INTEGRACIÓN PARA 
TETRAEDROS (figura 5.1) 



Sea un tetraedro definido en el sistema de coordenadas (x, y, z) por 
cuatro puntos (x¿, y¿, z¿), (xj, yj, Zj), (x m , y m , z m ), (x p , y py z p ) con el 
origen de coordenadas en el centro de gravedad, o sea, 

Xj + Xj -j-xm + xp _ yj + yj + y m + yp _ fi + z j + z m + z p _ 
4 ~ 4 ~ 4 

Entonces, integrando sobre el volumen del tetraedro 



J dx dy dz = - 



1 z¿ Vi H 

1 Xj Vj zj 

1 x m 2/m 

1 x p y p z p 



V = volumen del tetraedro 



Si el orden de numeración es el indicado en la Figura 5.1, se tiene también 
que 

j x dx dy dz = J y dx dy dz = J z dx dy dz = 0 
j x 2 dx dy dz=^(xf + x) + x 2 m + x 2 p ) 
j y 2 dx dy dz = ^(y 2 + y 2 + y 2 m + y 2 p ) 
J z 2 dx dy dz = ^(z 2 + z) + z 2 m + zj) 

/y 
xy dx dy dz =— (x^ + Xjyj + x m y m + x p y p ) 

/y 
xz dx dy dz =~^( x i z i + x j z j + x m^m + x p z p ) 

/F • 
yz dx dy dz =^(Vi z i + Vj z j + Vm^m + y P z p) 
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ELEMENTOS DE ÁLGEBRA VECTORIAL 



Es necesario un cierto conocimiento y entendimiento de álgebra vectorial 
básica para afrontar la complejidad de elementos orientados en el espacio, 
como ocurre en las láminas, etc. Aquí se resumen algunas de las operaciones 
esenciales. 

Los vectores (en un sentido geométrico) pueden definirse por sus 
componentes sobre los ejes i, y, z. 

Por tanto, el vector V 0 i representado por la Figura A5.1 puede escribirse 
como 

Voi = vci +m +kz! (A5.1) 

en donde i, j, k son vectores unitarios en las direcciones de los ejes z, y, z. 
Alternativamente, el mismo vector podría escribirse como 




(¿5.2) 



(siendo ahora un "vector" en sentido matricial) donde las componentes se 
distinguen por su posición en la columna. 

Suma y resta. La suma y resta de vectores se definen por la suma y resta de 
sus componentes. Así, por ejemplo, 

V 02 - Voi = V„ = i(x 2 - n) +j(y 2 - Vi) + k(z 2 - z x ) (¿5.3) 

Mediante las definiciones del álgebra matricial se llega al mismo resultado; 
así 




(¿5.4) 



Longitud de un vector. La longitud del vector V 21 viene dada, puramente 
por geometría, como 

í« = V / (x 2 -x 1 )2 + (y 2 - J /i) 2 + (^-^i) 2 (¿5.5) 
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Figura A5.1 Suma de vectores. 



o en términos del álgebra matricial 

f» = \/ V nVi2 (¿5.6) 

Cosenos directores. Los cosenos directores de un vector vienen dados, a partir 
de la definición de las longitudes de las proyecciones de sus componentes, por 

cosa x — \ vx — — - , etc. (45.7) 

'12 

donde a x es el ángulo formado por el vector y el eje x. 

Producto escalar. El producto escalar de dos vectores se define como el 
producto de la longitud de un vector por la proyección del otro vector sobre 
él. 0, si 7 es el ángulo formado por dos vectores A y B y sus longitudes son 
l a y ¿fc, respectivamente, 

AB = / a /¿cos 7 = BA (A5.8) 

Si 

A = ia x + ja y + ka z (45.9) 

y 



B =ib x +jby + kb z 
A • B —a x b x + a-yby + a z b z 



(45.10) 
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si advertimos que, por la definición anterior, 

ii =j.j - k-k =1 

i-j =j-k =k-i = 0,etc. 

Usando notación matricial 











H 




\ H 


by 










A- 


B = 


A r B = B T A 



(A5.ll) 



(A5.12) 



Producto vectorial. Otro producto de dos vectores se define como un vector 
orientado en dirección normal al plano definido por los dos vectores e igual 
en magnitud al producto de las longitudes de los dos vectores, multiplicado 
por el seno del ángulo que forman. Además, su sentido sigue la regla de la 
mano derecha, tal como se muestra en la Figura A5.2, en donde 



Por consiguiente, 



A x B = C 



A x B = -B x A 



(45.13) 



(45.14; 



Vale la pena advertir que el módulo (o longitud) de C es igual al área del 
paralelogramo que se indica en la Figura A5.2. 

Mediante la definición (A5.9) y advirtiendo que 



i x i=j xj = k x k = 0 
ixj = k, j x k = i, k x i=j 



(45.15) 



se tiene 



A x B =det 



i j k 

a x a y a z 

b x b y b z 



= (a y b z — a z b y )\ + (a z b x - a x b z )j + (a x b y — a y b x )k (45.16) 



626 



El Método de los Elementos Finitos 



l 




Figura A5.2 Multiplicación de vectores (producto vectorial). 

En álgebra matricial esto no se puede expresar de manera sencilla, pero la 
expresión anterior puede usarse para definir el vector Cf 



C = A x B 



o-ybz — a, z by 
a z b x — Q>xb z 
a x by — dybx 



(A5.17) 



El producto vectorial resulta particularmente útil para resolver el 
problema de obtener la normal a una superficie. 

Elementos de superficie y de volumen. Si i y rj son coordenadas curvib'neas, 
se tiene que los vectores contenidos en un plano 





' dx } 




' dx" 


di = < 


di 
dy 

> « > 


► d( drj = < 


dr) 
dy 



dr) 



(¿5.18) 



definidos a partir de la relación entre las coordenadas cartesianas y las 
curvib'neas, son vectores dirigidos según las tangentes a los contornos 



t Volviendo a escribir A como matriz antisimétrica 

" 0, -a t , a y 
k = a z , 0, -Oj 
.-a», a x , 0 

el lector podrá comprobar que otra representación del vector producto en forma matricial 
es (T. Crouch, comunicación privada) 



C = AB 
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Í =const. y t/ =const., respectivamente. Como la longitud del vector 
que resulta del producto vectorial de di x ¿17 es igual a la superficie del 
paralelogramo elemental, se puede escribir según la Ec. (A5.17) 



á(área) = det 



dx dx 

di drj 

dy dy 

di d v 



di dr) 



(45.19) 



Similarmente, si se tienen tres coordenadas curvib'neas f , 77, ( en el espacio 
cartesiano, el "triple producto escalar" define un volumen unidad 



d(vol) = di{dr¡ x d() = det 



dx 


dx 


dx 


di 


dr) 


d( 


dy 


dy 


dy 


di 


dr) 


d< 


dz 


dz 


dz 


di 


dr, 


d< 



di dr) d( 



(A5.20) 



Esto se deduce simplemente por razonamientos geométricos. El producto 
entre paréntesis, por definición, es un vector cuya longitud es igual a la 
superficie del paralelogramo cuyos lados son tangentes a dos de los ejes 
coordenados. La segunda multipbcación por una longitud y por el coseno 
del ángulo entre dicha longitud y la normal al paralelogramo establece un 
elemento diferencial de volumen. 

Las ecuaciones anteriores sirven para efectuar el cambio de variables en 
las integrales de área y de volumen. 



Apéndice 6 



INTEGRACION POR PARTES 
EN DOS O TRES DIMENSIONES 
(TEOREMA DE GREEN) 



Consideremos la integración por partes de la expresión bidimensional 
siguiente 



IL 



dx dy (¿6.1) 



Integrando primero respecto de a; y según la conocida regla de la integración 
por partes 



/ u dv — — I v du -f {uv)x- XR — {uv)x-xl (¿6.2) 

JXT Jxt. 



>x R rx R 
u dv — — I 
•x L Jx L 

se tiene, usando los símbolos de la Figura A6.1, 

/ / 4>1T dx dy = - ( f dx dy + ( [{H)x=xR - {H)x=x L } dy 

J JQ O* J Jn ox Jy=y B 

(¿6.3) 

Si ahora se considera una porción del contorno dT perteneciente al 
contorno de la derecha, vemos que 

dy ^ dVn x (¿6.4) 

donde n x es el coseno director del ángulo que forma la normal y la dirección 
x. Similarmente, en la parte izquierda del contorno se tiene 

dy = -dTn x (¿6.5) 

El término final de (A6.2) puede, por tanto, expresarse como la integral 
siguiente sobre el contorno tomada en dirección contraria a las agujas del 
reloj : 

j> 4>tp n x dT (¿6.6) 

Si hay varios contornos cerrados esta integración ha de efectuarse sobre 
cada contorno. Para todos los casos, la expresión general es 
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Figura A6.1 



/ lü ^ dX dy ~~ J Jq Ite^ dX dy + j T ^ Ux dT ( A6 ' 7>) 

Similarmente, si aparecen derivadas parciales con respecto a y, se puede 
escribir 

I d X dy = - j jf d x dy + ^ H n y dT (¿6.8) 

donde n y es el coseno del ángulo que forma la normal exterior y el eje y. 
Análogamente, en tres dimensiones se puede escribir 

/ / dx dy dz = ~ I J dx d y dz + n * dT ( M - 9 ) 

donde T es el elemento de área y la última integral se efectúa sobre toda la 
superficie. 
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SOLUCIONES NODALMENTE EXACTAS 



Se puede conseguir que la solución por elementos finitos de ecuaciones 
diferenciales ordinarias sea exacta en los nodos interelementales mediante 
una apropiada elección de las funciones "de ponderación" usadas en la 
forma débil. Para ser más específicos, consideremos el sistema de ecuaciones 
diferenciales ordinarias dado por 



A(u) + f = 0 



(¿7.1) 



donde u es un conjunto de variables dependientes que son función de una 
única variable independiente x, y f es un vector de funciones prescritas. La 
forma débil de la ecuación diferencial es 



v T (A(u) + f)dx = 0 



(¿7.2) 



La forma débil puede transformarse utilizando integración por partes para 
eliminar todas las derivadas de u y reemplazarlas por las de v. El resultado 
es 



(A*(v) r u + v T f) dx + B*(v) T B(u)| r = 0 



(A7.3) 



donde A*(v) es la "ecuación diferencial adjunta" y B*(v) y B(u) son los 
términos en el contorno, T, resultantes de la integración por partes. 
Como ejemplo tipo, consideremos la ecuación diferencial 



d 2 u ^ pdu ^ j 
dx 2 dx 



+ + /) ¿ X = 



con la forma débil asociada 

j L V \dx> • ' dx 
Después de integrar por partes la forma débil queda 

¿[(S-'SH^K^ '•)-£■] 

La ecuación diferencial adjunta está dada por 
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(A7.5) 



(47.6) 
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dx 2 dx 

y los términos de contorno por 




B*(v) ={ dv\ (A7.8) 




B(»)={dí + ™ (¿7.9) 



En el ejemplo anterior se pueden identificar dos casos: 

a) P en cero; en cuyo caso la ecuación diferencial adjunta es idéntica a la 
ecuación original. Este es el caso autoadjunto. 

b) P no es cero; en cuyo caso la ecuación diferencial adjunta es distinta de 
la ecuación original. Este es un problema no autoadjunto. 

La solución por elementos finitos de los dos casos es a menudo bastante 
distinta. En el primer caso existe un teorema variacional equivalente, 
mientras que en el caso b) no existe tal teorema, f 

Si definimos ahora que el dominio de la forma débil sea un único 
elemento L € y exigimos que la ecuación diferencial adjunta se satisfaga en 
cada elemento, la forma débil se simplifica notablemente. De hecho, para 
elementos que tengan sólo nodos en los extremos, la forma débil quedará 
expresada en función de cantidades conocidas en L € y valores desconocidos de 
la variable dependiente y de sus derivadas en los contornos interelementales, 
T e . Si consideramos que todos los valores de la función prescrita están 
contenidos en /, los términos en B(u) deben ser continuos para una solución 
exacta entre elementos adyacentes. Además, la función de peso debe 
satisfacer condiciones de continuidad impuestas por la forma débil (en el 
ejemplo tipo v debe ser continua en los contornos entre elementos). Sumando 
sobre todos los elementos e lleva a que 



£ Qí v T f dx + B*(v) r B(u)| r .) + B*(v) r Q| r = 0 (A7. 



10) 



que puede usarse para generar los vectores y matrices de los elementos 
finitos. Después de remarcar los requisitos de continuidad y equilibrio de las 



f A menudo puede introducirse un factor de integración para hacer que la forma débil 
genere un problema autoadjunto; sin embargo, el problema de aproximación sigue siendo 
igual. Viz. Sección 9.11.2. 
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magnitudes adecuadas, los términos restantes en los contornos se incluyen en 
lo anterior definiendo 

B(u)={2} 

El contorno de dominio completo se denota aquí como T y el término Q 
es el conjunto de condiciones de contorno prescritas. El resultado para el 
problema tipo es 




(¿7.12) 



donde Q es el flujo, igual a| + Pu enel contorno. 
En el caso a) la solución de la ecuación adjunta es 

v = Ax + B (¿7.13) 

que puede escribirse como funciones de forma lineales convencionales en cada 
elemento. Así, usando funciones de forma lineales en cada elemento como 
funciones de ponderación, los desplazamientos nodales interelementales u 
serán exactos (ej., ver Figura 9.4) independientemente de la interpolación 
usada para u. 

En el caso b) la solución exacta es 

v = Ae Px +B (¿7.14) 

y de nuevo u es exacta en los nodos interelementales. 

En ambos casos, las constantes de integración Ay5se pueden expresar 
en función de los parámetros nodales en los extremos izquierdo y derecho de 
cada elemento, v 1 y v 2 , respectivamente. Después de sustituir las funciones 
de formas en la forma débil, en la expresión final aparecerán sólo valores de 
la variable dependiente u(x) en los nodos. De esta forma se pueden calcular 
soluciones exactas en los nodos, sin ninguna aproximación de la variable 
dependiente. Si se usa interpolación, el resultado será exacto en los nodos, 
y aproximado entre los nodos. Después de construir soluciones nodalmente 
exactas para u, se pueden calcular soluciones exactas para las derivadas a 
partir de la forma débil en cada elemento. 

El proceso anterior fue descrito por primera vez por Tong para ecuaciones 
diferenciales autoadjuntas a partir de una formulación variacional 1 . 

Referencias 

1. P. TONG, "Exact solutions of certain problems by the finite element method", 
AIAA, 7, 179-80, 1969. 
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DIAGONALIZACIÓN DE MATRICES 
O "AGLUTIN AMIENTO" 

Algunos de los algoritmos propuestos en este volumen son más eficientes 
si una de las matrices globales puede ser diagonalizada (o "aglutinada", 
según muchos ingenieros). Por ejemplo, las soluciones de problemas mixtos, 
alisado de tensiones o problemas transitorios (que se discutirán en el Vol. 
2) son más eficientes si la matriz global que debe invertirse es diagonal [viz. 
Capítulos 12 y 14, Ees. (12.67) y (14.71)]. Los ingenieros suelen insistir en 
bases puramente físicas para el aglutinamiento de matrices; sin embargo, 
claramente se precisa un procedimiento sistemático y matemáticamente 
aceptable para realizar tal tarea. 

Definamos la matriz a considerar como 

A = / N T cNdü {ASA) 

donde c es una matriz de pequeñas dimensiones. A menudo c es una matriz 
diagonal (ej., en problemas de masa o mínimos cuadrados c es una matriz 
de identidad escalada). Cuando A se calcula exactamente resulta de rango 
completo y no diagonal -esta es la llamada forma "consistente" de A, ya que 
se calcula consistentemente con los demás términos del modelo de elementos 
finitos-. La forma diagonalizada se define con respecto a los "nodos" de 
las funciones de forma, N¡\ entonces, la matriz tendrá pequeños bloques 
diagonales, cada uno con la dimensión de c. Sólo cuando c sea diagonal la 
matriz A puede ser diagonalizada completamente. Se pueden seguir cuatro 
procedimientos básicos para construir una forma diagonal. 

El primer procedimiento es usar funciones de forma diferentes para 
aproximar cada término de la discretización por elementos finitos. Para 
la matriz A usamos las funciones de forma N¿ para el proceso de 
aglutinamiento. En la definición de A no aparecen derivadas de las funciones 
de forma. En consecuencia, para este término las funciones de forma pueden 
ser continuas a trozos y producir, sin embargo aproximaciones aceptables. 
Si las funciones de forma usadas para definir A son constantes a trozos, de 
forma que jV¿ = 1 es una cierta parte del elemento que rodea al nodo i y 
cero en el resto, y si tales partes no se superponen, entonces claramente la 
matriz de la Ec. (A8.1) es diagonal, ya que 

/ ÑfcÑjdíí = 0 i¿j (A8.2) 
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Tal aproximación con diferentes funciones de forma es permisible, ya que 
satisface los criterios usuales de integrabilidad y completitud. Las funciones 
relacionadas sólo deben satisfacer la condición 

]T Ñi = 1 Ñi = Ñ¡I (A8.Z) 

i 

En la Figura A8.1 se muestran las funciones jV¿ y Ñ{ para un elemento 
triangular. 

El segundo método para diagonalizar una matriz es advertir que la 
condición (A8.3) es simplemente un requisito para asegurar la conservación 
de la magnitud c en el elemento. En aplicaciones de dinámica de estructuras 
esto es la conservación de masa a nivel elemental. En consecuencia, se ha 
observado que cualquier procedimiento de aglutinamiento que conserve la 
integral de c sobre el elemento debe llevar a resultados convergentes, aunque 
la velocidad de convergencia puede ser menor que usando A consistente. 
Se han propuesto muchas alternativas basadas en este método. Los 
procedimientos originales llevaban a cabo la diagonalización basándose sólo 
en la intuición física. Más tarde se propusieron procedimientos alternativos. 
Una sugerencia, llamada método "de la suma por filas", es calcular la forma 
diagonal de la matriz como 



0 i¿j 



Este algoritmo es análogo a reemplazar las N{ por la condición (A8.3), que 
de hecho hace la diagonal igual a la suma de todos los términos de la fila. 
Tal algoritmo sólo tiene sentido cuando los grados de libertad del problema 
tienen todos el mismo sentido físico. Una alternativa consiste en escalar los 
términos diagonales de la matriz consistente para satisfacer el requisito de 
conservación. En este caso la matriz diagonal se calcula como 
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A0-Wo* feIMn Í=j < A8 - 5) 
{ 0 

donde a se calcula para que 




(A8.6) 



El tercer procedimiento usa la integración numérica para diagonalizar, 
aparentemente sin introducir funciones de forma adicionales. Si se usa 
integración numérica para evaluar la matriz A de la Ec. (A8.1) se puede 
escribir un típico término como una suma (ver Capítulo 8): 

Aij = / NfcNj dü = Y, W 9 (N? cN ¿ ) g J q (¿8.7) 

donde q se refiere al punto de muestreo en el que se evalúa el integrando, J 
es el jacobiano de la transformación y W q es el peso de la cuadratura. 

Si los puntos de muestreo para la integración numérica están situados en 
los nodos, entonces, dado que todas las funciones JV¿ menos uno son cero en 
cualquier nodo, 

Aij = 0 i ¿ j (A8.8) 

y la matriz resulta diagonal. 

Se pueden calcular los ceros apropiados exigiendo que la cuadratura 
integre exactamente ciertos polinomios en el sistema natural de coordenadas. 
En general la cuadratura debería integrar un polinomio completo del orden 
del polinomio de interpolación. Así, para elementos cuadriláteros de cuatro 
nodos, se deberían integrar exactamente funciones lineales. Para elementos 
de ocho y nueve nodos, se deberían evaluar funciones cuadráticas. La 
integración de términos adicionales puede llevar a matrices diagonales más 
precisas en sus resultados. 

Para elementos de bajo orden se pueden usar argumentos de simetría 
para aglutinar matrices. Por ejemplo, es obvio que en un sencillo triángulo 
se puede conseguir poca mejora con respecto al aglutinamiento trivial en 
el que c se distribuye en tres partes iguales. Sin embargo, no existe un 
procedimiento tan evidente para un elemento isoparamétrico bidimensional 
de ocho nodos. En la Figura A8.2 se muestra el caso de los elementos 
rectangulares de cuatro, ocho y nueve nodos y el aglutinamiento según 
(A8.4), (A8.5) y (A8.7). Nótese que cuando se usa (A8.4) algunas de 
las cantidades aglutinadas son negativas para el elemento de ocho nodos. 
Esto puede tener efectos adversos en ciertos algoritmos (ej., en esquemas 
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*o n< 



16 6, 

i i 

4-nodos 
Todos los métodos 



1 X 




8-nodos 
(A8.4) y (A8.7) 

Figura A8.2 Diagonalización de elementos rectangulares según diversos métodos 

de avance en el tiempo para integrar problemas transitorios), e impedir su 
utilización. En la Figura A8.3 se muestran algunas matrices aglutinadas 
para elementos triangulares calculadas mediante cuadraturas. Se advierte 
que en el elemento cúbico se producen de nuevo términos negativos, mientras 
que en el cuadrático aparecen términos nulos. Los términos nulos son más 
difíciles de tratar, ya que la matriz A diagonal resultante es singular, y no 
puede ser invertida. En la Figura A8.2 se muestra el caso de los elementos 
rectangulares de cuatro, ocho y nueve nodos y el aglutinamiento según ( A8.4), 
(A8.5) y (A8.7). Nótese que cuando se usa (A8.4) algunas de las cantidades 
aglutinadas son negativas para el elemento de ocho nodos. Esto puede tener 
efectos adversos en ciertos algoritmos (ej., en esquemas de avance en el tiempo 
para integrar problemas transitorios), e impedir su utilización. En la Figura 
A8.3 se muestran algunas matrices aglutinadas para elementos triangulares 
calculadas mediante cuadraturas. Se advierte que en el elemento cúbico 
se producen de nuevo términos negativos, mientras que en el cuadrático 
aparecen términos nulos. Los términos nulos son más difíciles de tratar, 
ya que la matriz A diagonal resultante es singular, y no puede ser invertida. 

Otro aspecto del aglutinamiento es el comportamiento del elemento 
cuando se distorsiona. Por ejemplo, a medida que un elemento rectangular 
se distorsiona y se acerca a la forma triangular, sería deseable que los casos 
límites se comportasen debidamente. En el caso de un elemento rectangular 
de cuatro nodos, la matriz aglutinada es siempre la misma para todos los 



8-nodos 9-nodos 
(A8.5) Todos los métodos 
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ik M 

-f M ¿ ^ k M ¿ o ^ 0 M ¿ o o ^ - ¿ M 

p = 1 P = 2 P = 3 

0(h) 0(h 2 ) 0(/í 5 ) 

Figura A8.3 Aglutinamiento para triángulos mediante integración numérica 

métodos de aglutinamiento. Sin embargo, si se distorsiona el elemento según 
la transformación definida por un parámetro y que se muestra en la Figura 
A8.4, entonces los tres procedimientos de aglutinamiento presentados dan 
respuestas distintas. La transformación jacobiana viene dada por 

J = ab(l - f) (A8.9) 
y c es la matriz identidad. La forma (ASA) da 

//3) arriba 
//3) abajo 

la forma (A8.5) da 

' ib(l - f/2) arriba 
ab(l + f/2) abajo 

y la cuadratura (A8.7) da 

/) arriba 
+ /) abajo 



" " \ ab(l + 

(al 
" = \al 
i 

Ía6(l 
^" ~ \ ab(l 



(A8.10) 



(A8.ll) 



(48.12) 



El elemento de cuatro nodos tiene la propiedad de poder definir un triángulo 
al colapsar dos nodos y asignarles el mismo número en la malla. Así, el 
cuadrilátero se convierte en triángulo cuando el parámetro / es uno. El valor 
límite para el método (A8.4) da términos aglutinados idénticos para los tres 
nodos [el método (A8.5) da un valor aglutinado para el nodo colapsado, que 
es dos tercios de los otros nodos, y (A8.7) da cero para este nodo en el caso 
límite]. Los métodos (A8.5) y (A8.7) dan casos límites que dependen de 
cómo se han numerado los nodos para cada elemento triangular. Esta falta 
de objetividad no es deseable en el software de aplicación; por tanto, para 
el cuadrilátero de cuatro nodos, el método (ASA) parece superior al (AS.5) 
o al (AS.7). Sin embargo, se ha observado que el uso de (A8A) conduce a 
elementos negativos en la diagonal para el elemento de 8 nodos. Parece por 
tanto evidente que no existe un método universal de aglutinar una matriz 
que pueda aplicarse a todos los elementos. 
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Figura A8.4 Elemento de cuatro nodos distorsionado 

Se puede usar un cuarto método, no muy extendido, para deducir 
una matriz consistente que sea diagonal. Este consiste en hacer una 
representación mixta del término que conduce a A. Si este término es 



Aü= (^J N T cNdüj ü 
entonces se puede plantear un problema mixto en el que 

p = u 



con las aproximaciones 



u = Nu 
p = np 



La forma débil de la anterior es 

Áp = Q N T cndüj p = Aü 
Hp = Á r ü 



y 

donde 



H= / n T cndí) 

Jn 

La eliminación de p lleva a la matriz de la forma mixta 

A = ÁH 1 A T 
para la cual se pueden buscar ahora formas diagonales. 



(48.13) 

(48.14) 

(48.15) 
(48.16) 

(48.17) 
(48.18) 

(48.19) 
(48.20) 
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Ordenador, cálculo por 443 
Organización del programa de ordenador 

453, 495 
Orificio reforzado 63 
Ortogonalidad 146 
Pascal triángulo 124 
Parcela, test 39, 303 



-aplicaciones 311, 315, 324, 325 
-de mayor orden 311 
-débü 324 

-en formulación mixta 339 

-generalizado 309 

-simple 306 
Penalización 259 

-en problemas mixtos 366 
Pérdida de convergencia 185 
Perfil, frente 467 
Presa bóveda 203 
Presa de gravedad 69 
Pilote de cimentación 89 
Poisson, coeficiente 50, 84, 98 
Polinomio 

-completo 116 

-jerárquico 146 

-Lagrange 124 

-Legendre 148 
Potencial de fuerzas másicas 57 
Presión hidrodinámica 283 
Principio variacional 240 

-condicionado 253, 259 

-estacionario 251 

•general 258 

-natural 243, 248 
Principio de trabajos virtuales 232 
Prismas rectangulares 138, 140 
Programa de ordenador 

-ampliación 512 

-descripción 453 

-instalación 514 

-listado 514 

-modificación 512 
Programación 

-general 453 

-macroinstrucciones 485 
Propiedades del material, definición 461 
Reactor nuclear 88 
Redes eléctricas 12 
Redes hidráulicas 12 
Refinamiento adaptable 415 

-tipo h 424, 439 

-tipo p 443 
Régimen permanente 271 
Relación tensorial 108 
Repetibilidad 209 

Requisitos de convergencia 304, 306 
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Residuos ponderados 215, 223 
Restricción directas 377 
Robustez 325, 382 
Serendípita, familia 127 
Simetría 209 

Simetría de revolución 90 

Singularidad de los matrices 186 

Sistemas continuos 1 

Sistemas discretos 1, 16 

Sistemas estructurales 3 

Sólido rígido, movimiento 36, 304 

Solución de ecuaciones 499 
-método directo 499 
-solución iterativas 510 

Solución nodalmente exacta 631 

Soluciones iterativas en problemas 
mixtos 372 

Subdominios 389, 392, 402, 410 

Subestructuras 131 

Superficie con movimiento 283 

Sustitución hacia atrás 500 

Tensiones 26 

Test de la parcela 39, 303 
-de mayor orden 311 
-débil 324 



-ejemplos 311, 315, 324, 325 

-en formulación mixta 339 

-generalizado 309 

-simple 306 
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-alisado 360 

-cálculo de 58 

-iniciales 26 

-muestreo 361 

-proyección 360 

-tectónicas 63 

-térmicos 69 
Tensión plana 47, 90 
Tensorial notación 107 
Torsión, problemas 271, 409 
Trabajo virtual 28, 232 
Transformación de coordenadas 18, 160, 

167 

Transmisión del calor 221 
Trefftz, método de 405 
Vasija de presión 88, 203 
Valle rígido 203 
Valle anisótropo 63 
Velocidad de convergencia 416 
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VOLUMEN 1 - 45 EDICION 

Desde la publicación de la primera edición hace poco más de 
veinte años, pionera en tratar este tema, la potencia y efectividad 
del Método de los Elementos Finitos (MEF) han aumentado y se 
han encontrado muchas aplicaciones nuevas. Esto se ha logrado 
por una ampliación de la base matemática del método de manera 
conveniente para ingenieros y científicos. Ahora son posibles pro- 
cedimientos nuevos y más eficaces, por lo que el MEF tiene una 
gran aceptación en todos los campos de la ingeniería. 

Esta nueva edición está escrita con los mismos objetivos de la 
original, primero señalar y segundo presentar una base de refe- 
rencia del «estado de la cuestión», de gran importancia para inge- 
nieros, físicos e investigadores. 

Este primer volumen presenta los conceptos básicos de aproxi- 
mación por elementos finitos en problemas estáticos lineales sim- 
ples, que constituyen aún la mayor parte de las aplicaciones de 
los elementos finitos. 
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Para tener éxito en su aplicación, el MEF depende esencial- 
mente del uso experto de las computadoras, así como de técnicas 
numéricas y de programación eficientes. El último capítulo de este 
volumen incluye mucha de la experiencia sobre programación de 
la Universidad de California en Berkeley y del Instituto de Métodos 
Numéricos en Ingeniería de la Universidad de Gales en Swansea. 
Esto se hace describiendo un programa de ordenador bastante 
completo que el lector puede emplear inmediatamente para 
analizar de forma numérica cualquier problema de los estudiados 
en el libro. 
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